Du bruker denne makroen til å registrere en versjonshistorikk
Det er mange arbeidsbøker som bør lagres med faste intervaller. Hvis du alltid bruker et annet navn, kan du følge nøyaktig hvilke data som ble funnet i arbeidsboken på hvilket tidspunkt.
Det er spesielt nyttig å bruke et dato-klokkeslettstempel når du lagrer filen. Du bruker en kombinasjon av dato og klokkeslett som filnavn. For eksempel, hvis filen lagres 27.08.2008 kl. 10:32 og 26 sekunder, er filnavnet:
20080827-103226
Fordelen med et slikt dato-klokkeslettstempel er at visningen av filene i alfabetisk rekkefølge (for eksempel med Windows Utforsker) også tilsvarer den kronologiske rekkefølgen.
Å definere gjeldende filnavn manuelt er tidkrevende og utsatt for feil. Bruk i stedet følgende makro:
Sub WithTimestampSave ()
Dim date tidsstempel som streng
Dim Now As Date
Nå = Nå ()
Dato tidsstempel = År (dato) og format (måned (dato), "00") og format (dag (dato), "00")
Date Time Stamp = Date Time Stamp & "-" & Format (Time (Now), "00") & Format (Minute (Now), "00") & Format (Second (Now), "00")
ActiveWorkbook.SaveAs (ThisWorkbook.Path & "\" & date stamp & ".xls")
Slutt Sub
Når du ringer makroen, lagres den aktive arbeidsboken igjen i den forrige lagringsbanen. Dato-klokkeslettet brukes som filnavn, som vist i følgende figur:
Hvis du også vil inkludere dette vinduet i makroen, integrerer du følgende programlinje som en egen, ny linje foran linjen Slutt Sub:
MsgBox (ActiveWorkbook.Path)
