Save As

O

Orf Bartrop

How would I go about saving a workbook to another name that contains the
date and time? Let's say the original file is called "Book." What I
would like to do is have a macro that saves "Book" as "Book-yy-mm-dd-hh-mm"
Any suggestions?
 
D

Dave Peterson

One way:

Option Explicit
Sub testme01()

Dim myName As String

With ActiveWorkbook
myName = .Name

myName = Application.Substitute(LCase(myName), ".xls", "") & _
"_" & Format(Now, "yyyy-mm-dd-hh-mm")


.SaveAs Filename:=.Path & "\" & myName

'.SaveCopyAs Filename:=.Path & "\" & myName
End With

End Sub

Take a look at .savecopyas in VBA's help. You'll see that it makes a backup of
the file without saving the current file--or changing its name. (It may be
useful--one day?)
 
Top