SaveAs Dialog - Controlled Save

SaveAs Dialog - Controlled Save



Sub Save_File_Dialog()

Dim sFName

' Can be used as Excel SaveAs Dialog

'----------------------------
' Coded for http://vbadud.blogspot.com
'----------------------------


sFName = Application.GetSaveAsFilename
If sFName = False Then
MsgBox "Enter a File Name Please!!!"
End If

' Display Default FileName in the SaveAs Dialog/Save Dialog Box
sFName = Application.GetSaveAsFilename("VBADud_Example.xls")

' Force File Type during Save
sFName = Application.GetSaveAsFilename("VBADud_Example.xls", "Excel files (*.xls), *.xls")


End Sub

This method displays the standard Save As dialog box and gets a file name from the user without actually saving any files

This does not save the file...


See also :

Excel VBA - 1004 -- The file could not be accessed

Save and Reopen all Workbooks (Excel VBA)

Save copy of the workbook

SaveAs Dialog - Controlled Save

Save RTF document as word