Save As
 

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

Save As
 

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

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