PowerShellで複数のExcelファイルを一括検索する方法【Microsoft Officeインストール前提】

$searchDir = "検索対象のExcelファイルを格納しているフォルダパス（例：D:\PowerShellScript\excel）"
$keyword   = "検索対象のキーワード（例：1）"
$output = "検索結果Excelファイルの出力先パス（例：D:\PowerShellScript\result\search_result.xlsx）"

$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$excel.DisplayAlerts = $false

$results = @()

Get-ChildItem -Path $searchDir -Include *.xlsx, *.xls -Recurse | ForEach-Object {
    $file = $_.FullName
    $workbook = $excel.Workbooks.Open($file, $null, $true)
    foreach ($sheet in $workbook.Sheets) {
        foreach ($row in $sheet.UsedRange.Rows) {
            foreach ($cell in $row.Columns) {
                if ($cell.Text -like "*$keyword*") {
                    $results += [PSCustomObject]@{
                        FilePath    = $file
                        Sheet       = $sheet.Name
                        CellAddress = $cell.Address()
                        Value       = $cell.Text
                    }
                }
            }
        }
    }
    $workbook.Close($false)
}

if ($results.Count -gt 0) {
    $resultWorkbook = $excel.Workbooks.Add()
    $sheet = $resultWorkbook.Sheets.Item(1)
    $sheet.Cells.Item(1,1).Value2 = "ファイルパス"
    $sheet.Cells.Item(1,2).Value2 = "シート名"
    $sheet.Cells.Item(1,3).Value2 = "セル位置"
    $sheet.Cells.Item(1,4).Value2 = "一致した値"

    for ($i = 0; $i -lt $results.Count; $i++) {
        $sheet.Cells.Item($i+2,1).Value2 = $results[$i].FilePath
        $sheet.Cells.Item($i+2,2).Value2 = $results[$i].Sheet
        $sheet.Cells.Item($i+2,3).Value2 = $results[$i].CellAddress
        $sheet.Cells.Item($i+2,4).Value2 = $results[$i].Value
    }

    $resultWorkbook.SaveAs($output)
    $resultWorkbook.Close($false)
    Invoke-Item -Path $output
}

$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null