Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Ordnerinhalt in Tabelle schreiben

Betrifft: Ordnerinhalt in Tabelle schreiben von: Johann
Geschrieben am: 15.08.2008 17:19:52

Hallo Excel-Profis!

Ich brauch wieder einmal eure Hilfe.
Im Archiv habe ich mir den nachfolgenden Code besorgt und ein wenig verändert.

Der Code schreibt den Inhalt des aktuellen Ordners und der Unterordner in die Spalte B einer Tabelle und verlinkt noch dazu die einzelnen Einträge.

Jetzt hab ich noch folgende Probleme:

1.) Der Code funktioniert bis Excel 2003 perfekt. Im Office 2007 wird bei der Zeile
"Set fs = Application.FileSearch" der Fehler
"Laufzeitfehelr 445 - Objekt unterstützt diese Aktion nicht" angezeigt.

2.) Wie muss ich den Code ändern, damit in Spalte C auch noch der Ordnerpfad angezeigt wird?

Danke im Voraus
Johann

Option Explicit



Private Sub CommandButton1_Click()

Dim pfad As String, such As String
Dim Text As String, xxl As String
Dim i As Integer, y As Integer, z As Integer
Dim info As Integer, x As Integer, anz As Integer
Dim fs

Set fs = Application.FileSearch
pfad = ThisWorkbook.Path

With fs
    .LookIn = pfad
    .SearchSubFolders = True
    .Filename = "*.*"

    If .Execute(SortBy:=msoSortByFileName, _
    SortOrder:=msoSortOrderAscending) > 0 Then
    z = Len(.LookIn)
    such = "\"
    Cells(2, 2) = pfad & " " & .FoundFiles.Count & " Dateien"
    y = 3
        For i = 1 To .FoundFiles.Count
        Cells(y, 2) = .FoundFiles(i)

            Text = Cells(y, 2)
            anz = Len(Cells(y, 2))
            such = "\"

          For x = 1 To anz
          info = InStr(info + 1, Text, such)
          If info = 0 Then GoTo weiter
          Cells(y, 2) = Right(Text, anz - info)
          xxl = Cells(y, 2)
            With ActiveSheet
            .Hyperlinks.Add Anchor:=.Cells(y, 2), Address:=Text, _
            TextToDisplay:=xxl
            End With
          Next x
weiter:
        y = y + 1
        Next i

    Columns("B:B").AutoFit
    Else
        MsgBox "Keine Dateien gefunden"
    End If
End With
   With Columns("B:B").Font
        .name = "Arial"
        .FontStyle = "Standard"
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 5
    End With
    With Cells(2, 2).Font
        .name = "Arial"
        .FontStyle = "Standard"
        .Size = 10
        .ColorIndex = xlAutomatic
        .Bold = True
    End With

End Sub


  

Betrifft: AW: Ordnerinhalt in Tabelle schreiben von: Herbert
Geschrieben am: 15.08.2008 17:25:26

Hi,

Filesearch gibt es in Excel 2007 nicht mehr!

mfg Herbert


  

Betrifft: AW: Ordnerinhalt in Tabelle schreiben von: Johann
Geschrieben am: 15.08.2008 17:42:07

Hallo Herbert!

Gibts da einer Alternative?

Mfg Johann


  

Betrifft: AW: Ordnerinhalt in Tabelle schreiben von: Herbert
Geschrieben am: 15.08.2008 17:55:06

Hi,

erste wahl sollte immer das Archiv sein, dort findest du fast zu jedem Problem eine oder
mehr Lösungen. Kürzlich hat Nepumuk eine komfortable Lösung geboten.

mfg herbert


  

Betrifft: AW: Ordnerinhalt in Tabelle schreiben von: Sonnenpeter
Geschrieben am: 15.08.2008 18:50:05

Nun ja,

würde mich auch interessieren

http://www.google.com/custom?hl=de&client=google-coop&cof=AH%3Aleft%3BCX%3AHerbers%2520Excel-Forumsarchiv%3BL%3Ahttp%3A%2F%2Fwww.google.com%2Fcoop%2Fintl%2Fde%2Fimages%2Fcustom_search_sm.gif%3BLH%3A65%3BLP%3A1%3BVLC%3A%23551a8b%3BGFNT%3A%23666666%3BDIV%3A%23cccccc%3B&adkw=AELymgUKKHIqDvtxP_0I8UQxrw7QlG1P-keqPawEAb5roK386ci6bx9b4gIdUaORbORorAzCvZp2dNtX2BOjCIAbOgzXqA800sMUCTaLQR8H0OIxF2bwiEs&q=Nepumuk+ordnerinhalte&btnG=Suche&cx=006381966387372416808%3Atum9y1qqmcc

Hier das Suchergebnis! hilft nicht wirklich weiter :-(

Gruß Sonnenpeter


  

Betrifft: Trotz Suche noch nicht schlauer von: Johann
Geschrieben am: 16.08.2008 10:00:42

Einen schönen Guten Morgen!

Trotz intensiver Suche hab ich zu meiner Schande selbst noch keine einfache Lösung gefunden, wie man das in Excel 2007 nicht mehr vorkommenden "Application.FileSearch" ersetzen könnte.
Habt ihr noch einen Tipp für mich?

Schöne Grüße aus dem Weinviertel
Johann


  

Betrifft: AW: Trotz Suche noch nicht schlauer von: Hajo_Zi
Geschrieben am: 16.08.2008 10:02:52

Hallo Johann,

schaue mal auf diese Seite http://hajo-excel.de/2007_hinweise.htm

GrußformelHomepage


  

Betrifft: :-)) von: Johann
Geschrieben am: 16.08.2008 10:26:34

Hallo Hajo!

Ich muss nich da zwar erst durcharbeiten, aber in deinem Beispiel ist mit Sicherheit das Richtigte für mich.
Es wird dann halt nichts mit einer einfachen Änderung; wohl auch deswegen, weil es in deinem Beispiel so viele Möglichkeiten gibt, die mich auf so manche Idee bringen.

Auf Hajo ist eben Verlass!

Danke und herzliche Grüße
Johann


 

Beiträge aus den Excel-Beispielen zum Thema "Ordnerinhalt in Tabelle schreiben"