Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Explorer Ordnerstruktur in Excel abbilden
zurück: Übergabe von Zellen nach Prüfung eines vorgegebenen Zeitraum weiter: Activesheet oder Worksheet(1) Autovervollständigung Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Handdampf987
Gast


Verfasst am:
28. Feb 2013, 14:22
Rufname:

Explorer Ordnerstruktur in Excel abbilden - Explorer Ordnerstruktur in Excel abbilden

Nach oben
       Version: Office 2007

Hallo Community,

ich habe unter D:\Test mehrere Unterordner. In jedem dieser Unterordner befinden sich bis zu 5 Bilder.

Ich suche eine Möglichkeit dies in Excel abzubilden.
So dass z.B. in Zeile 1 Spalte A der erste Ordnername steht und ab Spalte B dann nebeneinander jeder einzelne Bildname in einer eigenen Spalte.
Zweiter Ordner dann in Zeile 2 usw.

Kann mir hier jemand helfen wie ich das abbilden kann?

Allerbesten Dank bereits vorab für die Hilfe.....
Wittgenstein
... wüsste gern mehr


Verfasst am:
28. Feb 2013, 15:34
Rufname: Tobi

AW: Explorer Ordnerstruktur in Excel abbilden - AW: Explorer Ordnerstruktur in Excel abbilden

Nach oben
       Version: Office 2007

Hallo,

bei mir klappt das hier:
Option Explicit

Sub test()
    Dim fs                  As Object
    Dim objFolder           As Object
    Dim objSubFolder        As Object
    Dim objFile             As Object
    Dim strPath             As String
    Dim strFiletype(1 To 5) As String
    Dim lngLastRow          As Long
    Dim lngLastCol          As Long
    Dim i                   As Integer
    
    strPath = "D:\Test"
    If Not Right(strPath, 1) = "\" Then strPath = strPath & "\"
    strFiletype(1) = ".jpg"
    strFiletype(2) = ".bmp"
    strFiletype(3) = ".png"
    strFiletype(4) = ".gif"
    strFiletype(5) = ".jpeg"
    
    Set fs = CreateObject("Scripting.FilesystemObject")
    Set objFolder = fs.GetFolder(strPath)
    
    
    For Each objSubFolder In objFolder.SubFolders
        With ActiveSheet
            lngLastRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
            .Cells(lngLastRow, 1).Value = objSubFolder.Name
            For Each objFile In objSubFolder.Files
                For i = 1 To 5
                    lngLastCol = .Cells(lngLastRow, Columns.Count).End(xlToLeft).Column + 1
                    If StrComp( _
                     Right(objFile.Name, Len(objFile.Name) - InStr(1, objFile.Name, ".")), _
                     strFiletype(i), vbTextCompare) = 1 Then
                        .Cells(lngLastRow, lngLastCol).Value = objFile.Name
                    End If
                Next i
            Next objFile
        End With
    Next objSubFolder
                        
End Sub

_________________
Liebe Grüße
Tobi

Ein kurzes Feedback tut nicht weh!
lumb
Im Profil kannst Du frei den Rang ändern


Verfasst am:
28. Feb 2013, 15:34
Rufname:


AW: Explorer Ordnerstruktur in Excel abbilden - AW: Explorer Ordnerstruktur in Excel abbilden

Nach oben
       Version: Office 2007

Hier ist ein ähliches Problem gelöst:

http://www.office-loesung.de/ftopic60815_0_0_asc.php
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formate: Excel 2010: CSV Dateien aus Explorer heraus öffnen 1 Bodo666 505 22. Nov 2012, 14:16
Winny Excel 2010: CSV Dateien aus Explorer heraus öffnen
Keine neuen Beiträge Excel VBA (Makros): Auslesen Ordnerstruktur (Ordner, Unterordner und Dateinamen) 9 mikkkko 17473 10. Aug 2011, 08:55
godofglow83 Auslesen Ordnerstruktur (Ordner, Unterordner und Dateinamen)
Keine neuen Beiträge Excel VBA (Makros): Internet Explorer - File Input Box 2 Quietkai 695 19. Feb 2011, 13:11
Quietkai Internet Explorer - File Input Box
Keine neuen Beiträge Excel VBA (Makros): Mailanhang über Explorer auswählen 4 susamrk 203 27. Dez 2010, 10:10
susamrk Mailanhang über Explorer auswählen
Keine neuen Beiträge Excel VBA (Makros): Ordnerstruktur in Excel einlesen 6 capten 1728 23. Nov 2010, 12:15
Gast Ordnerstruktur in Excel einlesen
Keine neuen Beiträge Excel VBA (Makros): Mit Makro Folgeseiten aus Internet Explorer importieren 0 Chri$$ 300 12. Aug 2010, 10:43
Chri$$ Mit Makro Folgeseiten aus Internet Explorer importieren
Keine neuen Beiträge Excel VBA (Makros): Baummenü in Excel automatisiert abbilden nach einlesen 6 Dudu 1307 20. Jul 2010, 18:56
Dudu Baummenü in Excel automatisiert abbilden nach einlesen
Keine neuen Beiträge Excel Formeln: DRAG UND DROP AUS DEM EXPLORER 3 memo0309 1725 22. Jan 2010, 22:40
guest DRAG UND DROP AUS DEM EXPLORER
Keine neuen Beiträge Excel VBA (Makros): Ordnerstruktur bis zum 3. Grad in Excel auflisten 12 Elbart 2626 18. Nov 2009, 12:22
Elbart Ordnerstruktur bis zum 3. Grad in Excel auflisten
Keine neuen Beiträge Excel VBA (Makros): Internet Explorer aufrufen und PDF erstellen 2 Nexus266 999 10. Nov 2009, 14:12
Nexus266 Internet Explorer aufrufen und PDF erstellen
Keine neuen Beiträge Excel VBA (Makros): Windows Explorer über VBA schließen 1 Jens1977 1738 08. Sep 2009, 09:13
bst Windows Explorer über VBA schließen
Keine neuen Beiträge Excel Formeln: Daten aus mehreren Tabellen in einem Blatt abbilden 12 Gast 2 298 28. Jul 2009, 09:07
neopa Daten aus mehreren Tabellen in einem Blatt abbilden
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft-Excel Diagramme