Ordnerstruktur (ohne Dateien) in Excel einlesen (PowerQuery?)?
Ich habe einen Ordner mit ca. 150 Sub-Folder. Ich möchte gerne die Namen aller Sub-Folder zeilenweise in Excel eingelesen haben.
Mittels Powerquery habe ich es schon hinbekommen einen ganzen Ordner mit verschachtelten Sub-Ordner inklusive Dateien einzulesen. Die Dateien sind mir allerdings wurscht. Ich will nur die Ordner-Struktur. Am besten nicht als Pfadangabe sondern als Ordner-Name.
Kennt einer eine Lösung?
2 Antworten
Ich mache so etwas in zwei Schritten. Als Erstes lese ich per CMD Befehl dir Ordner ein: dir /b >dir.txt
Dann kopiere ich die Namen aus der entstandenen Textdatei nach Excel.
Woher ich das weiß:Berufserfahrung – IT Support, Studium & Hobby
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel
Hier eine der Varianten, die sich auf deinen Fall anpassen lassen.
Dim FSO, FO, FU, F
Sub OrdnerAuflisten()
Set FSO = CreateObject("Scripting.FileSystemObject")
GetSubFolders "C:\Users"
End Sub
Function GetSubFolders(pfad)
Dim lRow As Long
Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
For Each F In FU
If Len(F.Path) - Len(Replace(F.Path, "\", "")) < 5 Then
lRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(lRow, 1).Value = F.Path
End If
GetSubFolders F.Path
Next
End Function