Šią makrokomandą naudojate versijų istorijai įrašyti
Yra daug darbo knygų, kurios turėtų būti išsaugotos nustatytais intervalais. Jei visada naudojate kitą pavadinimą, galite tiksliai sekti, kokie duomenys tam tikru metu buvo rasti darbaknygėje.
Išsaugojant failą ypač naudinga naudoti datos ir laiko žymę. Kaip failo pavadinimą naudojate datos ir laiko derinį. Pavyzdžiui, jei failas buvo išsaugotas 2008-08-27 10:32 ir 26 sekundes, failo pavadinimas yra:
20080827-103226
Tokios datos ir laiko žymos pranašumas yra tas, kad failų rodymas abėcėlės tvarka (pavyzdžiui, naudojant „Windows Explorer“) taip pat atitinka chronologinę tvarką.
Dabartinių failų pavadinimų rankinis apibrėžimas užima daug laiko ir yra linkęs į klaidas. Vietoj to naudokite šią makrokomandą:
Sub WithTimestampSave ()
Pritemdyti datos laiko žymę kaip eilutę
Pritemdyti dabar kaip datą
Dabar = dabar ()
Datos laiko žymė = metai (data) ir formatas (mėnuo (data), „00“) ir formatas (diena (data), „00“)
Datos laiko žyma = datos laiko žyma & "-" ir formatas (Valanda (dabar), "00") ir formatas (minutė (dabar), "00") ir formatas (antras (dabar), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & datos antspaudas & ".xls")
Pabaiga Sub
Kai iškviečiate makrokomandą, aktyvi darbaknygė vėl įrašoma į ankstesnį saugojimo kelią. Datos ir laiko antspaudas naudojamas kaip failo pavadinimas, kaip parodyta šiame paveikslėlyje:
Jei taip pat norite įtraukti šį langą į savo makrokomandą, integruokite šią programos eilutę kaip atskirą naują eilutę prieš eilutę Pabaiga Sub:
„MsgBox“ („ActiveWorkbook.Path“)
