File Save Name to Include System date and time

[silknowles]

I'm trying to create a new name each time I save a file by including the system date and time in the name. How do I do this in VBA code?

Susan

 

[silknowles]

I figured out the solution! I'm putting it here in case others have the same puzzling situation:

Dim SendPath, NameFile, SaveAsFile
'
Application.DisplayAlerts = False
'
SendPath = "\\ServerName\DirectoryName\Store01\"
NameFile = "RegularStore01_"
'
SaveAsFile = Application.Text(Now(), "yyyy mm d hh mm AM/PM&quot
'
NameFile = NameFile & SaveAsFile & ".csv"
ChDir SendPath
ActiveWorkbook.SaveAs Filename:=SendPath & NameFile, _
FileFormat:=xlCSV, CreateBackup:=False
'
Application.DisplayAlerts = True


This results in a file saved as "RegularStore01_2001 10 25 02 45 PM" when the system date was October 25, 2001 2:45 PM