Ta makro uporabljate za snemanje zgodovine različic
Obstaja veliko delovnih zvezkov, ki jih je treba shraniti v določenih časovnih presledkih. Če vedno uporabljate drugo ime, lahko natančno spremljate, kateri podatki so bili v delovnem zvezku v določenem trenutku.
Pri shranjevanju datoteke je še posebej koristno uporabiti žig datuma in časa. Kot ime datoteke uporabite kombinacijo datuma in časa. Na primer, če je datoteka shranjena dne 27.08.2008 ob 10:32 in 26 sekundah, je ime datoteke:
20080827-103226
Prednost takšnega datumsko-časovnega žiga je, da prikaz datotek po abecednem vrstnem redu (na primer z Raziskovalcem Windows) ustreza tudi kronološkemu vrstnemu redu.
Ročno določanje trenutnih imen datotek je dolgotrajno in nagnjeno k napakam. Namesto tega uporabite naslednji makro:
Sub WithTimestampSave ()
Zatemni datumski časovni žig kot niz
Zatemni zdaj kot datum
Zdaj = Zdaj ()
Časovni žig datuma = leto (datum) & oblika (mesec (datum), "00") & oblika (dan (datum), "00")
Datum Časovni žig = Datum časovni žig & "-" & Oblika (ura (zdaj), "00") & Oblika (minuta (zdaj), "00") & Oblika (druga (zdaj), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & datumski žig & ".xls")
End Sub
Ko pokličete makro, se aktivni delovni zvezek znova shrani na prejšnjo pot shranjevanja. Kot ime datoteke se uporablja žig datuma in časa, kot je prikazano na naslednji sliki:
Če želite tudi to okno vključiti v svoj makro, vključite naslednjo programsko vrstico kot ločeno, novo vrstico pred vrstico End Sub:
MsgBox (ActiveWorkbook.Path)