Is this poosible - a macro to 'Save As' with incremental date

[Mel Smith]

I am trying to automate the extraction/copying of data from a master workbook into a 'daily' workbook. The copying and pasting etc. I can do but what I would also like to include in my code is to do a Save As of my 'new' daily workbook with each days date. So today it will be called MRE_040118, tomorrow MRE_050118 and so on. Is this possible?

Mel

 

[Fluff]

Try

Sub Chk()
   Dim Fname As String
   Fname = ActiveWorkbook.Name & Format(Date, "ddmmyy")
   ActiveWorkbook.SaveAs "C:\Users\[COLOR=#ff0000]Fluff[/COLOR]\Documents\" & Fname, 52
   
End Sub

Change the value in red to your username

 

[Mel Smith]

Doh! Thank you very much.
Mel

 

[Fluff]

Glad to help

 

[Mel Smith]

Fluff, sorry - me again.

The code works and saves the file to the correct place. Unfortunately, when I go to this new file's location to open the new file, I cannot. It doesn't appear to be saved to any particular file format and when I try to open it I am directed to the App Store but that doesn't bring up Excel as an option...

 

[Mel Smith]

I changed the last line to read:

& Fname, xlsm and this seems to have worked. Thanks for your help.

Mel

 

[Mel Smith]

I still can't get this to work. The line that is the problem is: ActiveWorkbook.SaveAs "C:\Users\Fluff\Documents" & Fname, 52

Using this line the workbook saves but not in any usable format. I'm trying to get it to Save As ....Documents" & Fname.xlsm

Can anyone help, please?

 

[Fluff]

Not sure why that's not working for you, but try

Sub Chk()
   Dim Fname As String
   Fname = ActiveWorkbook.Name & Format(Date, "ddmmyy") & ".xlsm"
   ActiveWorkbook.SaveAs "C:\Users\Fluff\Documents\" & Fname, 52
   
End Sub

 

[Mel Smith]

Thanks, Fluff. All sorted.

M