Hallo.
Ich möchte aus Excel (Ordnertext in Zelle), Ordner inklusieve Unterordner und in einem Ordner eine Datei erstellen.
Ich habe es geschafft die Ordner erstellt werden aber nicht wie ich die Unterordner und in einen der Unterordner eine Datei anlegen kann.
Anbei der bisherige Code. Ich hoffe mir kann hier geholfen werden. Danke schon mal.
*Topic verschoben, Code-Tag eingefügt*
Ich möchte aus Excel (Ordnertext in Zelle), Ordner inklusieve Unterordner und in einem Ordner eine Datei erstellen.
Ich habe es geschafft die Ordner erstellt werden aber nicht wie ich die Unterordner und in einen der Unterordner eine Datei anlegen kann.
Anbei der bisherige Code. Ich hoffe mir kann hier geholfen werden. Danke schon mal.
Visual Basic-Quellcode
- Sub CreateNewFolders()
- Dim strPath As String
- Dim newFolderPath As String
- 'hier Pfad festlegen, wo Ordner erstellt werden sollen
- strPath = "C:\Users\Ricky.Kresge\Documents\Ordner\"
- 'Tabelle1 ersetzen durch Name des Tabellenblatts
- 'A2:A31 ersetzen durch Bereich, wo Ordnernamen enthalten sind
- For Each c In Worksheets("Muster").Range("E2:E1000").Cells
- newFolderPath = strPath & c.Value
- MkDir (newFolderPath)
- Next
- End Sub
*Topic verschoben, Code-Tag eingefügt*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()