Herbers Excel/VBA-Archiv

Application Filesearch funktioniert nich

• Application Filesearch funktioniert nich von Dieter vom 03.11.2020 10:53:51
• AW: Application Filesearch funktioniert nich - von AlterDresdner am 03.11.2020 11:00:04
• AW: Application Filesearch funktioniert nich - von Nepumuk am 03.11.2020 11:40:42
  • AW: Application Filesearch funktioniert nich - von Dieter am 03.11.2020 11:50:47
    • AW: Application Filesearch funktioniert nich - von Nepumuk am 03.11.2020 11:54:01
      • AW: Application Filesearch funktioniert nich - von Dieter am 03.11.2020 12:06:19
        • AW: Application Filesearch funktioniert nich - von Dieter am 03.11.2020 12:06:56
          • AW: Application Filesearch funktioniert nich - von Nepumuk am 03.11.2020 12:11:35
            • AW: Application Filesearch funktioniert nich - von Dieter am 03.11.2020 12:15:26
              • AW: Application Filesearch funktioniert nich - von Nepumuk am 03.11.2020 12:17:44
                • Nachtrag - von Nepumuk am 03.11.2020 12:18:51
                  • AW: Nachtrag - von Dieter am 03.11.2020 12:34:36
                    • nur mal kurz... - von Oberschlumpf am 03.11.2020 12:37:46

Betrifft: Application Filesearch funktioniert nich von: Dieter
Geschrieben am: 03.11.2020 10:53:51

Hallo zusammen,


ich nutze folgenden Code um Dokumente und deren Pfad auszulesen.

Sub suchen()
    Dim Dateiname As String
    Dim Suchbegriff As String
    Dim Pfad As String
    Pfad = "Pfad"
    Dim x, y As Integer
    Dim objFS As FileSearch
    Set objFS = Application.FileSearch
    
    
    
    y = ActiveWorkbook.Sheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row
    For x = 2 To y
    
    Suchbegriff = ActiveWorkbook.Sheets("Tabelle1").Cells(x, 2).Value
    Dateiname = Pfad & "\" & Suchbegriff
    
    With objFS
    .NewSearch
    .Filename = Suchbegriff
    .LookIn = Pfad
    .SearchSubFolders = True
    If .Execute > 0 Then
      
      ActiveWorkbook.Sheets("Tabelle1").Cells(x, 3).Value = .FoundFiles(1)

    
    End If
  End With
    
    

    Next
End Sub

Leider bricht er mit bei Set objFS = Application.FileSearch immer ab mit der Begründung.

"Objekt unterstützt diese Aktion nicht"


In der Bibliothek sind dabei die Verweise auf "Microsoft Scripting Runtime" gesetzt.

Wäre über Hilfe sehr dankbar!!

VG

  

Betrifft: AW: Application Filesearch funktioniert nich
von: AlterDresdner
Geschrieben am: 03.11.2020 11:00:04

Hallo Dieter,
Filesearch gibt es seit Exc2007 nicht mehr.
Google mal FileSearch VBA, da werden Sie geholfen...
Gruß der ALteDresdner

  

Betrifft: AW: Application Filesearch funktioniert nich
von: Nepumuk
Geschrieben am: 03.11.2020 11:40:42

Hallo Dieter,

teste mal:

https://www.herber.de/bbs/user/141270.xlsm

Gruß
Nepumuk

  

Betrifft: AW: Application Filesearch funktioniert nich
von: Dieter
Geschrieben am: 03.11.2020 11:50:47

Hallo Nepumuk,

besten Dank für die Antwort!
Leider bekomme ich die Meldung:

"Benutzerdefinierter Typ nicht definiert": in der Zeile: Dim objFileSearch As clsFileSearch

Weist du woran das liegt?
Vg und beste Grüße

  

Betrifft: AW: Application Filesearch funktioniert nich
von: Nepumuk
Geschrieben am: 03.11.2020 11:54:01

Hallo Dieter,

dann fehlt in deiner Datei das Klassenmodul "clsFileSearch". Das kannst du einfach in Projektexplorer per Drag&Drop aus meiner Mappe in deine ziehen.

Gruß
Nepumuk

  

Betrifft: AW: Application Filesearch funktioniert nich
von: Dieter
Geschrieben am: 03.11.2020 12:06:19

Ach super, das habe ich jetzt geschafft.
Leider bekomme ich jetzt in der Zeile:
".NewSearch" die Meldung: "Methode oder Datenobjekt nicht gefunden"

VG

  

Betrifft: AW: Application Filesearch funktioniert nich
von: Dieter
Geschrieben am: 03.11.2020 12:06:56

Und besten Dank! Sry für die Fragen, etwas neu auf dem Gebiet...

  

Betrifft: AW: Application Filesearch funktioniert nich
von: Nepumuk
Geschrieben am: 03.11.2020 12:11:35

Hallo Dieter,

Hauptsache es läuft. :-)

Gruß
Nepumuk

  

Betrifft: AW: Application Filesearch funktioniert nich
von: Dieter
Geschrieben am: 03.11.2020 12:15:26

Hallo Nepumuk,

wie gesagt in der Zeile
.NewSearch

bekomme ich noch die Fehlermeldung von vorherigem Post.
Könntest du da noch hinschauen? :)

VG

  

Betrifft: AW: Application Filesearch funktioniert nich
von: Nepumuk
Geschrieben am: 03.11.2020 12:17:44

Hallo Dieter,


Das ist in meiner Klasse eine Eigenschaft und keine Methode.

Gruß
Nepumuk

  

Betrifft: Nachtrag
von: Nepumuk
Geschrieben am: 03.11.2020 12:18:51

Hallo Dieter,

halte dich an mein Beispiel.

Gruß
Nepumuk

  

Betrifft: AW: Nachtrag
von: Dieter
Geschrieben am: 03.11.2020 12:34:36

Hallo Dieter,

danke für deine Mühe.
Leider bekomme ich immer noch die Fehlermeldung:

NewSearch:

Fehler beim Kompilieren:
Mehtode oder Datenobjekt nicht gefunden.


Dabei habe ich mich strikt an dein Beispiel gehalten...

Danke für deine Mühen.

VG

  

Betrifft: nur mal kurz...
von: Oberschlumpf
Geschrieben am: 03.11.2020 12:37:46

Hi Dieter,

dann zeig doch mal genau die Datei, in der der Fehler auftritt, als dass du immer wieder - nur - den Fehler beschreibst...

Ciao
Thorsten