Asks user to save file (or workbook) using GetSaveAsFilename method.
Returns full path and file name if success, and blank if not
StartingFolder is optional, will use FixPath to return folder of this workbook if ignored.
ExtFilters has example of multiple filters in drop-down
Function WorkbookSaveAsk_ANmar(Optional StartingFolder = "This", Optional ExtFilters = "All Excel files, *.xls?,All files, *.*", Optional InitialFile = "Sheet1.xlsx")
If StartingFolder = "This" Then StartingFolder = FixPath()
ChDir StartingFolder
Rett = Application.GetSaveAsFilename(InitialFile, ExtFilters)
If Rett = "False" Then Rett = ""
WorkbookSaveAsk_ANmar = Rett
End Function
If StartingFolder = "This" Then StartingFolder = FixPath()
ChDir StartingFolder
Rett = Application.GetSaveAsFilename(InitialFile, ExtFilters)
If Rett = "False" Then Rett = ""
WorkbookSaveAsk_ANmar = Rett
End Function
Optional StartingFolder, Optional ExtFilters
Views 3,422
Downloads 1,401
CodeID
DB ID