Toto makro používate na zaznamenávanie histórie verzií
Existuje mnoho pracovných zošitov, ktoré by sa mali ukladať v pevných intervaloch. Ak vždy použijete iný názov, môžete potom presne sledovať, ktoré údaje sa v akom časovom okamihu našli v zošite.
Pri ukladaní súboru je obzvlášť užitočné použiť pečiatku dátumu a času. Ako názov súboru používate kombináciu dátumu a času. Ak je napríklad súbor uložený 27. 8. 2008 o 10:32 a 26 sekundách, názov súboru je:
20080827-103226
Výhodou takejto pečiatky dátumu a času je, že chronologickému poradiu zodpovedá aj zobrazenie súborov v abecednom poradí (napríklad pomocou programu Windows Prieskumník).
Ručné definovanie aktuálnych názvov súborov je časovo náročné a náchylné na chyby. Namiesto toho použite nasledujúce makro:
Sub WithTimestampSave ()
Stmaviť časovú pečiatku dátumu ako reťazec
Stmaviť ako dátum
Teraz = Teraz ()
Časová pečiatka dátumu = rok (dátum) a formát (mesiac (dátum), „00“) a formát (deň (dátum), „00“)
Dátumová pečiatka = Dátumová časová pečiatka & "-" & Formát (hodina (teraz), "00") a formát (minúta (teraz) "00") a formát (sekunda (teraz), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & date stamp & ".xls")
Koniec pod
Keď zavoláte makro, aktívny zošit sa znova uloží na predchádzajúcu cestu k úložisku. Ako názov súboru sa používa pečiatka dátumu a času, ako je znázornené na nasledujúcom obrázku:
Ak chcete do makra zahrnúť aj toto okno, integrujte nasledujúci riadok programu ako samostatný nový riadok pred riadok. Koniec pod:
MsgBox (ActiveWorkbook.Path)
