Opprette en Datert Backup File

June 21  by Eliza

Hver gang Mathew lukker en arbeidsbok, ville han gjerne ha Excel skape en datert sikkerhetskopi av at arbeidsboken, noe som betyr at det blir lagret med et filnavn som inneholder datoen. Dermed, hvis han sparer "AnyWorkbookName," det ville spare ikke bare under det navnet, men også under navnet "AnyWorkbookName [Dagens dato og klokkeslett]." Mathew er sikker på at dette må gjøres med VBA, men han er ikke sikker på hvordan du skal gå om det.

Det finnes en rekke makroer som kan utvikles til å utføre denne oppgaven. Mest alle av dem er variasjoner over et tema (så å si), så for vårt formål et enkelt eksempel burde holde.

Følgende makro vil, like før stengetid arbeidsboken, lagre arbeidsboken med en dato og tid lagt til på slutten av filnavnet.

Private Sub Workbook_BeforeClose (Avbryt Som Boolean)
Dim sFileName As String
Dim sDateTime As String

Med Thisworkbook
sDateTime = "(" & (Nå, "åååå-mm-dd hhmm") Format & ") .xlsm"
sFileName = Application.WorksheetFunction.Substitute _
(.FullName, ".xlsm", SDateTime)
.SaveCopyAs SFilename
Avslutt med
End Sub

Makroen setter sammen dato og klokkeslett streng i den sDateTime variabel. Dette blir så satt inn i boken filnavn ved hjelp av SUBSTITUTE regnearkfunksjon. (Dato / klokkeslett strengen er effektivt satt inn like før filendelsen.) Makroen forutsetter at arbeidsboken blir lagret som en XLSM filen fordi den må inneholde makroer, for eksempel makro å gjøre dette sparing.

Makroen bør plasseres i Thisworkbook modul for arbeidsboken. Dette sikrer at det vil utføre like før boken lukkes.

Det er, i tillegg, tredjeparts add-ins som kan utføre denne oppgaven. Følgende er noen som kan være lurt å sjekke ut.

http://insight.trueinsight.za.com/excel/excel-utilities
http://www.jkp-ads.com/Download.asp#AutoSafe
http://www.asap-utilities.com

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (13195) gjelder for Microsoft Excel 2007, 2010, og 2013.