Office: (Office 2010) Dateien per VBA kopieren

Guten Abend,

ich habe 600 Dateien, die ich von einem Verzeichnis in vier neue Verzeichnise kopieren muss, und das auch noch regelmässig. Dazu möchte ich folgendes Makro benutzen:

Code:

Für dieses Makro müsste ich jetzt eine Schleife haben, die alle Dateien aus einer Tabelle abarbeitet und von einem Verzeichnis in das andere kopiert. Das Feld qFile = "20.xlsm" müsste als dynamisch sein!

Die Tabelle besteht nur aus eine Spalte, in der die Namen der Dateien stehen, z.B. 20,xlsm, 30.xlsm, 35.xlsm usw.

Könnte mir jemand so eine Schleife in das Makro einbauen??

Gruß

Jojo

:)

 

eigentlich nur Spalte A der Reihe nach durchgehen und fertig
ungetestet ....

PHP:

         Sub Kopieren_File()
Dim myFSO As Object
Dim qFolder As String, tFolder As String
Dim qFile As String
dim i as long
for i = 1 to ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row ' erste bis letzte Zeile des aktiven Blattes
qFile = Worksheets("Tabelle1").Cells(i, 1).Value ' Dateiname setzen
qFolder = "C:\Temp\Quelle\"
tFolder = "C:TempZiel"
Set myFSO = CreateObject("Scripting.FileSystemObject")
myFSO.CopyFile qFolder & qFile, tFolder & qFile, True
next ' nächsten Wert der Schleife
End Sub


 

Hallo,

vielen Dank für die schnelle Hilfe. Es funktioniert super!!

Gruß

Jojo

 

Hallo vbanewcomer,

nur als Anregung:
Das Erstellen des FS-Objektes könnte man aus der Schleife herauslösen und am Ende noch = Nothing setzen.

Die letzte Zeile im aktiven Blatt suchen und daraufhin Werte aus Tabelle1 einlesen könnte zu unerwarteten Ergebnissen führen.

Grüße
EarlFred