VBA Code to save workbook as "filename" and current date

[chrissmarlow]

Hi guys,

I am looking for code to add to the end of my macro which will save the file as "SRS Sheet - " and then the current date. I want it to save in a folder within the path the current workbook is located, ie. T:\Macrosheet is where the file is now, I want it to save to T:\Macrosheet\Reports

Can anyone help me out with this?

 

[Blade Hunter]

Can you please do this for me before the SaveAs line:

debug.print NewPath

Then go to the debug window (ctrl-G) and copy what is in there then paste it in a reply on here for me.

 

[Blade Hunter]

Or just use Vog's code slightly modified:

ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\SRS Sheet - " & Format(Date, "dd-mm-yyyy") & ".xlsm",52

 

[udarawic]

Extremely sorry for the mistake.. When I use above codlings it was automatically saved self.

Now all good.

Thx Blade for great support

Private Sub CommandButton3_Click()
NewPath = Mid(ThisWorkbook.FullName, 1, _
Len(ThisWorkbook.FullName) - Len(ThisWorkbook.Name)) & "\" & "Dunnings Report - " & Format(Date, "dd-mm-yyyy") & ".xlsm"
ThisWorkbook.SaveAs (NewPath)
End Sub

 

[udarawic]

This is really a great answer mate... Which includes 52 rather than xls format

 

[CDThe1]

Old thread, I know. But I'm new here.

I need a code that would save to a full path (very different from where the workbook may be saved). I have VBA that sends e-mails as body and attachment, but I need to save the workbook prior to sending the e-mail.