G
Guest
If I use the MkDir command to make a new folder then use the save as command
to save an open file under a different name,
how do I change the save as code to direct the new file to save in the new
folder?
Dan
' Variable FolderNme
' Variable FstNme
' Variable LstNme
FolderNme = "C:\Documents and Settings\All Users\" & _
"Documents\OFFICE SKILLS\" & (FstNme & " " & LstNme)
On Error Resume Next
MkDir FolderNme
On Error GoTo 0
Workbooks.Open Filename:= _
"C:\Documents and Settings\All Users\Documents\" & _
"OFFICE SKILLS\Invoice_AND_Total_Sheet.xls"
' Workbooks("Invoice_AND_Total_Sheet.xls").SaveAs _
' "C:\Documents and Settings\All Users\" & _
' "Documents\OFFICE SKILLS\" & _ (FolderNme) & _
' "Invoice_AND_Total_Sheet.xls"
to save an open file under a different name,
how do I change the save as code to direct the new file to save in the new
folder?
Dan
' Variable FolderNme
' Variable FstNme
' Variable LstNme
FolderNme = "C:\Documents and Settings\All Users\" & _
"Documents\OFFICE SKILLS\" & (FstNme & " " & LstNme)
On Error Resume Next
MkDir FolderNme
On Error GoTo 0
Workbooks.Open Filename:= _
"C:\Documents and Settings\All Users\Documents\" & _
"OFFICE SKILLS\Invoice_AND_Total_Sheet.xls"
' Workbooks("Invoice_AND_Total_Sheet.xls").SaveAs _
' "C:\Documents and Settings\All Users\" & _
' "Documents\OFFICE SKILLS\" & _ (FolderNme) & _
' "Invoice_AND_Total_Sheet.xls"