Ovu makronaredbu koristite za snimanje povijesti verzija
Postoji mnogo radnih knjiga koje treba spremati u određenim intervalima. Ako uvijek koristite drugo ime, tada možete točno pratiti koji su podaci u kojem trenutku pronađeni u radnoj knjizi.
Prilikom spremanja datoteke osobito je korisno koristiti oznaku datuma i vremena. Za naziv datoteke koristite kombinaciju datuma i vremena. Na primjer, ako je datoteka spremljena 27.8.2008. U 10:32 i 26 sekundi, naziv datoteke je:
20080827-103226
Prednost takve oznake datuma i vremena je u tome što prikaz datoteka abecednim redom (na primjer u Windows Exploreru) također odgovara kronološkom redoslijedu.
Ručno definiranje trenutnih naziva datoteka dugotrajno je i sklono je pogreškama. Umjesto toga upotrijebite sljedeću makronaredbu:
Sub WithTimestampSave ()
Zatamnite datumsku oznaku datuma kao niz
Zatamni sada kao datum
Sada = Sada ()
Oznaka datuma = godina (datum) & format (mjesec (datum), "00") i format (dan (datum), "00")
Oznaka datuma = Vremenska oznaka datuma & "-" & Format (Sat (sada), "00") & Format (minuta (sada), "00") & Format (drugi (sada), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & pečat datuma & ".xls")
Kraj podm
Kad pozovete makronaredbu, aktivna radna knjiga ponovno se sprema na prethodnu putanju pohrane. Oznaka datuma i vremena koristi se kao naziv datoteke, kao što je prikazano na sljedećoj slici:
Ako i ovaj prozor želite uključiti u svoj makro, integrirajte sljedeću programsku liniju kao zasebnu, novu liniju ispred retka Kraj podm:
MsgBox (ActiveWorkbook.Path)
