Microsoft Excel

Herbers Excel/VBA-Archiv

Speichern

Betrifft: Speichern von: Baywatch
Geschrieben am: 14.08.2008 17:58:21

Wie kann ich eine Dtei automatisch alle 60 sekunden speirchern lassen und das an mehreren Orten? heißt festplatte und usb stick zum beispiel?

  

Betrifft: AW: Speichern von: Ramses
Geschrieben am: 14.08.2008 19:11:25

Hallo

VB-Editor starten mit "Alt"+"F11"
Doppelklick auf "Projekt Dein_Mappennamexls"
Das gehört in das Klassenmodul "Diese Arbeitsmappe" deiner Mappe

Option Explicit


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime schedTime, "StartBackup", schedule:=False
End Sub

Private Sub Workbook_Open()
    Application.OnTime Now + TimeSerial(0, 0, 60), "StartBackup"
End Sub


Das gehört in ein Modul deiner Mappe.
Rechte Maustaste auf deine Mappe im VB-Editor
Einfügen Modul

Option Explicit

Public schedTime As Date

Sub StartBackup()
    ThisWorkbook.Save
    'USB-Stick = Laufwerk I:
    ThisWorkbook.SaveCopyAs "I:\" & ThisWorkbook.Name
    scheddate = Now + TimeSerial(0, 0, 60)
    Application.OnTime schedTime, "StartBackup"
End Sub


Ungetestet,... sollte aber tun

Gruss Rainer


 

Beiträge aus den Excel-Beispielen zum Thema "Speichern"