Vba: so kopieren sie eine datei von einem speicherort an einen anderen

Sie können die CopyFile- Methode in VBA verwenden, um eine Datei von einem Ordner in einen anderen zu kopieren.

Hier ist eine gängige Methode, diese Methode in der Praxis anzuwenden:

 SubCopyMyFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source file and destination folder
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\soccer_data.txt"
DestFolder = "C:\Users\bob\Desktop\Some_Data_2\"

'copy file
FSO.CopyFile Source:=SourceFile, Destination:=DestFolder

End Sub

Dieses spezielle Makro kopiert die Datei „soccer_data.txt “ aus einem Ordner namens „Some_Data_1 “ in einen Ordner namens „Some_Data_2“ .

Das folgende Beispiel zeigt, wie diese Syntax in der Praxis verwendet wird.

Beispiel: So kopieren Sie Dateien mit VBA

Nehmen wir an, wir haben eine Textdatei namens „soccer_data.txt “ in einem Ordner namens „Some_Data_1“ auf unserem Desktop:

Nehmen wir nun an, wir möchten diese Textdatei mit VBA in einen anderen Ordner namens Some_Data_2 auf unserem Desktop kopieren, der derzeit zwei Textdateien enthält:

Bevor wir VBA zum Kopieren dieser Datei verwenden, müssen wir zunächst Microsoft Scripting Runtime im VB-Editor aktivieren.

Öffnen Sie dazu den VB-Editor, klicken Sie dann auf Extras und dann auf Referenzen :

Scrollen Sie im neuen Fenster, das angezeigt wird, nach unten, bis Sie Microsoft Scripting Runtime sehen, und aktivieren Sie das Kontrollkästchen daneben. Klicken Sie dann auf OK .

Dann können wir das folgende Makro erstellen, um die Datei zu kopieren:

 SubCopyMyFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source file and destination folder
SourceFile = "C:\Users\bob\Desktop\Some_Data_1\soccer_data.txt"
DestFolder = "C:\Users\bob\Desktop\Some_Data_2\"

'copy file
FSO.CopyFile Source:=SourceFile, Destination:=DestFolder

End Sub

Sobald dieses Makro ausgeführt wird, wird die Datei mit dem Namen „soccer_data.txt “ aus dem Ordner „Some_Data_1“ in den Ordner „Some_Data_2“ kopiert:

Die ursprüngliche Datei „soccer_data.txt“ verbleibt ebenfalls im Ordner „Some_Data_1“ :

Hinweis : Die vollständige Dokumentation zur CopyFile- Methode finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

So erstellen Sie Ordner mit VBA
So löschen Sie Ordner mit VBA
So löschen Sie Dateien mit VBA