Skapa en Daterad Backup File

May 19

Varje gång Mathew stänger en arbetsbok, skulle han vilja ha Excel skapa ett daterat säkerhetskopia av den arbetsboken, vilket innebär att det sparas med ett filnamn som innehåller datum. Således, om han räddar "AnyWorkbookName," det skulle spara inte bara under det namnet, utan också under namnet "AnyWorkbookName [Dagens Datum och tid]." Mathew är säker på att detta måste göras med VBA, men han är inte säker på hur man ska gå till väga.

Det finns ett antal makron som skulle kunna utvecklas för att utföra denna uppgift. De flesta alla är variationer på ett tema (så att säga), så för våra ändamål ett enda exempel bör räcka.

Följande makrot kommer, precis innan stängning arbetsboken, spara arbetsboken med ett datum och tid läggs till i slutet på filnamnet.

Private Sub Workbook_BeforeClose (Cancel As Boolean)
Dim sFileName As String
Dim sDateTime As String

Med ThisWorkbook
sDateTime = "(" & Format (Nu "åååå-mm-dd hhmm") & ") .xlsm"
sFileName = Application.WorksheetFunction.Substitute _
(.FullName, ".xlsm", SDateTime)
.SaveCopyAs SFileName
End Med
End Sub

Makrot sätter ihop datum och tid snöre i sDateTime variabeln. Detta införes därefter i arbetsboken filnamn med hjälp av BYT.UT kalkylbladsfunktionen. (Datum / tid strängen slutinpassat strax före filtillägget.) Makroförutsätter att arbetsboken sparas som en xlsm filen eftersom den måste innehålla makron-exempel makrot att göra detta sparande.

Makrot bör placeras i ThisWorkbook modul för arbetsboken. Detta garanterar att det kommer att köra precis innan arbetsboken stängs.

Det finns, liksom, tredjeparts tillägg som kan utföra denna uppgift. Följande är några som du kanske vill kolla in.

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

ExcelTips är din källa för kostnadseffektiv Microsoft Excel utbildning. Detta tips (13195) gäller Microsoft Excel 2007, 2010, och 2013.