Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetSaveAsFilename method
This is the code I am using to save a report I am running.
fileSaveName = Application.GetSaveAsFilename (fileFilter:="Excel Files (*.xls), *.xls") If fileSaveName < False Then MsgBox "Save As " & fileSaveName End If ActiveWorkbook.Save ActiveWindow.Close How do I make it actually save the file as the name I specify in the Save box? It just saves it as Book 1,2, etc. Thanks in Advance, Donna Brooks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetSaveAsFilename method
If fileSaveName < False Then
ActiveWorkbook.SaveAs filename:= fileSaveName End if ActiveWorkbook.Close SaveChange:=False Regards, Tom Ogilvy "Donna Brooks" wrote in message ... This is the code I am using to save a report I am running. fileSaveName = Application.GetSaveAsFilename (fileFilter:="Excel Files (*.xls), *.xls") If fileSaveName < False Then MsgBox "Save As " & fileSaveName End If ActiveWorkbook.Save ActiveWindow.Close How do I make it actually save the file as the name I specify in the Save box? It just saves it as Book 1,2, etc. Thanks in Advance, Donna Brooks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetSaveAsFilename method-How to set the path?
How can I set the path and allow the user to assign a file name and ensure the file is saved to the path I set? Thanks, Dan On Tue, 8 Jul 2003 10:44:10 -0400, "Tom Ogilvy" wrote: If fileSaveName < False Then ActiveWorkbook.SaveAs filename:= fileSaveName End if ActiveWorkbook.Close SaveChange:=False Regards, Tom Ogilvy "Donna Brooks" wrote in message ... This is the code I am using to save a report I am running. fileSaveName = Application.GetSaveAsFilename (fileFilter:="Excel Files (*.xls), *.xls") If fileSaveName < False Then MsgBox "Save As " & fileSaveName End If ActiveWorkbook.Save ActiveWindow.Close How do I make it actually save the file as the name I specify in the Save box? It just saves it as Book 1,2, etc. Thanks in Advance, Donna Brooks |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetSaveAsFilename method-How to set the path?
GetSaveAsFileName is a method that provides a dialog box to get a file name,
it doesn't save the file, it simply returns the file name of the file that was selected. You can direct GetSaveAsFileName at a particular directory by setting that directory before, like so ChDir "C:\Documents and Settings\dan dungan\My Documents\jones\backup\" Do fName = Application.GetSaveAsFilename Loop Until fName < False ActiveWorkbook.SaveAs fName -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) wrote in message ... I tried the following code, but it returns: run time error 1004, Application-defined or object-defined error. And it doesn't seem to actually set the path. CommandButton1 -click Private Sub CommandButton1_Click() ActiveWorkbook.SendMail ", "test", True Set Workbook = ActiveWorkbook Do fName = "C:\Documents and Settings\dan dungan\My Documents\jones\backup\" & Application.GetSaveAsFilename Loop Until fName < False ActiveWorkbook.SaveAs fName End Sub On Mon, 26 Jan 2004 22:14:14 -0800, wrote: How can I set the path and allow the user to assign a file name and ensure the file is saved to the path I set? Thanks, Dan On Tue, 8 Jul 2003 10:44:10 -0400, "Tom Ogilvy" wrote: If fileSaveName < False Then ActiveWorkbook.SaveAs filename:= fileSaveName End if ActiveWorkbook.Close SaveChange:=False Regards, Tom Ogilvy "Donna Brooks" wrote in message ... This is the code I am using to save a report I am running. fileSaveName = Application.GetSaveAsFilename (fileFilter:="Excel Files (*.xls), *.xls") If fileSaveName < False Then MsgBox "Save As " & fileSaveName End If ActiveWorkbook.Save ActiveWindow.Close How do I make it actually save the file as the name I specify in the Save box? It just saves it as Book 1,2, etc. Thanks in Advance, Donna Brooks |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
GetSaveAsFilename method-How to set the path?
Just to add, the dialog will start in that directory, but the user can
navigate to any directory. If you just want the user to supply a filename, use an input box and have them type one in. -- Regards, Tom Ogilvy Bob Phillips wrote in message ... GetSaveAsFileName is a method that provides a dialog box to get a file name, it doesn't save the file, it simply returns the file name of the file that was selected. You can direct GetSaveAsFileName at a particular directory by setting that directory before, like so ChDir "C:\Documents and Settings\dan dungan\My Documents\jones\backup\" Do fName = Application.GetSaveAsFilename Loop Until fName < False ActiveWorkbook.SaveAs fName -- HTH Bob Phillips ... looking out across Poole Harbour to the Purbecks (remove nothere from the email address if mailing direct) wrote in message ... I tried the following code, but it returns: run time error 1004, Application-defined or object-defined error. And it doesn't seem to actually set the path. CommandButton1 -click Private Sub CommandButton1_Click() ActiveWorkbook.SendMail ", "test", True Set Workbook = ActiveWorkbook Do fName = "C:\Documents and Settings\dan dungan\My Documents\jones\backup\" & Application.GetSaveAsFilename Loop Until fName < False ActiveWorkbook.SaveAs fName End Sub On Mon, 26 Jan 2004 22:14:14 -0800, wrote: How can I set the path and allow the user to assign a file name and ensure the file is saved to the path I set? Thanks, Dan On Tue, 8 Jul 2003 10:44:10 -0400, "Tom Ogilvy" wrote: If fileSaveName < False Then ActiveWorkbook.SaveAs filename:= fileSaveName End if ActiveWorkbook.Close SaveChange:=False Regards, Tom Ogilvy "Donna Brooks" wrote in message ... This is the code I am using to save a report I am running. fileSaveName = Application.GetSaveAsFilename (fileFilter:="Excel Files (*.xls), *.xls") If fileSaveName < False Then MsgBox "Save As " & fileSaveName End If ActiveWorkbook.Save ActiveWindow.Close How do I make it actually save the file as the name I specify in the Save box? It just saves it as Book 1,2, etc. Thanks in Advance, Donna Brooks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Please post this thread a correct full method, method about | New Users to Excel | |||
Please post this thread a complete correct method, method about te | New Users to Excel | |||
Help with getsaveasfilename | Excel Discussion (Misc queries) | |||
Another Method or 2? | Excel Discussion (Misc queries) | |||
GetSaveAsFilename not working in Excel 2003 | Excel Discussion (Misc queries) |