Macro to save workbook with cell adress as file name to othe

[Guest]

I have a workbook that I want to save using information in a cell as the file name. I want this workbook to be saved to a location on our server rather than the default location in my hard drive. I've written some code as shown below. I've got the first part of the code worked out but I'm still having a problem with it saving to the server instead of my hard drive.


Private Sub CommandButton3_Click()
ThisFile = Range("G3") & Range("I3").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
ActiveWorkbook.SaveAs Filename:= _ (maybe here to)
"\Pchq7ntoffshoreMaintenanceSouth Tim FormsWork OrdersUncompleted Work Orders????????????????????? _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

 

[Juan Pablo González]

On 2002-02-19 06:07, Anonymous wrote:
I have a workbook that I want to save using information in a cell as the file name. I want this workbook to be saved to a location on our server rather than the default location in my hard drive. I've written some code as shown below. I've got the first part of the code worked out but I'm still having a problem with it saving to the server instead of my hard drive.


Private Sub CommandButton3_Click()
ThisFile = Range("G3") & Range("I3").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
ActiveWorkbook.SaveAs Filename:= _ (maybe here to)
"Pchq7ntoffshoreMaintenanceSouth Tim FormsWork OrdersUncompleted Work Orders????????????????????? _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

Try with

ActiveWorkbook.SaveAs Filename:= _ (maybe here to)
"Pchq7ntoffshoreMaintenanceSouth Tim FormsWork OrdersUncompleted Work Orders" & ThisFile _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

 

[Juan Pablo González]

Should appear like this

"\Pchq7ntoffshoreMaintenanceSouth Tim FormsWork OrdersUncompleted Work Orders" & ThisFile