VBA Excel: Kopieren einer Datei ohne Öffnen

In Microsoft Excel können Sie Routineaufgaben mithilfe von Makros automatisieren. Ein solches Makro besteht darin, die Datei zu kopieren, ohne sie zu öffnen. Dies kann nützlich sein, wenn viele Kopien ausgeführt werden müssen und das Öffnen jeder Datei zeitaufwendig ist. Verwenden Sie die in Excel integrierte VBA-Sprache (Visual Basic for Applications), um ein solches Makro zu erstellen.

Zuerst müssen Sie ein neues VBA-Modul in Excel erstellen. Dies ist einfach: Klicken Sie mit der rechten Maustaste auf die Registerkarte Arbeitsblatt und wählen Sie Modul hinzufügen. Schreiben wir den folgenden Code:

Sub Datei kopieren()

Dim Dateiname Als String

Dim Name der neuen Datei Als String

Dateiname = "С:\путь\к\исходному\файлу .xlsx"

Name der neuen Datei = "С:\путь\к\копии\новый_файл .xlsx"

FileCopy Dateiname, Name der neuen Datei

End Sub

In diesem Beispiel geben wir den Pfad zur Quelldatei in einer Variablen an Dateiname. und der Pfad zur neuen Datei in der Variablen Name der neuen Datei. Dann verwenden Sie die Funktion FileCopy. wir kopieren eine Datei von einem Ort zum anderen, ohne sie zu öffnen.

Nachdem Sie den Code geschrieben haben, können Sie ein Makro ausführen, indem Sie die Taste F5 drücken oder es aus der Liste der Makros im Menü "Entwickler" auswählen. Sobald das Makro ausgeführt wurde, wird eine Kopie der Originaldatei im angegebenen Ordner angezeigt.

Kopieren einer Datei in VBA Excel

In Visual Basic für Applikationen (VBA) für Excel gibt es mehrere Möglichkeiten, eine Datei zu kopieren, ohne sie zu öffnen:

1. Verwenden der FileCopy-Methode

Mit der FileCopy-Methode können Sie eine Datei von einem Ort zum anderen kopieren. Es hat die folgende Syntax:

FileCopy ,

Zum Beispiel, um eine Datei zu kopieren "С:\ИсходныйФайл .xlsx" in "С:\КопияФайла .xlsx", können Sie den folgenden Code verwenden:

FileCopy "C:\ИсходныйФайл.xlsx", "C:\КопияФайла.xlsx"

2. Verwenden der FileSystemObject-Methode

Um die FileSystemObject-Methode zu verwenden, müssen Sie einen Verweis auf die Microsoft Scripting Runtime hinzufügen. Es ermöglicht Ihnen, Objekte für die Arbeit mit Dateien und Ordnern zu erstellen. Beispielcode:

Dim fso As New FileSystemObjectfso.CopyFile "C:\ИсходныйФайл.xlsx", "C:\КопияФайла.xlsx"

3. Mit der Shell-Methode

Mit der Shell-Methode können Sie einen Betriebssystembefehl ausführen. Beispielcode:

Shell "cmd /c copy C:\ИсходныйФайл.xlsx C:\КопияФайла.xlsx", vbHide

Sie können eine dieser Methoden je nach Ihren Vorlieben und Bedürfnissen auswählen. Es ist wichtig, sich daran zu erinnern, dass Sie alle Dateien kopieren können, ohne sie in Excel zu öffnen.

Kopieren einer Datei in VBA, ohne sie zu öffnen

In VBA Excel ist es möglich, Dateien zu kopieren, ohne sie mit verschiedenen Methoden zu öffnen. Dies kann nützlich sein, wenn Sie Dateien automatisch innerhalb eines VBA-Makros oder während der Datenverarbeitung kopieren möchten.

