Excel-Arbeitsmappen kopieren

Sie möchten eine Excel-Arbeitsmappe kopieren und dabei einen neuen Namen festlegen? Natürlich können Sie das über Windows erledigen, aber wie automatisieren Sie es in Excel? Eine Möglichkeit besteht darin, die passende Arbeitsmappe zu öffnen und  anschließend unter einem neuen Namen zu speichern.

Das kostet aber viel Zeit und ist umständlich, weil Excel beim Öffnen der Arbeitsmappe Berechnungen ausführt, Verknüpfungen aktualisiert und ähnliches. Einfacher erledigen Sie es direkt über das VBA-Kommando FileCopy. Das folgende Makro kopiert eine Arbeitsmappe aus einem Verzeichnis in ein anderes und legt dabei einen neuen Namen fest:

Sub ArbeitsmappeKopieren()
Dim Quelle As String, Ziel As String
Quelle = "c:\August.xls"
Ziel = "c:\Daten\September.xls"
FileCopy Quelle, Ziel
End Sub

Legen Sie in der Variablen Quelle den Namen und Pfad der Datei fest, die Sie kopieren möchten. Speichern Sie in der Variablen Ziel den Pfad und das Ziel der Datei. Im Programmbeispiel wird die Datei August.xls aus dem Pfad C:\ unter dem neuen Namen September.xls im Pfad C:\Daten gespeichert. Die Quelldatei August.xls bleibt dabei unverändert.

Sie können mit dem Kommando nicht nur Excel-Arbeitsmappe kopieren, sondern auch andere Dateien.