Je gebruikt deze macro om een versiegeschiedenis vast te leggen
Er zijn veel werkmappen die met vaste tussenpozen moeten worden bewaard. Gebruik je altijd een andere naam, dan kun je precies volgen welke gegevens op welk moment in de werkmap zijn gevonden.
Het is vooral handig om een datum-tijdstempel te gebruiken bij het opslaan van het bestand. U gebruikt een combinatie van datum en tijd als bestandsnaam. Als het bestand bijvoorbeeld is opgeslagen op 27-08-2008 om 10:32 en 26 seconden, is de bestandsnaam:
20080827-103226
Het voordeel van zo'n datum-tijdstempel is dat de weergave van de bestanden in alfabetische volgorde (bijvoorbeeld met Windows Verkenner) ook overeenkomt met de chronologische volgorde.
Het handmatig definiëren van de huidige bestandsnamen is tijdrovend en foutgevoelig. Gebruik in plaats daarvan de volgende macro:
Sub Met Tijdstempel Opslaan ()
Dim datum tijdstempel As String
Dim nu als datum
Nu = Nu ()
Datum tijdstempel = Jaar (Datum) & Formaat (Maand (Datum), "00") & Formaat (Dag (Datum), "00")
Datum Tijdstempel = Datum Tijdstempel & "-" & Opmaak (Uur (Nu), "00") & Opmaak (Minuut (Nu), "00") & Opmaak (Second (Nu), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & datumstempel & ".xls")
Einde sub
Wanneer u de macro oproept, wordt de actieve werkmap opnieuw opgeslagen in het vorige opslagpad. De datum-tijdstempel wordt gebruikt als de bestandsnaam, zoals weergegeven in de volgende afbeelding:
Als u dit venster ook in uw macro wilt opnemen, integreert u de volgende programmaregel als een aparte, nieuwe regel voor de regel Einde sub:
MsgBox (ActiveWorkbook.Path)
