Folosiți această macrocomandă pentru a înregistra un istoric al versiunilor
Există multe registre de lucru care ar trebui salvate la intervale fixe. Dacă utilizați întotdeauna un nume diferit, puteți urmări exact ce date au fost găsite în registrul de lucru în ce moment.
Este deosebit de util să utilizați o ștampilă dată-oră atunci când salvați fișierul. Utilizați o combinație de dată și oră ca nume de fișier. De exemplu, dacă fișierul este salvat pe 27.08.2008 la 10:32 și 26 de secunde, numele fișierului este:
20080827-103226
Avantajul unei astfel de ștampile de dată și oră este că afișarea fișierelor în ordine alfabetică (de exemplu, cu Windows Explorer) corespunde și ordinii cronologice.
Definirea manuală a fișierelor curente necesită mult timp și este predispusă la erori. În schimb, utilizați următoarea macro:
Sub Cu TimestampSave ()
Reduceți marcajul de timp pentru dată ca șir
Diminuează acum ca dată
Acum = Acum ()
Data ștampilei = Anul (Data) și formatul (luna (data), „00”) și formatul (ziua (data), „00”)
Data Time Stamp = Data Time Stamp & "-" & Format (Hour (Now), "00") & Format (Minute (Now), "00") & Format (Second (Now), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & data stamp & ".xls")
Sfârșitul Sub
Când apelați macro-ul, registrul de lucru activ este salvat din nou în calea de stocare anterioară. Ștampila dată-oră este utilizată ca nume de fișier, așa cum se arată în figura următoare:
Dacă doriți, de asemenea, să includeți această fereastră în macrocomanda dvs., integrați următoarea linie de program ca o linie separată, nouă în fața liniei Sfârșitul Sub:
MsgBox (ActiveWorkbook.Path)
