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

 

[frank_AL]

Mel,

I accomplished this in a project as follows:

' Establish 2 variables
Dim ReportDate as String
Dim Fname as String

' Store Today's Date to ReportDate
ReportDate = Today()
ReportDate = Format(ReportDate, "dd-mm-yy"
Fname = ActiveWorkbook.name & "_" & ReportDate

' Then when saving the file set filename = Fname
fineName:=Fname

 

[Mel Smith]

Many thanks, Frank!

Mel

 

[Mel Smith]

I typed in frank-AL's solution but the macro 'hung' at the line ReportDate = Today()

Have I done something wrong or is there another way to do this?

Mel

 

[Fluff]

How about

Sub Chk()
   Dim Fname As String
   Fname = ActiveWorkbook.Name & Format(Date, "ddmmyy")
   ActiveWorkbook.SaveAs Fname, 52
   
End Sub

This will save as an .xlsm workbook

 

[Mel Smith]

Thanks, Fluff. Can you tell me what the Fname, 52 means, please?

 

[Fluff]

Fname is the file name (created on the line of code above the save as)
52 is the file format, which is an xlsm file

 

[Mel Smith]

Thank you very much.

Mel

 

[Fluff]

Your welcome

 

[Mel Smith]

Sorry to be a pain... Your code works fine, thanks. However, it saves the new file to my OneDrive documents and I really want it to be saved to my C: drive/My Documents. How may I achieve this?
Mel