View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
wtpcomplab wtpcomplab is offline
external usenet poster
 
Posts: 16
Default MkDir and Save As

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"