Овај макро користите за снимање историје верзија
Постоји много радних свески које треба чувати у одређеним интервалима. Ако увек користите друго име, тада можете тачно да пратите који су подаци пронађени у радној свесци у ком тренутку.
Посебно је корисно користити датум-време при чувању датотеке. За назив датотеке користите комбинацију датума и времена. На пример, ако је датотека сачувана 27.8.2008. У 10:32 и 26 секунди, назив датотеке је:
20080827-103226
Предност такве ознаке датума и времена је у томе што приказ датотека по абецедном реду (на пример у Виндовс Екплореру) такође одговара хронолошком редоследу.
Ручно дефинисање тренутних имена датотека одузима много времена и подложно је грешкама. Уместо тога, користите следећи макро:
Суб ВитхТиместампСаве ()
Затамните временску ознаку датума као низ
Затамни сада као датум
Сада = Сада ()
Ознака датума = година (датум) & формат (месец (датум), "00") и формат (дан (датум), "00")
Датум Временска ознака = Датум и временска ознака & "-" & Формат (Сат (сада), "00") & Формат (Минута (Тренутно), "00") & Формат (други (Сада), "00")
АцтивеВоркбоок.СавеАс (ТхисВоркбоок.Патх & "\" & датум стамп & ".клс")
Енд Суб
Када позовете макро, активна радна свеска се поново чува на претходној путањи за складиштење. Ознака датума и времена користи се као назив датотеке, као што је приказано на следећој слици:
Ако и овај прозор желите да укључите у свој макро, интегришите следећу програмску линију као засебну, нову линију испред линије Енд Суб:
МсгБок (АцтивеВоркбоок.Патх)
