Suche in Makros

Forumthread: Suche in Makros

Suche in Makros

15.01.2008 11:32:00

Felix

Hallo,
ich suche ein Tool, mit dem ich Verzeichnisse durchsuchen kann. Es sollen jene Datei ausgegeben werden, die einen bestimmten Text in ihren jeweiligen VBA-Quellcode stehen haben.
Kennt da jemand was?
Vielen Dank,
Felix

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Suche in Makros

15.01.2008 13:16:53

Nepumuk
Danke, aber ...

15.01.2008 15:37:51

Felix
AW: Danke, aber ...

15.01.2008 17:38:15

Heinz
AW: Danke, aber ...

15.01.2008 19:36:00

Nepumuk

AW: Suche in Makros

15.01.2008 13:16:53

Nepumuk

Hallo Felix,
öffnen der Mappen bringst du ja sicher selbs hin. Suchen in allen Modulen geht so:

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Sub SearchString()
    Dim objModul As Object
    Dim lngLine As Long, lngColumn As Long
    With ThisWorkbook.VBProject
        For Each objModul In .VBComponents
            With objModul.CodeModule
                lngLine = 1: lngColumn = 1
                Do
                    If .Find("MsgBox", lngLine, lngColumn, _
                        -1, -1, True, False, True) Then
                        Debug.Print .Lines(lngLine, 1)
                        lngLine = lngLine + 1
                    Else
                        Exit Do
                    End If
                Loop
            End With
        Next
    End With
End Sub

Public Sub Test()
    MsgBox "Hallo"
End Sub

Gruß
Nepumuk

Danke, aber ...

15.01.2008 15:37:51

Felix

Hallo Nepumuk,
danke für Deine Antwort. Allerdings geht es mir mehr darum, viele (etwa 100) Excel-Dateien zu finden, die eine bestimmte (leider hart codierte) IP-Adresse im VBA-Quellcode benutzen.
Sicherlich könnte ich nun programmieren, dass jede Exceldatei geöffnet wird und deren Makros dann entsprechend Deiner Methode durchsucht werden.
Ich hatte die Hoffnung, dass man da ohne das öffnen der (teilweise) doch sehr großen Dateien auskommt. (Ähnlich wie in der Windows-Explorer-Suche "Datei enthält Text"...)
Hat noch jemand eine Idee?
Gruß,
Felix

AW: Danke, aber ...

15.01.2008 17:38:15

Heinz

Hi,
"...Sicherlich könnte ich nun programmieren, dass jede Exceldatei geöffnet wird und deren Makros dann entsprechend Deiner Methode durchsucht werden...."
Das musst du auch, weil es anders nicht geht.
mfg Heinz

AW: Danke, aber ...

15.01.2008 19:36:00

Nepumuk

Hallo Felix,
schon mal versuch die Exceldateien als Textdatei zu öffnen und so durchzulesen?
Gruß
Nepumuk

Forumthread: Suche in Makros

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread