Save As
Thanks
Works Perfect
Dave Peterson wrote:
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 wrote:
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
|