Save As

[Ardy]

I have this code that suppose to doa Save As Action, it goes trough
the motion, but no file is saved.

' Start Save As File Prior To resetting
Msg = "Save File Prior to Resetting the Form!"
Style = vbOKOnly
Title = "GUSD --------------- ROLA"
fileSaveName = Application.GetSaveAsFilename( _
fileFilter:="Microsoft Excel Workbook (*.xls), *.xls")
If fileSaveName <> False Then
MsgBox "Save as " & fileSaveName
End If
' End Save As

Regards
Ardy

 

[Dave Peterson]

GetSaveAsFileName just returns the name that the user chose. You still have to
do the actual save yourself.

if filesavename <> false then
thisworkbook.saveas filename:=filesavename, fileformat:=xlworkbooknormal
'or Activeworkbook.saveas....
end if

 

[Ardy]

Thanks
Works Perfect

GetSaveAsFileName just returns the name that the user chose. You still have to
do the actual save yourself.

if filesavename <> false then
thisworkbook.saveas filename:=filesavename, fileformat:=xlworkbooknormal
'or Activeworkbook.saveas....
end if