Office: Ordner rekursiv nach Dateien durchsuchen & Dateien öffnen

ablage01 · 25. April 2013

Guten Tag Zusammen,

ich habe ein "Master" Dokument und dieses Master Dokument füllt bestimmte Zellen mit Informationen aus anderen Dokumenten. Hab das auch implementiert und funktioniert super. ()

Nur müssen diese Dokumente die ich öffne in vorher festgelegten Ordnern sein und ich muss die Dateinamen genau definieren.

Ich möchte aber im Excel Sheet eine Liste an möglichen Ordnernamen erstellen, die dann rekursiv durchlaufen werden und alle Excel Dokumente die dort vorhanden sind geöffnet, Information herausgeholt (das mache ich) und geschlossen werden.

Vielleicht mal bessere Darstellung:

Erlaubte Ordnernamen: (steht im Masterdokument)
Ordner Anton
Ordner Berta
Ordner Caesar

Tatsächlich ist im Ordner Anton nochmal ein Ordner Berta drin und dadrin ist wieder ein Ordner Anton. Jetzt soll der Skript bis zum letzten Ordner reingehen und alle Excel Dokumente wie Sie auch heißen öffnen, eine kleine Prozedur ausführen(das übernehme ich) und dann das Dokument wieder schließen.

Freue mich auf Eure Vorschläge,

Beste Grüße

Thomas

:)

Hajo_Zi · 27. April 2013

Hallo Thomas,

so wie ich das lese kennst Du Dich Klasse in VBA aus. Dann dürfte das ein Ansatz sein.

http://hajo-excel.de/chCounter3/getfile.php?id=21

ablage01 · 28. April 2013

Erstmal habe ich meine Kentnisse in VBA dank dieses Forums erweitern können, muss man mal sagen!

Dein Skript sieht schonmal KLASSE aus. Ich habe schon einen Ansatz wie ich damit arbeiten könnte, allerdings würde ich gerne wissen wie ich eine spezielle IF Bedingung machen kann, nach dem Schema:

If FD.Name = [ALLE Strings in den Zellbereichen A2 bis A10 kommen in Betrach] Then

[...]
Ich möchte ja bestimmte Ordner ausschließen und in den Zellbereichen A2 bis A10 möchte ich nur die Namen der Ordner angeben die durchlaufen werden sollen.

Konkret geht's um folgende Stelle:

Code:

Private Sub SearchInFolder(ByVal Folderspec As String) ' auslesen aufrufen mit Ordnername
Dim FSO As New FileSystemObject
Dim SearchFolder As Folder
Dim FD As Folder
Dim FI As File
Dim EachFil As Files
Dim EachFold As Folders
Dim LoI As Long ' Laufvariable zum schreiben der Ordner
Set SearchFolder = FSO.GetFolder(Folderspec)
Set EachFil = SearchFolder.Files ' Dateien in der jeweiligen Root
If Chk_Unter Then ' Unterverzeichnis ausgewählt
' für Unterverzeichnis
Set EachFold = SearchFolder.SubFolders ' Unterordner in der Root
DoEvents ' andere Befehle ausführen
' Unterordner des Verzeichnisses feststellen und in Datei schreiben
For Each FD In EachFold
' Ordner schreiben
If FD.Name = [Bestimmte Zellen] Then

If Chk_Datei_schreiben = False And Chk_Hyperlink = False Then
Cells(LoI + 1, 1) = FD ' Ordner eintragen
LoI = LoI + 1
End If
SearchInFolder CStr(FD) ' Funktion rekursiv aufrufen weitere Unterverzeichnisse
End If

Next FD
' ***** es sind alle Verzeichnisse aufgelistet
End If
' Dateien auslesen
If Chk_Datei_schreiben Or Chk_Hyperlink Then ' Dateiname schreiben
For Each FI In EachFil ' Schleife über alle Dateien
' Ergänzung Hajo
' Dateityp feststellen
If UCase(Right(FI.Name, Len(FI.Name) - InStrRev(FI.Name, "."))) = UCase(StTyp) Or StTyp = "" Or StTyp = "*" Then
' Darstellungsart
If Chk_Hyperlink = True Then ' Hyperlink ausgewählt
If Opt_Hyperlink_Datei Then
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Loletzte, 3), _
Address:=FI.Path, TextToDisplay:=FI.Name ' Hyperlink nur Dateiname
Else
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Loletzte, 3), _
Address:=FI.Path, TextToDisplay:=FI.Path ' Hyperlink Pfad und Dateiname
End If
End If
If Chk_Datei_schreiben Then
If Opt_Datei_Pfad Then
Cells(Loletzte, 1) = FI.Path ' Dateiname einschl. Ordner
Else
Cells(Loletzte, 1) = FI.Name ' Dateiname ohne Ordner
Cells(Loletzte, 2) = Left(FI.Path, Len(FI.Path) - Len(FI.Name)) ' Pfad
End If
End If
If Chk_Datei Then
If Chk_Datei = True Then ' Dateigröße und Speicherdatum ausgewählt
Cells(Loletzte, 4) = FI.Size ' Dateigröße
Cells(Loletzte, 5) = FI.DateLastModified ' letztes Speicherdatum
If Cells(Loletzte, 2) Cells(Loletzte - 1, 2) And Loletzte > 2 _
And StTyp = "*" And Chk_Datei = True Then
If LoJ = 2 Then
With Range("F1")
.Value = "Ordnergröße"
.Font.Bold = True
End With
End If
' Ordnergröße
With Cells(Loletzte - 1, 6)
.Formula = "=SUM(D" & LoJ & ":D" & Loletzte - 1 & ")"
.NumberFormat = "#,##0"
End With
LoJ = Loletzte
End If
End If
End If
Loletzte = Loletzte + 1 ' Zeilenzäler um 1 erhöhen
Cmd_Start.Caption = Loletzte ' Programmfortschritt anzeigen
End If
' ********
DoEvents
Next FI
If StTyp = "*" And Chk_Datei = True Then
With Cells(Loletzte - 1, 6)
.Formula = "=SUM(D" & LoJ & ":D" & Loletzte - 1 & ")"
.NumberFormat = "#,##0"
End With
End If
Else
' werden nur Verzeichnisse geschrieben beginnt die Liste in Zeile 1, keine Überschrift
Cells(1, 1).Font.Bold = False
End If
Set EachFil = Nothing
Set EachFold = Nothing
Set FSO = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hajo_Zi · 28. April 2013

