Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

offene Datei sichern, speichern und schließen

offene Datei sichern, speichern und schließen
Kraus
Schönen guten Tag!
Hat jemand eine Idee für mich ?
Ich möchte eine geöffnete Excel-Datei vor dem Schließen als Sicherung an einen bestimmten Ort sichern UND die Datei schließen und speichern.
Danke für jeden Tip
mfG Kraus

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

Betreff
Benutzer
Anzeige
AW: offene Datei sichern, speichern und schließen
hannes
Hallo
Code ist nicht von mir:

Sub Auto_Close
ActiveWorkbook.Save
Dim sPath As String
sPath = Y:\usw.
oder wenn die Werte in einer excel Tabelle stehen
sPath = Range("was auch immer").Value & ".xls"
ActiveWorkbook.SaveAs sPath
ActiveWorkbook. Close
End Sub

AW: offene Datei sichern, speichern und schließen
26.04.2004 14:20:11
Matthias
Hallo Kraus,
folgendes Modul in "DieseArbeitsmappe":

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Const BackupPath = "D:\Backup.xls"
'Ist dies die Backup-Datei? ja, dann abbrechen
If ThisWorkbook.FullName = BackupPath Then Exit Sub
ThisWorkbook.SaveCopyAs Filename:=BackupPath
End Sub

Die Backup-Datei wird vor dem schließen erzeugt.
Gruß Matthias
Anzeige

61 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige