Ordner aus Excel-Tabellenblatt erstellen lassen
22.09.2017 12:35:18
Gregy
ich benötige Hilfe bei einem VBA-Script.
Ich möchte anhand einer Excel-Liste per VBA Ordner in einem bestimmten Pfad erstellen lassen. Im Netz habe ich folgendes gefunden
Sub ordner_anlegen()
Dim intzeile As Integer
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
intzeile = 2
With Worksheets("Help")
Do While Not IsEmpty(.Range("B" & intzeile))
fs.createfolder ("C:\Temp\Ordner\" & "Anlage " & .Range("B" & intzeile))
intzeile = intzeile + 1
Loop
End With
End Sub
Das Script funktioniert bis einschließlich dem 31. Namen (die Liste führt Anlagennamen) super. Dann kommt eine Fehlermeldung
Laufzeitfehler '76':
Pfad nicht gefunden
Hat jemand zu diesem Problem eine Idee? Vielen Dank schon einmal im Voraus!
VG Gregy
Anzeige