in Deinem ersten Beitrag hat sich das so gelesen als wenn Du eine Liste hast mit Ordnernamen und die sollen alle durchgegangen werden, jetzt liest sich das wieder so als ob einige nicht durchgangen werden solle. Ich würde das nicht Hart im Code programmieren, sondern die Tabelle dazu benutzen.

ablage01 · 28. April 2013

Mein Problem ist, dass ich die Ordnerstruktur die ich durchlaufen werde nicht immer kenne, deshalb will ich von vornerein die Ordnernamen die "ok" sind vorgeben und alle Ordner die dem Namensschema nicht passen sollen nicht durchlaufen werden.

Ich dachte aus Performance-Gründen wäre es besser wenn ich es "hart" in den Code reinschreibe welche Ordner nur durchlaufen werden sollen.
Dafür muss ich wissen wie ich die eine IF Bedingung machen kann.

Die andere Lösung wäre dann erstmal eine komplette Dateiliste & Ordnerliste zu erstellen mit dem Skript (unverändert) und später die Liste Zeile pro Zeile durchzugehen und zu gucken ob in dem langen String ein Ordnername auftaucht die "ok" ist (dafür bräuchte ich auch diese eine spezielle IF Bedingung). Aber wie gesagt, bei dieser Möglichkeit macht man doppelte Arbeit, es wäre von vornherein besser dachte ich mir, wenn ich nur Ordner und somit Dateien in die Liste aufnehme die in "betracht" kommen.

ablage01 · 28. April 2013

Wahrscheinlich muss ich das mit einer For Schleife machen...Ich probiere es mal..

OfficeUser · 28. April 2013

Hallo

Habe ich das richtig verstanden:
Du hast Ordnernamen in er Liste:
Tabelle1

A
1 Anton
2 Berta
3 Caesar
Excel Tabellen im Web darstellen >>

ablage01 · 28. April 2013

Hallo ransi,

lieben Dank ,ich habe mittlerweile mein Problem gelöst.

In dem Verzeichnis wo das Dokument ausgeführt wird gab es Verzeichnisse (Anton/Berta/Caesar/Dora etc) die wiederum KÖNNEN weitere Verzeichnisse mit Anton/Berta/Caesar etc enthalten. Also die Ordnertiefe kann sehr lang sein.

Jetzt wollte ich nur bestimmte Ordner rekursiv durchlaufen, zb Berta und Caesar.

Und die die ich durchlaufen wollte, wollte ich bequem per Tabelleneingabe festlegen, die Informationen dazu waren in den Zellen A1-A28.

Mittlerweile habe ich eine For Schleife gebaut, die einfach die Zellen durchgeht und wenn da ein Ordnername steht, diesen Ordner auch durchsucht.

*Smilie

Office: Ordner rekursiv nach Dateien durchsuchen & Dateien öffnen

Ordner rekursiv nach Dateien durchsuchen & Dateien öffnen

Ordner rekursiv nach Dateien durchsuchen & Dateien öffnen

Ordner rekursiv nach Dateien durchsuchen & Dateien öffnen

Ordner rekursiv nach Dateien durchsuchen & Dateien öffnen

Ordner rekursiv nach Dateien durchsuchen & Dateien öffnen - Similar Threads - Ordner rekursiv Dateien

Gelöschte Elemente, Elemente in diesem Ordner werden in 30 Tagen gelöscht

eMail aus Posteingang in anderen Ordner verschieben

Gelöscht-Ordner nach Datum leeren

[OT] GMail – Speicherplatz trotz gelöschter Mails belegt („Alle E-Mails“-Ordner)

Outlook synchronisiert Gmail-Ordner nicht vollständig (Office 2021 zu M365)

Outlook - Ordner gesendete Elemente wechseln

Öffentlicher Ordner Kontakte aktualisieren