Backup af fil fra VBA macro.
HejsaJeg vil gerne have en macro, der begynder med at lave en back-up af mit regneark, inden der skal ændres i data.
Jeg har forsøgt mig med følgende :
MsgBox "Arbejder med filen " & ThisWorkbook.Name
'Start med at lave en back-up af arket.
Dim sourcewb As Workbook
Dim p As Long
Dim FolderNavn As String, FilNavn As String
Set sourcewb = ActiveWorkbook
FolderNavn = sourcewb.FullName
MsgBox FolderNavn
p = InStrRev(FolderNavn, "\")
FilNavn = Right(FolderNavn, Len(FolderNavn) - p)
FolderNavn = Left(FolderNavn, p) & "Back-up\" & Format(Date, "YYYY-MM-DD") & " " & FilNavn
MsgBox " Nyt navn : " & FolderNavn
sourcewb.SaveAs Filename = FolderNavn, FileFormat = xlOpenXMLWorkbookMacroEnabled
Den displayer også fint mit filnavn, men derefter får jeg følgende fejlmeddelelese :
Run-time error '1004':
Method 'SaveAs' of object '-Workbook' failed
Jeg skal sige at det nye navn ser korrekt ud, og back-up folderen findes.
Jeg håber at der er nogen, der kan hjælpe.
