Du använder det här makrot för att spela in en versionshistorik
Det finns många arbetsböcker som ska sparas med fasta intervall. Om du alltid använder ett annat namn kan du sedan följa exakt vilken data som hittades i arbetsboken vid vilken tidpunkt.
Det är särskilt användbart att använda en datum-tidsstämpel när du sparar filen. Du använder en kombination av datum och tid som filnamn. Om filen till exempel sparas den 27/08/2008 kl. 10:32 och 26 sekunder, är filnamnet:
20080827-103226
Fördelen med en sådan datum-tidsstämpel är att visningen av filerna i alfabetisk ordning (till exempel med Windows Explorer) också motsvarar den kronologiska ordningen.
Att definiera de nuvarande filnamnen manuellt är tidskrävande och felaktigt. Använd istället följande makro:
Sub WithTimestampSave ()
Dim datum tidsstämpel som sträng
Dim nu som datum
Nu = Nu ()
Datumstämpel = År (Datum) & Format (Månad (Datum), "00") & Format (Dag (Datum), "00")
Date Time Stamp = Date Time Stamp & "-" & Format (Hour (Now), "00") & Format (Minute (Now), "00") & Format (Second (Now), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & date stamp & ".xls")
Avsluta Sub
När du anropar makrot sparas den aktiva arbetsboken igen i den tidigare lagringsvägen. Datum-tidsstämpeln används som filnamn, som visas i följande bild:
Om du också vill inkludera det här fönstret i ditt makro, integrera följande programrad som en separat ny rad framför raden Avsluta Sub:
MsgBox (ActiveWorkbook.Path)
