Geöffnete Datei kopieren

Forumthread: Geöffnete Datei kopieren

22.01.2009 08:30:30

Andre´

Hallo alle zusammen,
ich möchte die aktive offene Exceldatei in einem anderen Pfad kopieren.
Folgendes habe ich probiert:


Sub DateiKopieren()
Dim sQuelle As String, sZiel As String
sQuelle = "D:\Backup.xls"
sZiel = "C:\Backup.xls"
FileCopy sQuelle, sZiel
End Sub

Das funktioniert nicht weil ja die Datei offen ist.
Wenn ich manuell im Explorer die geöffnete Datei kopiere und woanders hin speicher gibt es auch keine keine Probleme und so sollte es auch mit einem Makro funktionieren.
Es gibt ja die Möglichkeit die Datei 2 mal zu speichern, dies möchte ich aber so nicht haben.
Kennt jemand eine andere Möglichkeit.
Vielen Dank im Voraus!
MFG Andre

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Geöffnete Datei kopieren

22.01.2009 09:25:13

Rudi
AW: Geöffnete Datei kopieren

22.01.2009 10:01:41

Andre´

AW: Geöffnete Datei kopieren

22.01.2009 09:25:13

Rudi

Hallo,
so?
ActiveWorkbook.SaveCopyAs sZiel
Gruß
Rudi

AW: Geöffnete Datei kopieren

22.01.2009 10:01:41

Andre´

Hallo Rudi,
genau so soll es sein.
Vielen Dank!
MFG Andre

Infobox / Tutorial

Schritt-für-Schritt-Anleitung

Um eine geöffnete Excel-Datei zu duplizieren, kannst du den folgenden VBA-Code verwenden. Dieser Code ermöglicht es dir, die aktive Arbeitsmappe in einem anderen Pfad zu speichern, ohne dass die Datei geschlossen werden muss.

Öffne Excel.
Drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen und wähle Modul.
Kopiere den folgenden Code in das Modul:

Sub DateiKopieren()
    Dim sZiel As String
    sZiel = "C:\Backup.xls" ' Pfad anpassen
    ActiveWorkbook.SaveCopyAs sZiel
End Sub

Passe den sZiel-Pfad an, wo du die Datei speichern möchtest.
Führe das Makro aus, indem du F5 drückst.

Mit dieser Methode kannst du die Datei duplizieren, ohne sie zu schließen oder manuell im Explorer zu arbeiten.

Häufige Fehler und Lösungen

Fehler: „Datei kann nicht gespeichert werden“
- Lösung: Stelle sicher, dass der Zielpfad existiert und dass du Schreibrechte für diesen Ordner hast.
Fehler: „Datei ist bereits geöffnet“
- Lösung: Verwende den VBA-Befehl SaveCopyAs, der es ermöglicht, die Datei zu kopieren, während sie geöffnet ist.

Alternative Methoden

Falls du kein VBA verwenden möchtest, gibt es auch manuelle Methoden:

Manuelles Kopieren im Explorer:
- Öffne den Datei-Explorer und navigiere zu der geöffneten Excel-Datei.
- Klicke mit der rechten Maustaste auf die Datei und wähle „Kopieren“.
- Navigiere zu dem gewünschten Zielordner und wähle „Einfügen“.
Excel-Speichern unter:
- Gehe in Excel zu Datei > Speichern unter.
- Wähle den gewünschten Speicherort und benenne die Datei.

Praktische Beispiele

Beispiel 1: Du möchtest die Datei „Bericht.xlsx“ in den Ordner „D:\Backup“ duplizieren. Ändere den VBA-Code wie folgt:

Sub BerichtKopieren()
    Dim sZiel As String
    sZiel = "D:\Backup\Bericht_Sicherung.xlsx"
    ActiveWorkbook.SaveCopyAs sZiel
End Sub

Beispiel 2: Wenn du mehrere Kopien in unterschiedlichen Ordnern speichern möchtest, kannst du den Code in einer Schleife anpassen.

Tipps für Profis

Nutze Application.DisplayAlerts = False, um Excel-Warnungen beim Speichern zu unterdrücken.
Setze eine Fehlerbehandlung in deinen VBA-Programmen ein, um unerwartete Fehler elegant zu handhaben.

Sub DateiKopierenMitFehlerbehandlung()
    On Error GoTo Fehler
    Dim sZiel As String
    sZiel = "C:\Backup.xls"
    ActiveWorkbook.SaveCopyAs sZiel
    Exit Sub
Fehler:
    MsgBox "Fehler beim Kopieren der Datei: " & Err.Description
End Sub

FAQ: Häufige Fragen

1. Wie kann ich den Pfad für die Kopie dynamisch machen?
Du kannst den Pfad in eine Zelle eingeben und im VBA-Code darauf verweisen. Zum Beispiel: sZiel = Range("A1").Value.

2. Funktioniert dies in allen Excel-Versionen?
Ja, der SaveCopyAs-Befehl ist in den meisten modernen Excel-Versionen verfügbar, einschließlich Excel 2010 und später.

Beliebteste Forumthreads (12 Monate)