Autom. Sicherheitskopie

Forumthread: Autom. Sicherheitskopie

09.07.2004 10:43:50

Katharina

Hallo,
ich habe folgendes Problem:
Ich habe eine Excel-Datei erstellt und möchte nun, dass bei jedem Schließen eine Kopie davon automatisch auf Pfad x abgelegt wird.
Geht das überhaupt?
Vielen Dank schon einmal.

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Autom. Sicherheitskopie

sergiesam
AW: Autom. Sicherheitskopie

Udo

AW: Autom. Sicherheitskopie

sergiesam

Hi,
versuchs damit:


Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Kill "D:\Kopie.xls"  'Falls Kopie bereits besteht, vorher löschen
On Error GoTo 0
ActiveWorkbook.SaveAs "D:\Kopie.xls"
End Sub

Gruß
Sam

AW: Autom. Sicherheitskopie

Udo

Professionelle Lösung:
Option Explicit


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Const STRPFAD As String = "C:\Eigene Dateien\Kopie.xls"
If Dir(STRPFAD) <> "" Then Kill STRPFAD
ThisWorkbook.SaveAs STRPFAD
End Sub

Udo

Forumthread: Autom. Sicherheitskopie

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread