| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Save, save as, page setup dimmed out in unprotected excel sheet? | Excel Discussion (Misc queries) | |||
| SAVE and SAVE AS options disappeared from the drop down FILE menu | Excel Discussion (Misc queries) | |||
| Disable save, save as, but allow save via command button | Excel Programming | |||
| How to diasble save and save as menu but allow a save button | Excel Programming | |||
| Totally Disabling (^ save ) (Save as) and Save Icon – Which code do I use: | Excel Programming | |||
Linear Mode
