Re(3): Kniffliges Problem betreffend Suchfunktion?

Kniffliges Problem betreffend Suchfunktion? (15 Beiträge, 296 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo!

Folgendes Problem:

Ich habe in einem Verzeichnis mehrere Excel-Dateien, welche aus mehreren Tabellenblättern bestehen.

Gibt es eine Möglichkeit, mit einer externen Suchroutine (Excel, Word, Batchdatei,...?) dieses Verzeichnis nach dem eingegeben Suchbegriff durchsuchen zu lassen, und alle Fundstellen in einer neuen Tabelle anzuzeigen??? Durchsucht sollen zwar alle vorhandenen Dateien werden, jedoch pro Datei nur ein immer gleich benanntest Tabellenblatt mit den Spalten A-CP.

Also wenn ich in die Suchroutine zB "Hannes" eingeben, listet das Programm alle Fundstellen im Suchverzeichnis in etwa so auf:

Es gibt insgesamt "xx" Fundstellen des Suchbegriffes "Suchbegriff".

1) Dateiname 1
2) Dateiname 1
3) Dateiname 3
4) Dateiname 6
...

Da diese Suchfunktion ua von noch unerfahreren PC-Nutzern benötigt wird, ersuche ich nicht um Lösungsvorschläge ala "Windows-Suchfunktion"

Danke,

SunnyHill.

Re: Kniffliges Problem betreffend Suchfunktion? (mike222 am 28.09.2006, 17:53:42)

Re(2): Kniffliges Problem betreffend Suchfunktion? (SunnyHill am 28.09.2006, 19:36:38)

Re: Kniffliges Problem betreffend Suchfunktion? (Thing am 29.09.2006, 00:24:44)

Re(2): Kniffliges Problem betreffend Suchfunktion? (SunnyHill am 30.09.2006, 12:29:00)

Re(3): Kniffliges Problem betreffend Suchfunktion? (Thing am 05.10.2006, 23:39:24)

Re(2): Kniffliges Problem betreffend Suchfunktion? (SunnyHill am 05.10.2006, 08:00:46)

Okay, war vielleicht doch etwas zu quick&dirty. Ich nehme an, Ihr habt in den Excel-Dateien irgendwelche Start-Makros, die die Sheets zumindest so verändern, dass beim Schliessen der Dateien Abfragen ("Wollen Sie speichern?") kommen. Wenn man diese nicht bestätigt, dann bleiben die Excel-Dateien geladen und die Kollegen bekommen diese Meldungen ("Datei schon geöffnet"). Beim Abmelden fragt Excel dann natürlich noch einmal nach, was mit den geöffneten Dateien nun passieren soll.

Ist natürlich nicht optimal. Daher werden in untenstehender Version die Dateien nun grundsätzlich im ReadOnly-Modus geöffnet und beim Schliessen der Dateien wird explizit auf das Speichern verzichtet (dann sollten auch diese Sicherheitsabfragen nicht mehr kommen).

Die Zeile mit dem obj.Visible habe ich nun etwas vorgezogen, damit man besser sieht was so abläuft. Wenn alles ordnungsgemäss und stabil läuft, kannst Du sie aber wieder runterschieben.

Es wird übrigens nun auch die Anzahl der Treffer pro Datei angezeigt (ich hab das vorher anders verstanden).

'Parameter zum anpassen
ExcelDateienPfad = "C:\Test"
SuchBlatt  = "Tabelle1"
SuchSpalten = "A:CP"

SuchBegriff = InputBox("Suchbegriff","Eingabe")

Set Fso = CreateObject("Scripting.FileSystemObject")
Set OXl = CreateObject("Excel.Application")
Set Wb = OXl.Workbooks.Add
Set ShSuchErg = Wb.Sheets(1)

OXl.Visible = True 'macht Excel sichtbar

AnzahlFundStellen = 0
ZeSuchErg = 2
For Each F In Fso.GetFolder(ExcelDateienPfad).Files
  If Right(UCase(F.Name),4) = ".XLS" Then
    Set WbHelp = OXl.Workbooks.Open(F.Path,,True) 'Öffen im ReadOnly-Modus
    With WbHelp.Sheets(SuchBlatt).Range(SuchSpalten)
      Set Ce = .Find(SuchBegriff)
      If Not Ce Is Nothing Then
        FirstAddress = Ce.Address
        FundstellenInDatei = 0
        Do
          FundstellenInDatei = FundstellenInDatei + 1
          Set Ce = .FindNext(Ce)
        Loop While Not Ce Is Nothing And Ce.Address <> FirstAddress
        ZeSuchErg = ZeSuchErg + 1
        ShSuchErg.Cells(ZeSuchErg,1) = F.Path
        ShSuchErg.Cells(ZeSuchErg,2) = FundstellenInDatei
        AnzahlFundStellen = AnzahlFundStellen + FundstellenInDatei
      End If
    End With
    ShSuchErg.Range("A1") = "Es gibt insgesamt " & AnzahlFundStellen & " Fundstellen des Suchbegriffes <" & SuchBegriff & ">"
    WbHelp.Close False 'Schliessen ohne Speichern
  End If
Next
ShSuchErg.Columns("A").AutoFit 'Spaltenbreite optimieren

Noch ein Tip: Testen würde ich generell nicht "am lebenden Objekt". Am besten erst einmal irgendwo ein Testverzeichnis anlegen und ausprobieren. Wenn es funkt, dann Pfad umstellen auf Echtbetrieb.

Re(4): Kniffliges Problem betreffend Suchfunktion? (SunnyHill am 06.10.2006, 07:47:16)

Re(5): Kniffliges Problem betreffend Suchfunktion? (Thing am 07.10.2006, 10:10:45)

Re: Kniffliges Problem betreffend Suchfunktion? (Schokokipfal am 29.09.2006, 06:40:59)

Re(2): Kniffliges Problem betreffend Suchfunktion? (RevX am 30.09.2006, 22:00:42)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung