Ezzel a makróval verzióelőzményeket rögzíthet
Sok munkafüzetet kell rögzített időközönként menteni. Ha mindig más nevet használ, akkor pontosan követheti, hogy mely adatok milyen időpontban találhatók a munkafüzetben.
Különösen hasznos a dátum-idő bélyegző használata a fájl mentésekor. Fájlnévként a dátum és az idő kombinációját használja. Például, ha a fájl mentése 2008.08.27 -én 10:32 és 26 másodperc, a fájl neve:
20080827-103226
Az ilyen dátum-időbélyegző előnye, hogy a fájlok ábécé sorrendben történő megjelenítése (például a Windows Intézővel) szintén megfelel az időrendnek.
Az aktuális fájlnevek kézi meghatározása időigényes és hibalehetőséget jelent. Ehelyett használja a következő makrót:
Sub WithTimestampSave ()
A dátum időbélyegének halványítása karakterláncként
Halványítsd el most dátumként
Most = Most ()
Dátum időbélyegző = év (dátum) és formátum (hónap (dátum), "00") és formátum (nap (dátum), "00")
Dátum Időbélyegző = Dátum Időbélyegző & "-" & Formátum (Óra (Most), "00") & Formátum (Perc (Most), "00") és Formátum (Második (Most), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & date bélyegző & ".xls")
End Sub
Amikor meghívja a makrót, az aktív munkafüzet ismét mentésre kerül az előző tárolási útvonalhoz. Fájlnévként a dátum-idő bélyegzőt használjuk, az alábbi ábrán látható módon:
Ha ezt az ablakot is be szeretné illeszteni a makrójába, integrálja a következő programsort külön, új sorként a sor elé End Sub:
MsgBox (ActiveWorkbook.Path)
