macro to add system date to filename during save

I used Windows to rename the file. The example workbook is at http://vbaexpress.com/kb/getarticle.php?kb_id=1041

Here is the code if you want to explore the methods that I designed.

Please Login or Register  to view this content.

Thank you very much for the response, but I'm not smart enough to figure that out. I downloaded the example workbook and the buttons produced the message boxes, but did not create additional copies of the workbook (I think that is what it was supposed to do). I'm running excel 2007, so I'm not sure if that is an issue or if I just don't have an understanding of what the expected outcome should've been.

The goal is to generate a unique filename. Take that name and put it in your SaveAs routine.

Originally Posted by paintballlovr

I'm looking to see if there is a way to have a macro add a date to part of a filename, while it's saving the file to another directory. Here is the macro as it stands right now(?s are place holders and not actually in the macro):

ChDir "X:\Databases\Cash_Reconciliation\Input"
ActiveWorkbook.SaveAs Filename:= _
"X:\Databases\Cash_Reconciliation\Input\lockbox_ach????.xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ChDir "X:\Databases\Mainframe_Files"
ActiveWorkbook.SaveAs Filename:= _
"X:\Databases\Mainframe_Files\TNMC_Lockbox????.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

The current macro runs fine the first time, but without a change in the filename, the second time it is ran, the user is prompted if they want to replace the file thats already there. My question is if there is code that will enter a date where the ?'s are. The solution doesn't have to be a date, that was just the first thing I thought of that would make the files unique.

Add this to your code in place of the ????:
Year(Now()) & Month(Now()) & Day(Now()) & Timer
note: "Timer" is seconds after midnight. Adding it will handle multiple saves within the same day.
It will return a string formatted as YYYYMMDDSSSSS.SS ("201371241147.86").