New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
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 ")
Join the community of 500,000 technology professionals and ask your questions.