Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs...
Hi,
I'm trying to write some code that will allow me to do this: if thisworkbookalreadysaved then activework.save else filesavename = Application.GetSaveAsFilename (fileFilter:="Microsoft Excel Workbook (*.xls), *.xls") If filesavename < False Then ActiveWorkbook.SaveAs Filename:=filesavename, FileFormat:=xlNormal end if the key issue is whether the workbook has been saved in the past and there is a directory path to it - if, so then just save it, if not then bring up the saveas dialog box thks...Chris |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs...
If thisworkbook.path = "" then
'never saved before (Don't you hate it when the answer is in your own question!!! <bg) Chris Gorham wrote: Hi, I'm trying to write some code that will allow me to do this: if thisworkbookalreadysaved then activework.save else filesavename = Application.GetSaveAsFilename (fileFilter:="Microsoft Excel Workbook (*.xls), *.xls") If filesavename < False Then ActiveWorkbook.SaveAs Filename:=filesavename, FileFormat:=xlNormal end if the key issue is whether the workbook has been saved in the past and there is a directory path to it - if, so then just save it, if not then bring up the saveas dialog box thks...Chris -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
SaveAs...
Chris,
Test the ThisWorkbook.Path property. If it is empty, then the workbook has never been saved. For example, If ThisWorkbook.Path < "" Then ThisWorkbook.Save Else '.. GetSaveAsFilename ' SaveAs End If -- Cordially, Chip Pearson Microsoft MVP - Excel Pearson Software Consulting, LLC www.cpearson.com "Chris Gorham" wrote in message ... Hi, I'm trying to write some code that will allow me to do this: if thisworkbookalreadysaved then activework.save else filesavename = Application.GetSaveAsFilename (fileFilter:="Microsoft Excel Workbook (*.xls), *.xls") If filesavename < False Then ActiveWorkbook.SaveAs Filename:=filesavename, FileFormat:=xlNormal end if the key issue is whether the workbook has been saved in the past and there is a directory path to it - if, so then just save it, if not then bring up the saveas dialog box thks...Chris |