Office: Tägliche Sicherung einer Excel Datei

Hallo !

Ich habe eine Frage: Ich möchte gerne von einer schreibgeschützten Datei, die ich auf meinem Laufwerk habe eine Sicherung erstellen. Ich öffne diese Excel Datei jeden Tag und würde gerne in dem Moment, ind em ich sie Morgens öffne, ein automatisches Backup dieser Datei machen lassen, in einem anderen Ordner.
Geht das ? Wenn ja, wie ?
Also nochmals zusammengefasst: Ich öffne die schreibgeschützte Exel datei. In dem Moment, in dem sie Morgens geöffnet wird soll eine Sicherung des aktuellen Zustandes in einem anderen Ordner erfolgen (am optimalsten wäre noch mit Datum und Uhrzeit.....)

Geht sowas ?!

Vielen Dank und viele Grüße !!!


Christian

 

Hallo
ja klar das geht wo soll die aktuelle Uhrzeit stehen in einer Zelle?

Gruß

 

Code:

Private Sub Workbook_Open()
 ActiveWorkbook.SaveCopyAs Filename:= _
 ("C:\Dokumente und Einstellungen\irgendwas\Eigene Dateien\Sicherung\" & "Sicherung  " & Format(Now, "dd-MM-yyyy_HH-MM") & ".xls")
End Sub

Diesen Code in diese Arbeitsmappe und das Verzeichnis entsprechend anpassen. Erstellt bei jedem öffnen der Mappe eine Kopie mit dem Namen "Sicherung und das aktuelle Datum sowie die aktuelle Uhrzeit.

Gruß

 

Super !

Ich werde das Morgen Vormittag gleich ausprobieren. ICh meld mich dann sobald ich erfolgreich bin-----da ich aber unerfahren bin, könnten natürlich auch dumme Fragen kommen ;)
Vielen vielen Dank schonmal und ich meld mich !

Gruss !

 

Hi

genau so einen Code hab ich gesucht und der funktioniert Super.
Wäre es vielleicht möglich noch einen Code einzubauen damit nicht immer eine neue Datei gespeichert wird, sondern die Alte ersetzt wird?
Sonst wird der Ordner so unübersichtlich.

wäre toll wenn das noch jemand in den Code tippen könnte, da ich mich leider da nicht auskenne

danke im voraus

mfg

 

Hallo!

Um eine Mappe unter gleichem Namen zu speichern, reicht die Anweisung "ActiveWorkbook.Save".
Aber welchen Sinn es machen soll, eine Datei beim Öffnen unter gleichem Namen zu speichern, habe ich nicht begriffen...

 

hallo,
eigentlich geht es mir dabei um die Sicherung. Die Originaldatei liegt auf C: und wenn ich die jetzt bearbeite (täglich) und danach schliesse, hab ich gleich
eine immer aktuelle Sicherungsdatei zB: auf D: liegen (sollte mit der C: Platte etwas passieren).
Darum wäre es toll wenn jemand noch den Code um um das o.g. erweitern könnte.

mfg

 

Hallo!

Dann brauchst du nur den Dateinamen anzugeben:

Code:

Private Sub Workbook_Open()
 ActiveWorkbook.SaveCopyAs Filename:= _
 ("D:\DeinPfad\Dateiname.xls")
End Sub

 

diesen Code :
Private Sub Workbook_Open()
ActiveWorkbook.SaveCopyAs Filename:= _
("E:\Sicherungsdateien\Dateiname\" & "Dateiname " & Format(Now, "dd-MM-yyyy_HH-MM") & ".xlsm")
End Sub

hab ich ja aber das Problem das ich habe ist, das die bei der letzten Öffnung gespeicherte Datei nicht ersetzt, sondern die neue Speicherung, nur daneben
gespeichert wird. Ich hätte gerne das die alte Speicherung durch die aktuelle Speicherung ersetzt wird.

danke

 

Hi mustang0208...

kleine Anmerkung von meiner Seite aus. Eine Datei kann sich nicht selbst ersetzen, wenn diese geöffnet ist. Du kannst die Datei aber unter einem anderen Namen speichern und dann die alte Datei löschen. Bitte zum Testen Kopie verwenden, mit Kill() wandert die Datei nicht in den Papierkorb.
Beispiel...

Code:

Public Sub Test()
  
  Dim s As String
  Dim f As String
  
  s = ThisWorkbook.Path & "\" & ThisWorkbook.Name
  t = Format(Now, "DD.MM.YYYY hh.mm.ss") & ".xls"
  
  If Dir(ThisWorkbook.Path & "\" & t) <> t Then
  
    ThisWorkbook.SaveAs _
    ThisWorkbook.Path & "\" & t
    
    Kill s
    
  End If
  
End Sub

Gruß

 

Aha, dann funktioniert das so gar nicht wie ich mir das gedacht hab, schade.
Probier jetzt mal deinen Code und schau was passiert,
danke aber für deine Hilfe.

mfg