Kasutate seda makro versiooniajaloo salvestamiseks
On palju töövihikuid, mis tuleks salvestada kindla intervalliga. Kui kasutate alati erinevat nime, saate seejärel täpselt jälgida, millised andmed millisel ajahetkel töövihikust leiti.
Eriti kasulik on faili salvestamisel kasutada kuupäeva ja kellaaja templit. Kasutate failinimena kuupäeva ja kellaaja kombinatsiooni. Näiteks kui fail on salvestatud 27.08.2008 kell 10:32 ja 26 sekundit, on faili nimi järgmine:
20080827-103226
Sellise kuupäeva-kellaaja templi eeliseks on see, et failide kuvamine tähestikulises järjekorras (näiteks Windows Exploreris) vastab ka kronoloogilisele järjestusele.
Praeguste failinimede käsitsi määratlemine on aeganõudev ja veaohtlik. Selle asemel kasutage järgmist makro.
Sub WithTimestampSave ()
Pimendage kuupäeva ajatempel stringina
Hämardage kuupäevaks
Nüüd = praegu ()
Kuupäeva ajatempel = aasta (kuupäev) ja vorming (kuu (kuupäev), "00") ja vorming (päev (kuupäev), "00")
Kuupäeva ajatempel = Kuupäeva ajatempel & "-" & vorming (Tund (praegu), "00") ja vorming (minut (praegu), "00") ja vorming (teine (praegu), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & date tempel & ".xls")
End Sub
Makrole helistamisel salvestatakse aktiivne töövihik uuesti eelmisele salvestusteele. Faili nimena kasutatakse kuupäeva ja kellaaja templit, nagu on näidatud järgmisel joonisel:
Kui soovite ka selle akna oma makrosse kaasata, integreerige järgmine programmirida eraldi uue reaga rea ette End Sub:
MsgBox (ActiveWorkbook.Path)
