Du bruger denne makro til at registrere en versionshistorik
Der er mange projektmapper, der skal gemmes med faste intervaller. Hvis du altid bruger et andet navn, kan du derefter følge præcis, hvilke data der blev fundet i projektmappen på hvilket tidspunkt.
Det er især nyttigt at bruge et dato-tidsstempel, når filen gemmes. Du bruger en kombination af dato og klokkeslæt som filnavn. For eksempel, hvis filen gemmes den 27/08/2008 kl. 10:32 og 26 sekunder, er filnavnet:
20080827-103226
Fordelen ved et sådant dato-tidsstempel er, at visningen af filerne i alfabetisk rækkefølge (f.eks. Med Windows Stifinder) også svarer til den kronologiske rækkefølge.
Manuelt at definere de aktuelle filnavne er tidskrævende og tilbøjelig til fejl. Brug i stedet følgende makro:
Sub WithTimestampSave ()
Dim dato tidsstempel som streng
Dim nu som dato
Nu = Nu ()
Dato tidsstempel = År (Dato) & Format (Måned (Dato), "00") & Format (Dag (Dato), "00")
Date Time Stamp = Date Time Stamp & "-" & Format (Time (Now), "00") & Format (Minute (Now), "00") & Format (Second (Now), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & datostempel & ".xls")
Afslut Sub
Når du kalder makroen, gemmes den aktive projektmappe igen i den forrige lagringssti. Dato-tidsstemplet bruges som filnavn, som vist i følgende figur:
Hvis du også vil medtage dette vindue i din makro, skal du integrere følgende programlinje som en separat, ny linje foran linjen Afslut Sub:
MsgBox (ActiveWorkbook.Path)