myDirECTorY = "C:\_SAP\ShortageRpt\DefaultExtractFiles\" 'Wherever you want 'myFileNameO = myDirECTorY & Format(Now(), "yyyymmdd_hhmm") & " ZSHORTV2DataCurrent" & ".xlsx" 'File name as desired. myFileNameO = myDirECTorY & " ZSHORTV2DataCurrent" & ".txt" 'File name as desired. Workbooks.Add ActiveSheet.Paste 'Add text to column here ActiveWorkbook.SaveAs Filename:=myFileNameO, FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close MsgBox (" Done file saved ")
|Fixing a embedded format||7||29|
|Select a range of cells and use command button to copy specific cells only to another location on the worksheet||8||28|
|How to move the last 4 digits of a number to a new column||8||42|
|Excel Automation VBA||19||30|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
18 Experts available now in Live!