Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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" |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
MkDir and Save As
Workbooks.Open Filename:= _
"C:\Documents and Settings\All Users\Documents\" & _ "OFFICE SKILLS\Invoice_AND_Total_Sheet.xls" Workbooks("Invoice_AND_Total_Sheet.xls").SaveAs _ FolderNme & _ "\" & "Invoice_AND_Total_Sheet.xls" -- Regards, Tom Ogilvy "wtpcomplab" wrote in message ... 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" |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
MkDir and Save As
Thank's :) "Tom Ogilvy" wrote: Workbooks.Open Filename:= _ "C:\Documents and Settings\All Users\Documents\" & _ "OFFICE SKILLS\Invoice_AND_Total_Sheet.xls" Workbooks("Invoice_AND_Total_Sheet.xls").SaveAs _ FolderNme & _ "\" & "Invoice_AND_Total_Sheet.xls" -- Regards, Tom Ogilvy "wtpcomplab" wrote in message ... 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" |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
mkdir command in excel 2003 on XP SP2 | New Users to Excel | |||
mkdir problem | Excel Programming | |||
mkdir problem | Excel Programming | |||
Shell "mkdir" | Excel Programming | |||
MkDir error | Excel Programming |