Du vet at det er viktig å sikkerhetskopiere arbeidet ditt. Nå kan du få en Excel-makro til å gjøre det for deg. Denne enkle makroen lagrer arbeidsboken din til en ny fil med dagens dato som en del av navnet.
Hvordan makroen fungerer
Trikset med denne makroen er å sette sammen det nye filnavnet som banen, dagens dato og det opprinnelige filnavnet.
Banen fanges opp ved å bruke Path-egenskapen til ThisWorkbook-objektet. Dagens dato hentes med datofunksjonen.
Som standard returnerer datofunksjonen mm/dd/åååå. Fremover skråstreker vil føre til at fillagringen mislykkes, så du formaterer datoen ved hjelp av bindestreker i stedet (Format(dato, "mm-dd-åå")) fordi Windows ikke tillater skråstreker i filnavn.
Den siste delen av det nye filnavnet er det opprinnelige filnavnet. Du fanger det ved å bruke Name-egenskapen til ThisWorkbook-objektet:
Sub Makro1()
'Trinn 1: Lagre arbeidsbok med nytt filnavn
ThisWorkbook.SaveCopyAs _
Filnavn:=This Workbook.Path & " & _