HERBERS Excel-Forum - die Beispiele

Thema: Dateien mit bestimmtem Inhalt suchen

Home

Gruppe

Datei

Problem

Die in Spalte A genannten Verzeichnisse sollen gem. den Kriterien in Spalte D durchsucht und die gefundenen Dateien in einer neuen Arbeitsmappe mit Hyperlinks gelistet werden.

Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1

Sub GrepFiles()
   Dim wks As Worksheet
   Dim iCounter As Integer, iRow As Integer
   Set wks = ActiveSheet
   iRow = 2
   Workbooks.Add 1
   Do Until IsEmpty(wks.Cells(iRow, 1))
      With Application.FileSearch
         .NewSearch
         .LookIn = wks.Cells(iRow, 1).Value
         .Filename = wks.Range("D1").Value
         .MatchTextExactly = True
         .TextOrProperty = wks.Range("D2").Value
         .SearchSubFolders = wks.Range("D3").Value
         .Execute
         For iCounter = 1 To .FoundFiles.Count
            Cells(iCounter, 6).Value = .FoundFiles(iCounter)
            ActiveSheet.Hyperlinks.Add Cells(iCounter, 6), .FoundFiles(iCounter)
         Next iCounter
      End With
      iRow = iRow + 1
   Loop
End Sub

Beiträge aus dem Excel-Forum zu den Themen Datei und Suchen

Suchen und Löschen Suchen und Löschen
Excel/PDF Datei unter bestimmten Pfad abspeichern mehrere Wörter suchen VBA
Zeile nach Wert durchsuchen aus excel Worddatei nach Wert durchsuchen
Split-Funktion beim Einlesen TXT-Datei Datei löschen mit unterschiedlichen Zahlen im Name
Objekt mit XML Inhalt durchsuchen Datei löschen mit unterschiedlichen Zhalen im Name
geöffnete Worddatei und Word aus Excel beenden Spalte durchsuchen + IF
Höchsten Wert suchen Excel-Datei nicht im Projekt-Explorer
Suche nach jüngster Datei Begriffe in Zeile suchen
Inhalte von einer PDF suchen und den Text kopieren Mehrere Zellen in mehreren Dateien ersetzen
Zwei Bedingungen suchen Datei öffnen mit variablen im Namen
Vergleichen zweier Dateien und aktualisieren Datei langsam durch Formel
Dateien aus Unterordner öffnen Daten import aus txt--Datei
VBA Suchen, kopieren, einfügen Dateipfad öffnen mit VBA
Datei-Verknüpfungen Masterdatei erschaffen?
Mehrere Datenblätter als PDF-Datei ausgeben Makro bei Erstellen einer Datei aus einer Vorlage
Wert suchen und ab Wert Zahlen addieren Zusammenführung aus mehreren Dateien
Rechteck per Button in andere Datei einfügen. Alle Dateien in einem Unterordner öffnen
VBA: MsgBox: yes/no. Bei yes andere Datei öffnen Find statt Formel nach Wert suchen lassen
Mehrere txt Dateien einlesen in ein Programm VBA Datei als .txt speichern
Excel Datei in CSV Datei wandeln mit Extras aktierten Text in geöffnete Worddatei
Spalte in andere Dateien kopieren + zurückkopieren Aus einer CSV-Datei ein bestimmtes Layout erzeugen
Daten ausgew. WS in 2. Datei zusammenführen Per VBA aktuelle Datei in Autostart-Ordner
csv Dateien importieren Makrodatei als Software hochwertiger gestalten
manuelles Speichern bei schreibgeschützter Datei Daten aus geschlossener Datei in Zieldatei kopiere
Dateinamen per VBA vorgeben (Datum: Vormonat)