Version Identification

ExecEd · Apr 29th, 2002, 01:28 PM

With minute variations and edits from version to version, keeping soft and hard copies of generations of spreadsheets can be challenging.

I already name the files as FILE20020429 but are their other ways to track versions?

Thanks for any brainstorming you can provide!

Chris Davison · Apr 29th, 2002, 02:41 PM

include the time in the filename ?

thusly YYYYMMDDHHMM.xls

I'm sure the VBA guys could ship up somethign that does this at the touch of a button

edit........ typo : I meant "whip up something"

[ This Message was edited by: Chris Davison on 2002-04-29 13:42 ]

Jay Petrulis · Apr 29th, 2002, 02:53 PM

Following Chris' suggestion, use the following as the Filename in your SaveAs code.

Format(Now, "YYYYMMDDHHMM") & ".xls"

The .xls may not be necessary, so give this a try with and without that part.

Bye,
Jay

ExecEd · Apr 29th, 2002, 03:06 PM

I must profess ignorance:

What do you mean by the "SaveAs code?"

Thanks for the help!

Jay Petrulis · Apr 29th, 2002, 03:24 PM

Hi,

1. Copy the routine posted below

2. Right click on the Excel icon at the top of the window, next to the File option in the worksheet menu bar

3. Choose View Code

4. Paste the copied routine

'----------------
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim StrNameFile As String
StrNameFile = "FILE" & Format(Now, "YYYYMMDDHHMM") & ".xls"
ThisWorkbook.SaveAs FileName:=StrNameFile

End Sub
'---------------

Whenever you click the save button, this will save the workbook with the file name/date/time.

Bye,
Jay

ExecEd · Jun 7th, 2002, 02:36 PM

By the way, this worked and I've incorporated the code in several macros I've created since.

Thanks.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Apr 29th, 2002, 01:28 PM	#1
ExecEd New Member Join Date: Apr 2002 Location: NY, NY Posts: 31	With minute variations and edits from version to version, keeping soft and hard copies of generations of spreadsheets can be challenging. I already name the files as FILE20020429 but are their other ways to track versions? Thanks for any brainstorming you can provide!

Apr 29th, 2002, 02:41 PM	#2
Chris Davison MrExcel MVP Join Date: Feb 2002 Location: Millbank, London, UK Posts: 1,790	include the time in the filename ? thusly YYYYMMDDHHMM.xls I'm sure the VBA guys could ship up somethign that does this at the touch of a button edit........ typo : I meant "whip up something" [ This Message was edited by: Chris Davison on 2002-04-29 13:42 ]

Apr 29th, 2002, 02:53 PM	#3
Jay Petrulis MrExcel MVP Join Date: Mar 2002 Location: Chicago, IL USA Posts: 2,042	Following Chris' suggestion, use the following as the Filename in your SaveAs code. Format(Now, "YYYYMMDDHHMM") & ".xls" The .xls may not be necessary, so give this a try with and without that part. Bye, Jay

Apr 29th, 2002, 03:06 PM	#4
ExecEd New Member Join Date: Apr 2002 Location: NY, NY Posts: 31	I must profess ignorance: What do you mean by the "SaveAs code?" Thanks for the help!

Apr 29th, 2002, 03:24 PM	#5
Jay Petrulis MrExcel MVP Join Date: Mar 2002 Location: Chicago, IL USA Posts: 2,042	Hi, 1. Copy the routine posted below 2. Right click on the Excel icon at the top of the window, next to the File option in the worksheet menu bar 3. Choose View Code 4. Paste the copied routine '---------------- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim StrNameFile As String StrNameFile = "FILE" & Format(Now, "YYYYMMDDHHMM") & ".xls" ThisWorkbook.SaveAs FileName:=StrNameFile End Sub '--------------- Whenever you click the save button, this will save the workbook with the file name/date/time. Bye, Jay

Jun 7th, 2002, 02:36 PM	#6
ExecEd New Member Join Date: Apr 2002 Location: NY, NY Posts: 31	By the way, this worked and I've incorporated the code in several macros I've created since. Thanks.