Sicherungskopie einer Datei speichern

Manchmal möchte man eine Sicherungskopie der Datei via VBA erstellen.

Um eine Sicherungskopie Deiner Datei zu erstellen und zu speichern bietet es sich an den “Zeitstempel” aus Datum und Uhrzeit zusammen zu setzen.

Auf diesem Wege erscheinen die Dateien auch sauber sortiert in der Ordnerstruktur des Verzeichnisses.

Hier nun der entsprechende Quellcode dazu: Sub Sicherungskopie_speichern() Dim NeudatName As String Dim msg As String Dim Jetzt As Date Jetzt = Now() NeudatName = Year(Date) & Format(Month(Date), "00") & Format(Day(Date), "00") NeudatName = NeudatName & "-" & Format(Hour(Jetzt), "00") & Format(Minute(Jetzt), "00") & Format(Second(Jetzt), "00") ThisWorkbook.SaveAs (ThisWorkbook.Path & "\" & NeudatName & ".xls") msg = MsgBox("Datei wurde unter " & (ThisWorkbook.Path & "\" & NeudatName & ".xls") & " gespeichert") End Sub

Share on Facebook

Read more http://vba-codeschnipsel.de/sicherungskopie-einer-datei-speichern/