SaveAs uses current open workbook filename;

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello:
I am looking for help on some "wildcard" type characters to use in a SaveAs
command that will default to using the file name of the workbook I am
currently wishing to save.

or, alternately

Looking for help with how to specify a complete path using the Save command.

I wish to not have to type in the name of the file, or rename it each time.
I also hope to be to add commands to include saving the .xls and .csv to an
ftp site as well. Current code below:

'
Rows("6:1000").Select
Selection.Sort Key1:=Range("C6"), Order1:=xlAscending, Key2:=Range("D6") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal,
DataOption2 _
:=xlSortNormal
Columns("F:F").Select
Selection.NumberFormat = "mm/dd/yy;@"
Columns("B:R").Select
Selection.Columns.AutoFit
Range("A1").Select
Application.DisplayAlerts = False
ChDrive ("W")
ChDir "W:\PURCHASE\SF PRODUCTION Reports"
ActiveWorkbook.SaveAs FileFormat:= _
xlCSV, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWorkbook.SaveAs FileFormat:= _
xlNormal, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
End Sub
 
I am looking to use the saveas command, to specify the path, and then default
to the name of the active work book for the file name. With no prompts.
 
You mean something like :

Workbooks("SomeOther.xls").SaveAs ActiveWorkbook.Name
This will not work, because you cannot have 2 WBs with the same name open in
the same instance of Excel.

NickHK
 
Back
Top