Eine Möglichkeit, eine Datei zu kopieren, besteht darin, die FileCopy-Methode zu verwenden. Mit dieser Methode können Sie eine Datei von einem Speicherort an einen anderen kopieren, ohne sie zu öffnen. Ein Beispiel für die Verwendung der FileCopy-Methode zum Kopieren einer Datei lautet wie folgt:

FileCopy "Путь к файлу-источнику", "Путь к файлу-назначению"

Wenn Sie mehrere Dateien kopieren möchten, können Sie eine For Each-Schleife verwenden. Next, um jede Datei zu durchlaufen und zu kopieren:

Dim fso As ObjectDim SourceFolder As ObjectDim FileItem As ObjectSet fso = CreateObject("Scripting.FileSystemObject")Set SourceFolder = fso.GetFolder("Путь к папке-источнику")For Each FileItem In SourceFolder.FilesFileCopy FileItem.Path, "Путь к папке-назначению\" & FileItem.NameNext FileItemSet FileItem = NothingSet SourceFolder = NothingSet fso = Nothing

Auf diese Weise werden alle Dateien aus dem Quellordner in den Zielordner kopiert, ohne sie zu öffnen.

Sie können auch die CopyFolder-Methode verwenden, wenn Sie Dateien unter Beibehaltung der Ordnerhierarchie kopieren möchten. Dazu müssen Sie den Pfad zum Quellordner und den Pfad zum Zielordner angeben:

Dim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")fso.CopyFolder "Путь к папке-источнику", "Путь к папке-назначению"Set fso = Nothing

Auf diese Weise wird der gesamte Inhalt des Quellordners in den Zielordner kopiert, wobei die Ordnerhierarchie beibehalten wird, ohne die Dateien zu öffnen.

Mit diesen Methoden in VBA Excel können Sie Dateien kopieren, ohne sie zu öffnen, was die Automatisierung und Datenverarbeitung effizienter und bequemer macht. Beachten Sie, dass Sie beim Kopieren von Dateien den vollständigen Pfad zu Dateien oder Ordnern angeben müssen.

Vorteile des Kopierens einer Datei ohne Öffnen

Das Kopieren einer Datei, ohne sie mit VBA Excel zu öffnen, hat mehrere Vorteile, die diesen Ansatz effektiv und benutzerfreundlich machen:

• Zeiteinsparung: Das Kopieren einer Datei ohne Öffnen spart Zeit, da der Kopiervorgang schneller ist und keine weiteren Aktionen seitens des Benutzers erforderlich sind. Dieser Vorgang ist besonders nützlich, wenn Sie mit großen Dateien arbeiten oder bei Bedarf viele Kopien erstellen möchten.
• Datensicherheit: Wenn Sie eine Datei kopieren, ohne sie zu öffnen, können Sie das potenzielle Risiko von Datenverlust oder Beschädigung der Datei vermeiden. Beim Öffnen der Datei können Fehler oder Konflikte auftreten, was zu unerwünschten Folgen führen kann. Das Kopieren einer Datei ohne Öffnen vermeidet solche Probleme und bewahrt die Datenintegrität.
• Flexibilität und Komfort: Die Möglichkeit, eine Datei zu kopieren, ohne sie zu öffnen, gibt dem Benutzer mehr Flexibilität und Komfort. Es kann auswählen, wo die Kopie der Datei gespeichert werden soll, einen anderen Dateinamen und ein anderes Dateiformat angeben und verschiedene zusätzliche Kopieroptionen anwenden. Dies vereinfacht die Arbeit mit Dateien und ermöglicht es Benutzern, sie effizienter zu verwalten.

Insgesamt ist das Kopieren einer Datei, ohne sie zu öffnen, eine nützliche Funktion in VBA Excel, die Geschwindigkeit, Sicherheit und Flexibilität bei der Arbeit mit Dateien bietet. Dieser Ansatz vereinfacht das Kopieren und Speichern von Dateien, sodass Benutzer sich auf ihre Kernaufgaben konzentrieren und bessere Ergebnisse erzielen können.