Du vet att det är viktigt att säkerhetskopiera ditt arbete. Nu kan du låta ett Excel-makro göra det åt dig. Detta enkla makro sparar din arbetsbok till en ny fil med dagens datum som en del av namnet.
Hur makrot fungerar
Tricket med detta makro är att sätta ihop det nya filnamnet som sökväg, dagens datum och det ursprungliga filnamnet.
Sökvägen fångas med hjälp av egenskapen Path för ThisWorkbook-objektet. Dagens datum grips med Datum-funktionen.
Som standard returnerar funktionen Datum mm/dd/åååå. Framåtgående snedstreck skulle göra att filen sparas misslyckas, så du formaterar datumet med bindestreck istället (Format(Datum, “mm-dd-åå”)) eftersom Windows inte tillåter snedstreck i filnamn.
Den sista delen av det nya filnamnet är det ursprungliga filnamnet. Du fångar det genom att använda egenskapen Name för ThisWorkbook-objektet:
Sub Macro1()
'Steg 1: Spara arbetsboken med nytt filnamn
ThisWorkbook.SaveCopyAs _
Filnamn:=ThisWorkbook.Path & " & _