Adding date for filename

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

Guest

How do automatically add date to my filename upon saving? I need to regularly
keep track of movements and need a daily backup of the excel file.
 
This would require a "Before Save" macro. If you are sure you want to add
VBA to your workbook just for this function, then post back and someone will
help.

Vaya con Dios,
Chuck, CABGx3
 
Put this code into the Codemodule of the ThisWorkbook Object.

It will save a dated/timed copy whenever you save. It can be modified to only save a dated copy,
overwriting the previous saved copies from that day...

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then Exit Sub
MsgBox "I'm about to save a dated copy...."
Application.EnableEvents = False
ActiveWorkbook.SaveCopyAs Filename:= _
Replace(ActiveWorkbook.Name, ".xls", _
" BU " & Format(Now, " yyyy-mm-dd hh-mm") & ".xls")
Application.EnableEvents = True

End Sub

HTH,
Bernie
MS Excel MVP
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Command Line to Open/Close an Excel Files , macro print it in a designated Folder 1
Import File Information 0
Outlook Looking for macro to save multiple emails as .msg to folder and extracting the invoice ref. from the email body as the filename 4
Excel Import External Data by Date Automatically 0
Question on saving a file. 4
how do I get a macro to save a sheet and set the file name? 1
Adding up total hours worked on employee schedule using various criteria 0
Tracking Access in Read-Only Files 0

Back
Top