Trying to enter a Date string into this peice of code

[JamesFlowers]

Hi,

I am creating a macro to automatically save the workbook to a file with the sysdate and time.

Here is the code

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\james_f\Desktop\Product List Requests Sheet.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Our point for doing this to create a unique file each time it is run and to be saved for client distribution and then historical reference.

Many Thanks

James Flowers James Flowers

http://www.trikon.com

 

[GoodOmens]

Do you want the date and time in the document name? Perhaps this will work for you:

dim sNow as string

sNow = format(Now(), "dd-mm-yyyy hh mmAM/PM&quot
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\james_f\Desktop\Product List Requests Sheet " & sNow & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

 

[RobBroekhuis]

And if you also want them to sort properly in alpha order, you might try
sNow=format(Now(), "yyyy-mm-dd Hh-mm&quot

Rob