Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.
Sub Save_SIF() Dim strFilePath, strFileName As String strFilePath = "C:\_SAP\GSA Extracts\GSA_SifFiles\" 'This needs to be changed to correct directory and must end with \ strFileName = InputBox("Please enter a filename or click OK to accept the default.", "Save File", _ "TestFile-" & Format(Now(), "yyyy-mm-dd")) '<--- change to new default If strFileName = "" Then Sheets("SIF Data").Select ActiveWindow.SelectedSheets.Visible = False Sheets("Order Line Items").Select ActiveWindow.SelectedSheets.Visible = False Exit Sub 'Will happen if Cancel is pressed End If strFileName = strFileName & ".sif" Application.DisplayAlerts = False ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:= _ strFilePath & strFileName, FileFormat:=xlTextPrinter, CreateBackup:=False ActiveWorkbook.Close savechanges:=False Application.DisplayAlerts = True ' MsgBox "Sif file saved" End Sub
Join the community of 500,000 technology professionals and ask your questions.