Moin...
In Sachen Excel bin ich ein absoluter Anfänger...
Daher habe ich eine Frage...
Ich möchte gerne die Windows Ordner von meiner HDD in Excel einlesen lassen, jedoch nicht die da drin befindlichen Dateien.
Bisher habe ich immer nur gefunden, das man die Dateien einlesen kann... Um die geht es mir jedoch nicht...
Könnt Ihr mir da helfen??
Danke schön, schon einmal...
LG
PS: Ich benutze Office 365...
Moin,
… Bahnhof.
WAS genau soll in Excel dargestellt werden. Die Struktur der
(Unter)Verzeichnisse und die Dateinamen? (Auch) Das ist mit deiner Version gut machbar.
Moin Günther...
Nur die Ordner in dem ausgewählten Verzeichnis .... Keine Unterordner/Struktur bzw. Dateinahmen. Nur der immer die "ersten" Ordner.
LG
... habe es nun anders gelöst...
Ich habe mir das Programm "DirPrintOK" heruntergeladen... Mit dem konnte ich es ins .xls Format exportieren...
Danke trotzdem...
Gerne…
Es wäre aber auch eine schöne Übung für Power Query (Daten | Abrufen und transformieren) gewesen, um dieses wirklich leistungsfähige Werkzeug kennen zu lernen.
Hallo,
wieso haben die Leute heutzutage keine Geduld mehr ? Und Lust etwas neues selbst zu erlernen, haben sie auch keine mehr ... Schade.
Dabei ist es doch total einfach ... und man findet es an allen Ecken im Netz ...
Code:
Sub FoldersOnly()
Dim FSO As Object
Dim Dest As Range
Dim TopFolder As Object
Dim SubFolder As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TopFolder = FSO.GetFolder("C:\DeinPfad\")
Set Dest = Worksheets("Tabelle1").Range("A1")
Dest.Value = TopFolder.Path
Set Dest = Dest.Offset(1, 1)
If TopFolder.SubFolders.Count > 0 Then
For Each SubFolder In TopFolder.SubFolders
Dest.Value = SubFolder.Name
Set Dest = Dest.Offset(1, 0)
Next SubFolder
End If
End Sub
Danke Dir Flotter Feger
Das hat Astrein funktioniert.
Vielen Dank...
So wollte ich es auch haben...
LG