Makro-Quelltexte massenhaft durchsuchen

# Pfad zum Verzeichnis, in dem die Excel-Dateien gespeichert sind
$VerzeichnisPfad = "C:\Pfad\Zu\Deinem\Verzeichnis"  

# Der Text, nach dem du suchen möchtest
$ZuSuchenderText = "DeinSuchtext"  

# Datei, in der die Ergebnisse gespeichert werden
$ErgebnisDatei = "C:\Pfad\Zu\Deiner\Ergebnisdatei.txt"  

# Erstelle ein Excel-Anwendungsobjekt
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false

# Erstelle eine Liste, um die Ergebnisse zu speichern
$Ergebnisse = @()

# Durchsuche alle Excel-Dateien im Verzeichnis
Get-ChildItem -Path $VerzeichnisPfad -Filter *.xls* | ForEach-Object {
    $Datei = $_.FullName

    # Öffne die Excel-Datei
    $Arbeitsmappe = $excel.Workbooks.Open($Datei)
    
    # Durchsuche alle Makros in der Arbeitsmappe
    $Arbeitsmappe.VBProject.VBComponents | ForEach-Object {
        $Modul = $_
        $Code = $Modul.CodeModule.Lines(1, $Modul.CodeModule.CountOfLines)

        # Überprüfe, ob der Text im Makro gefunden wurde
        if ($Code -like "*$ZuSuchenderText*") {  
            $Ergebnis = "Datei: $Datei - Modul: $($Modul.Name) - Zeile: $($Code.IndexOf($ZuSuchenderText) + 1)"  
            $Ergebnisse += $Ergebnis
        }
    }

    # Schließe die Arbeitsmappe
    $Arbeitsmappe.Close()
}

# Speichere die Ergebnisse in der Ergebnisdatei
$Ergebnisse | Out-File -FilePath $ErgebnisDatei

# Schließe die Excel-Anwendung
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
Remove-Variable excel

Write-Host "Die Suche wurde abgeschlossen. Die Ergebnisse wurden in $ErgebnisDatei gespeichert."