+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Windows Ordner in Exel einlesen (/thread-17725.html)
Windows Ordner in Exel einlesen - Neo13 - 12.02.2021
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...
RE: Windows Ordner in Exel einlesen - GMG-CC - 12.02.2021
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.
RE: Windows Ordner in Exel einlesen - Neo13 - 12.02.2021
Moin Günther...
Nur die Ordner in dem ausgewählten Verzeichnis .... Keine Unterordner/Struktur bzw. Dateinahmen. Nur der immer die "ersten" Ordner.
LG
RE: Windows Ordner in Exel einlesen - Neo13 - 12.02.2021
... habe es nun anders gelöst...
Ich habe mir das Programm "DirPrintOK" heruntergeladen... Mit dem konnte ich es ins .xls Format exportieren...
Danke trotzdem...
RE: Windows Ordner in Exel einlesen - GMG-CC - 12.02.2021
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.
RE: Windows Ordner in Exel einlesen - Flotter Feger - 13.02.2021
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 SubRE: Windows Ordner in Exel einlesen - Neo13 - 13.02.2021
Danke Dir Flotter Feger
Das hat Astrein funktioniert.
Vielen Dank...
So wollte ich es auch haben...
LG