MACRO SAVE HELP

[Guest]

Hi
I have a macro that I need to save to the network drive (R). The only
problem is that the macro below when U run it save the files to the documents
folder. I have no ideas why this is happening. If anyone has any ideas as to
why this is happening I would be VERY grateful for the help.


Sub Saveas()
'
' Saveas Macro
' Macro recorded 10/11/2007 by
'

'
ChDir "R:\Production Reports\Production Summary Report\Daily Production
Summary Copies"
ActiveWorkbook.Saveas Filename:= _
"Production Summary Report" & Format(Date, "mm-dd-yy") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[PCLIVE]

Maybe try including the path in the Saveas line.

ActiveWorkbook.Saveas Filename:= _
"R:\Production Reports\Production Summary Report\Daily Production
Summary Copies\Production Summary Report" & Format(Date, "mm-dd-yy") &
".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

HTH,
Paul

 

[Guest]

Thanks for the tip; it worked. I need to fix that macro so that I could auto
run it. Now here is my next problem. I need to auto run this macro. I have
the put the procedure in that is found below & been testing it. It seems not
to be working for me form some strange reason. If you have any suggestions as
to what I am doing wrong you r help would be welcome. If you are wondering my
ultimate goal is to have the spreadsheet save a copy of itself every night @
11:07PM with that days date. Thanks again

Public RunWhen As Double
Public Const cRunWhat = "Saveas" ' the name of the procedure to run
Sub StartTimer()
RunWhen = TimeSerial(14, 48, 27)
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat,
Schedule:=True
End Sub
Sub Saveas()

' Saveas Macro
' Macro recorded 10/11/2007 by
'

'
ChDir "R:\Production Reports\Production Summary Report\Daily Production
Summary Copies"
ActiveWorkbook.Saveas Filename:= _
"R:\Production Reports\Production Summary Report\Daily Production Summary
Copies\Production Summary Report777" & Format(Date, "mm-dd-yy") & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub