VBA for File SaveAs dialog box

[Richard123]

I want to attach some code to a button in an Excel worksheet so that a user is prompted to save the file but can choose filename and filepath. I am using the following code:

fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Microsoft Excel Office Workbook (*.xls), *.xls")

This code goes through the motions of opening the 'File/Save As' dialog box but when you choose location and filepath it doesn't actually save the document anywhere!

Any thoughts?

 

[Andrew Poulsom]

You need to save the workbook, using the filename returned by GetSaveAsFilename. Example:

fileSaveName = Application.GetSaveAsFilename(fileFilter:="Microsoft Excel Office Workbook (*.xls), *.xls")
If fileSaveName <> False Then
    ActiveWorkbook.SaveAs Filename:=fileSaveName
End If

 

[Richard123]

brilliant....many thanks

 

[zakasnak]

Thanks Andrew! This worked for me! LOVE this Board!

You need to save the workbook, using the filename returned by GetSaveAsFilename. Example:

fileSaveName = Application.GetSaveAsFilename(fileFilter:="Microsoft Excel Office Workbook (*.xls), *.xls")
If fileSaveName <> False Then
    ActiveWorkbook.SaveAs Filename:=fileSaveName
End If