Toto makro používáte k záznamu historie verzí
Existuje mnoho sešitů, které by měly být ukládány v pevných intervalech. Pokud vždy používáte jiný název, můžete pak přesně sledovat, která data byla v jakém časovém okamžiku nalezena v sešitu.
Při ukládání souboru je zvláště užitečné použít razítko data a času. Jako název souboru používáte kombinaci data a času. Pokud je například soubor uložen 27. 8. 2008 v 10:32 a 26 sekund, název souboru je:
20080827-103226
Výhodou takového razítka data a času je, že chronologicky odpovídá také zobrazení souborů v abecedním pořadí (například pomocí Průzkumníka Windows).
Ruční definování aktuálních názvů souborů je časově náročné a náchylné k chybám. Místo toho použijte následující makro:
Sub WithTimestampSave ()
Ztlumit časové razítko data jako řetězec
Dim Now As Date
Nyní = Nyní ()
Časové razítko data = rok (datum) & formát (měsíc (datum), "00") a formát (den (datum), "00")
Razítko data = razítko data & &--& & formát (hodina (nyní), "00") & formát (minuta (nyní), "00") a formát (sekunda (nyní), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & date stamp & ".xls")
End Sub
Když zavoláte makro, aktivní sešit se znovu uloží do předchozí cesty k úložišti. Jako název souboru se používá razítko data a času, jak ukazuje následující obrázek:
Pokud chcete také zahrnout toto okno do svého makra, integrujte následující řádek programu jako samostatný nový řádek před řádek End Sub:
MsgBox (ActiveWorkbook.Path)
