Tämän makron avulla voit tallentaa versiohistorian
On monia työkirjoja, jotka on tallennettava tietyin väliajoin. Jos käytät aina toista nimeä, voit seurata tarkasti, mitkä tiedot työkirjasta löytyivät milloin tahansa.
On erityisen hyödyllistä käyttää päivämäärä- ja aikaleimaa tiedoston tallennuksen aikana. Käytät tiedostonimenä päivämäärän ja kellonajan yhdistelmää. Jos tiedosto on esimerkiksi tallennettu 27.8.2008 klo 10.32 ja 26 sekuntia, tiedoston nimi on:
20080827-103226
Tällaisen päivämäärä-aikaleiman etu on, että tiedostojen näyttö aakkosjärjestyksessä (esimerkiksi Windowsin Resurssienhallinnassa) vastaa myös aikajärjestystä.
Nykyisten tiedostonimien määrittäminen manuaalisesti on aikaa vievää ja altis virheille. Käytä sen sijaan seuraavaa makroa:
Sub WithTimestampSave ()
Himmennä päivämäärän aikaleima merkkijonona
Himmennä nyt päivämääränä
Nyt = Nyt ()
Päivämäärä aikaleima = Vuosi (Päivämäärä) & Muoto (Kuukausi (Päivämäärä), "00") & Muoto (Päivä (Päivämäärä), "00")
Päivämäärä Aikaleima = Päivämäärä Aikaleima & "-" & Muoto (Tunti (Nyt), "00") & Muoto (Minuutti (Nyt), "00") & Muoto (Toinen (Nyt), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & date leima & ".xls")
End Sub
Kun soitat makroon, aktiivinen työkirja tallennetaan uudelleen edelliselle tallennuspolulle. Tiedostonimenä käytetään päivämäärä- ja aikaleimaa, kuten seuraavassa kuvassa näkyy:
Jos haluat myös sisällyttää tämän ikkunan makroosi, integroi seuraava ohjelmarivi erilliseksi uutena rivinä rivin eteen End Sub:
MsgBox (ActiveWorkbook.Path)
