Save File with Time Stamp

[nniedzielski]

I am running a macro that finishes by saving the file to a new path, while Killing the Old File. Which is awesome. How though can I get the file to save as with the file name being "ITA with the date and time it was saved?

So it would save right now as ITA4_29_2016 1527

Yes I would like it to be 24 hour clock if possible as well.

Right now it is just saving as ITA because that was the old name.

heres my code as of right now:

y.Activate        Dim NewPath As String, OldFile As String
    
            NewPath = "C:\IB Macro\ITA USED\"
    
            OldFile = ActiveWorkbook.FullName
            ActiveWorkbook.SaveAs NewPath & ActiveWorkbook.Name
            Kill OldFile

thank you,

 

[Joe4]

What extension is being used to save the file (.xls, .xlsx, etc)?

 

[nniedzielski]

.xls

 

[Joe4]

Try:

            Dim NewPath As String, OldFile As String, NewFile As String
    
            NewPath = "C:\IB Macro\ITA USED\"
    
            OldFile = ActiveWorkbook.FullName
            NewFile = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4) & _
                Format(Now(), "m_d_yyyy hhmm") & ".xls"
            ActiveWorkbook.SaveAs NewPath & NewFile
            Kill OldFile

 

[nniedzielski]

perfect solution,

thank you

 

[Joe4]

You are welcome!