Trying to save as 'filename'

[viggie79]

Hello, I'm having trouble with what should be a very easy excel problem.

I am opening a file from my desktop and running it through a macro. I then need to save it to a specific folder and would like the macro to do this for me.
I tried just recording a macro:

 ActiveWorkbook.SaveAs Filename:= _
"C:\Users\rr235108\Desktop\xmacrostuffx\Export_12-18-15.xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

The name of this file is "Export_12-18-15" but each day it will be a different file name: export_12-19-15, export_12-20-15 etc. but this macro will save every file as "export_12-18-15.xls", correct? How do I work around this?

 

[Momentman]

try

Sub savename()
    ActiveWorkbook.SaveAs Filename:= _
"C:\Users\rr235108\Desktop\xmacrostuffx\Export_" & Format(Date, "mm-dd-yy") & ".xls", _
FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub

 

[viggie79]

This works great for my problem, thank you so much! What if my filename was something that I couldn't fix up using the Date format, like 'Day1File', 'Day2File', 'Day3File' etc.? There must be a simple way to just save as the current filename. For example, when I save as by clicking manually, the filename field above the file type is populated automatically with the current name of the file. How can I replicate that in a macro?

 

[viggie79]

I found what I was looking for here Save as File with Same File Name | Chandoo.org Excel Forums - Become Awesome in Excel
For anyone else looking for the same thing I was; ActiveWorkbook.Name works as a variable in this case.
Final product would look something like this

ActiveWorkbook.SaveAs Filename:= _        "C:\folder\location\path\" & ActiveWorkbook.Name, FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False