PowerShellで複数のExcelファイルを一括検索する方法【ログ出力・エラー処理付き版】

# 検索対象フォルダのパス
$searchDir = "検索対象のExcelファイルを格納しているフォルダパス（D:\PowerShellScript\excel）"

# 検索キーワード
$keyword   = "検索対象のキーワード（例：1）"
 
# 検索結果フォルダのパス
$outputDir = "検索結果Excelファイル・ログファイルの出力先フォルダパス（例：D:\PowerShellScript\result）"

# 検索結果出力フォルダ（必要に応じて存在確認して作成）
if (-not (Test-Path $outputDir)) {
    New-Item -Path $outputDir -ItemType Directory | Out-Null
}

# タイムスタンプ付きの検索結果ファイル名
$timestamp = Get-Date -Format "yyyyMMdd_HHmmss"
$outputFile = "$($timestamp)_search_result.xlsx"
$outputPath = Join-Path -Path $outputDir -ChildPath $outputFile
$logFile = Join-Path -Path $outputDir -ChildPath "log_$($timestamp).log"

# ログ出力関数（画面表示＋ログファイル）
function Write-Log {
    param([string]$message)
    $time = Get-Date -Format "yyyy-MM-dd HH:mm:ss"
    $line = "[$time] $message"
    Write-Host $line
    Add-Content -Path $logFile -Value $line
}

# 実行条件表示
Write-Log "検索キーワード: $keyword"
Write-Log "対象フォルダ: $searchDir"
Write-Log "検索結果ファイル: $outputPath"
Write-Log "ログファイル: $logFile"

$excel = $null
$results = @()

try {
    $excel = New-Object -ComObject Excel.Application
    $originalVisible = $excel.Visible
    $originalAlerts = $excel.DisplayAlerts

    $excel.Visible = $false
    $excel.DisplayAlerts = $false

    Get-ChildItem -Path $searchDir -Include *.xlsx, *.xls -Recurse | ForEach-Object {
        $file = $_.FullName
        $workbook = $null
        Write-Log "処理中: $file"
        try {
            $workbook = $excel.Workbooks.Open($file, $null, $true)
            foreach ($sheet in $workbook.Sheets) {
                $usedRange = $sheet.UsedRange
                foreach ($row in $usedRange.Rows) {
                    foreach ($cell in $row.Columns) {
                        $value = $cell.Text
                        if ($value -and $value -like "*$keyword*") {
                            $results += [PSCustomObject]@{
                                FilePath    = $file
                                Sheet       = $sheet.Name
                                CellAddress = $cell.Address()
                                Value       = $value
                            }
                        }
                    }
                }
            }
        } catch {
            Write-Log "ファイル処理エラー: $_"
        } finally {
            if ($workbook) { $workbook.Close($false) }
        }
    }

    # 検索結果をExcelに出力
    if ($results.Count -gt 0) {
        $resultWorkbook = $excel.Workbooks.Add()
        $resultSheet = $resultWorkbook.Sheets.Item(1)
        $resultSheet.Name = "検索結果"

        # ヘッダー
        $resultSheet.Cells.Item(1, 1).Value2 = "ファイルパス"
        $resultSheet.Cells.Item(1, 2).Value2 = "シート名"
        $resultSheet.Cells.Item(1, 3).Value2 = "セル位置"
        $resultSheet.Cells.Item(1, 4).Value2 = "一致した値"

        # データ出力
        for ($i = 0; $i -lt $results.Count; $i++) {
            $resultSheet.Cells.Item($i + 2, 1).Value2 = $results[$i].FilePath
            $resultSheet.Cells.Item($i + 2, 2).Value2 = $results[$i].Sheet
            $resultSheet.Cells.Item($i + 2, 3).Value2 = $results[$i].CellAddress
            $resultSheet.Cells.Item($i + 2, 4).Value2 = $results[$i].Value
        }

        # 保存して閉じる
        $resultWorkbook.SaveAs($outputPath)
        $resultWorkbook.Close($false)

        # 結果ファイルを自動で開く
        Invoke-Item -Path $outputPath
        Write-Log "検索結果をExcelに出力しました。"
    } else {
        Write-Log "一致するデータは見つかりませんでした。"
    }

} catch {
    Write-Log "エラーが発生しました: $_"
} finally {
    if ($excel) {
        $excel.Visible = $originalVisible
        $excel.DisplayAlerts = $originalAlerts
        $excel.Quit()
        [System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null
        [GC]::Collect()
        [GC]::WaitForPendingFinalizers()
    }
    Write-Log "処理が完了しました。"
}