Makro, um eine Sicherungskopie beim speichern der Datei

Ich würde gerne ein makro, welches automatisch das backup meiner Datei in einen anderen Ordner, wenn es gespeichert wird. Ich habe gefunden ein funktionierendes makro, aber es macht eine Kopie jedes mal, wenn ich es (nicht automatisch, wenn die Datei gespeichert wird). Könnte mir jemand helfen bei der änderung der makro-code funktioniert wie ich es beschrieben?

MAKRO HABE ICH:

Sub Auto_Save()

Dim savedate

savedate = Date

Dim savetime
savetime = Time
Dim formattime As String
formattime = Format(savetime, "hh.MM.ss")
Dim formatdate As String
formatdate = Format(savedate, "DD - MM - YYYY")

Application.DisplayAlerts = False

Dim backupfolder As String
backupfolder = "Z:\My Documents\"
ActiveWorkbook.SaveCopyAs Filename:=backupfolder & formatdate & " " & formattime & " " & ActiveWorkbook.Name
ActiveWorkbook.Save
Application.DisplayAlerts = True
MsgBox "Backup Run. Please Check at: " & backupfolder & " !"

End Sub

Also, was haben Sie versucht? Warum nicht, überspringen Sie einfach den Teil, der fügt das Datum und die Uhrzeit an den Dateinamen an?
Die msgbox würde mich Nerven ungemein. Je nach version von Office hat einige eingebaute backup-Funktionalität, finden Sie es (in 2010) in den Optionen - speichern. Der Sie wollen, um das makro zu verwenden, werfen Sie einen Blick auf das speichern-Ereignis der Arbeitsmappe...

InformationsquelleAutor mgunia | 2013-03-07

5

Du meinst, Sie wollen einfach nur eine backup-Datei mit dem gleichen Namen wie das original? Entfernen Sie einfach das Datum und die Uhrzeit aus dem Dateinamen der Sicherungskopie:
```
ActiveWorkbook.SaveCopyAs Filename:=backupfolder & ActiveWorkbook.Name
```
Sollten Sie auch hinzufügen, eine Art der Fehlerbehandlung im Falle der backup-Datei wird geöffnet, wenn Sie versuchen zu speichern, etc.

BEARBEITEN (aktualisiert auf Basis neuer Eingang)

OK, dann müssen Sie die Falle, eine Falle. Ich habe versucht mit der BeforeSave Ereignis und es funktioniert. Es gibt auch eine AfterSave Veranstaltung, die Sie könnten versuchen.

Fügen Sie den folgenden, um die ThisWorkbook Modul:
```
Option Explicit

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim backupfolder As String

    backupfolder = "Z:\My Documents\"

    ThisWorkbook.SaveCopyAs Filename:=backupfolder & ThisWorkbook.Name
End Sub
```
Nein, ich meine, ich don ' T haben, um das makro auszuführen jedes mal, wenn ich will, ein backup zu machen. Makro bleibt aktiviert und jedes mal, wenn jemand die Datei wird gespeichert, es macht den backup. Mit dem aktuellen makro, ein backup zu machen, müssen Sie klicken Sie auf MAKRO AUSFÜHREN und es passiert nichts, wenn ich die Datei speichern
mit dem Workbook_beforeSave event, es auslösen wird der code jedes mal vor dem speichern der excel, die Sie nicht haben, um das makro manuell ausführen.
Sjögren es funktioniert Super! Genau so, wie ich wollte. Vielen Dank für eine Hilfe. Larry, meine Antwort auf Olle vor war über seine pre-post bearbeitet. Nachdem er bearbeitet die post nun, der alles verändert

InformationsquelleAutor Olle Sjögren

Hier ist der code, den ich erstellt, um meine backup-Arbeitsmappen. Erstellen Sie ein Unterverzeichnis für Ihre backups, falls es nicht existiert, und speichern Sie backups in diesem Verzeichnis.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Application.EnableEvents = False

    thisPath = ThisWorkbook.Path
    myName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".") - 1))
    ext = Right(ThisWorkbook.Name, Len(ThisWorkbook.Name) - InStrRev(ThisWorkbook.Name, "."))
    backupdirectory = myName & " backups"

    Set FSO = CreateObject("Scripting.FileSystemObject")

    If Not FSO.FolderExists(ThisWorkbook.Path & "/" & backupdirectory) Then
        FSO.CreateFolder (ThisWorkbook.Path & "/" & backupdirectory)
    End If

    T = Format(Now, "mmm dd yyyy hh mm ss")
    ThisWorkbook.SaveCopyAs thisPath & "\" & backupdirectory & "\" & myName & " " & T & "." & ext

    Application.EnableEvents = True
End Sub

InformationsquelleAutor Jack Geiger

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.