So kopieren sie einen ordner in vba (mit beispiel)

Sie können die CopyFolder- Methode in VBA verwenden, um einen Ordner von einem Speicherort an einen anderen zu kopieren.

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

 Sub CopyMyFolder()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source folder and destination folder
SourceFolder = "C:\Users\bob\Documents\current_data"
DestFolder = "C:\Users\bob\Desktop\"

'copy folder
FSO.CopyFolder Source:=SourceFolder, Destination:=DestFolder

End Sub

Dieses spezielle Makro kopiert den Ordner „current_data“ aus dem Ordner „Dokumente“ auf den Desktop .

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

Beispiel: So kopieren Sie Ordner mit VBA

Nehmen wir an, wir haben einen Ordner namens current_data , der sich in einem Ordner namens Documents befindet:

Nehmen wir nun an, wir möchten mit VBA diesen gesamten Ordner auf den Desktop kopieren, der derzeit zwei Ordner 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 den Ordner zu kopieren:

 Sub CopyMyFolder()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
    
'specify source folder and destination folder
SourceFolder = "C:\Users\bob\Documents\current_data"
DestFolder = "C:\Users\bob\Desktop\"

'copy folder
FSO.CopyFolder Source:=SourceFolder, Destination:=DestFolder

End Sub

Sobald dieses Makro ausgeführt wird, wird der Ordner mit dem Namen current_data aus dem Ordner „Dokumente“ auf den Desktop kopiert:

Der ursprüngliche Ordner „current_data“ verbleibt ebenfalls im Ordner „Dokumente“ .

Hinweis : Die vollständige Dokumentation zur CopyFolder- 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 listen Sie Dateien in einem Ordner mit VBA auf