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