Endlosschleife
15.10.2018 12:06:15
Joachim
ich habe wohl eine Endlosschleife produziert und komm jetzt nicht mehr weiter. Ziel sollte sein _ 186 Excel-Dateien von einen in den anderen Ordner zu kopieren und dann aufzuhören. Kann mir jemand helfen. Im Voraus schon mal besten Dank. Hier mein Code:
Public Sub AnlagenKopierenAnlagen()
Dim strQuelle As String
Dim strZiel As String
Dim objFSO As Object
For i = 1 To 186
strQuelle = "C:\Daten\ZGP\Data\EXPORT\Anlagen\*.xls"
If i = 186 Then Exit Sub
strZiel = "Z:\2018\ZGP-Anlagen\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.copyfile strQuelle, strZiel
Set objFSO = Nothing
Next i
End Sub
Anzeige