生成AI活用研究
「Gemini CLI」によるExcel自動化フレームワーク：実践ガイド

@echo off
REM PowerShellスクリプトのルートディレクトリに移動
cd /d "C:\AutomationFramework"

REM PowerShell 7 (pwsh.exe) スクリプトを実行
REM -NoProfile: プロファイルスクリプトを実行しない（起動を速くする）
REM -ExecutionPolicy Bypass: スクリプトの実行ポリシーを一時的にバイパスする（スクリプト実行を許可）
REM -File: 実行するスクリプトファイルを指定
REM -ConfigFile: Run-Automation.ps1のパラメータにconfig.jsonのパスを渡す
REM PowerShellのコマンド全体を二重引用符で囲むことで、BATファイルがPowerShellの引数を誤って解釈するのを防ぎます。

REM PowerShell Core (pwsh.exe) を呼び出し、PowerShellスクリプトを実行
pwsh.exe -Command "& {.\Run-Automation.ps1 -ConfigFile '.\Tasks\VbaRefactor\config.json'}"

REM 実行終了後、ウィンドウを閉じる前に一時停止する場合（オプション）
rem pause

{
  "environment": {
    "geminiApiKeyEnvName": "GEMINI_API_KEY",
    "excelFilePath": "C:\\AutomationFramework\\Tasks\\VbaRefactor\\SampleBook.xlsm",
    "exportFolderPath": "C:\\AutomationFramework\\Tasks\\VbaRefactor\\Output\\",
    "logFileName": "vba_refactor_log.txt"
  },
  "task": {
    "moduleName": "Module1",
    "description": "以下のVBAコードを修正してください。注意点として、あなたは元のコードの改行をすべて失い、1行の文字列として認識してしまいます。そこで、修正処理が完了した後、VBAの文法として正しくなるように、各ステートメントの末尾に適切な改行を挿入し、完全なフォーマットのコードとして出力してください。\n1. プロシージャ名「Sub SayHello_Old()」を「Sub SayHello_New()」に変更\n2. メッセージ文字列「Hello from original VBA.」を「Hello from AI-modified VBA!」に変更"
  },
  "mockMode": false
}

{
  "environment": {
    "geminiApiKeyEnvName": "GEMINI_API_KEY",
    "excelFilePath": "C:\\AutomationFramework\\Tasks\\VbaRefactor\\SampleBook.xlsm",
    "exportFolderPath": "C:\\AutomationFramework\\Tasks\\VbaRefactor\\Output\\",
    "logFileName": "vba_refactor_log.txt"
  },
  "task": {
    "moduleName": "Module1",
    "description": "以下のVBAコードを修正してください。注意点として、あなたは元のコードの改行をすべて失い、1行の文字列として認識してしまいます。そこで、修正処理が完了した後、VBAの文法として正しくなるように、各ステートメントの末尾に適切な改行を挿入し、完全なフォーマットのコードとして出力してください。\n1. プロシージャ名「Sub SayHello_Old()」を「Sub SayHello_New()」に変更\n2. メッセージ文字列「Hello from original VBA.」を「Hello from AI-modified VBA!」に変更"
  },
  "mockMode": false
}

# ===================================================================
#  Gemini x PowerShell 汎用自動化実行エンジン
#  バージョン: 16.0 (最終完成版)
# ===================================================================

param (
    [Parameter(Mandatory=$true)]
    [string]$ConfigFile
)

# --- 1. 設定ファイルの読み込み ---
Write-Host "INFO: 設定ファイルを読み込んでいます: $ConfigFile"
if (-not (Test-Path $ConfigFile)) {
    Write-Host "ERROR: 設定ファイルが見つかりません。";
    exit 1
}
$Config = Get-Content -Path $ConfigFile -Raw -Encoding UTF8 | ConvertFrom-Json

# 設定値の取得
$excelFilePath = $Config.environment.excelFilePath
$exportFolderPath = $Config.environment.exportFolderPath
$moduleName = $Config.task.moduleName
$taskDescription = $Config.task.description

# パスの構築
$logFilePath = Join-Path $exportFolderPath "vba_refactor_log.txt"
$exportedSjisFilePath = Join-Path $exportFolderPath "$($moduleName).sjis.bas"
$finalUtf8FilePath = Join-Path $exportFolderPath "$($moduleName).final.utf8.bas" # AIが生成したコードの一時保存場所
$finalSjisFilePath = Join-Path $exportFolderPath "$($moduleName).final.sjis.bas" # Excelインポート用SJISファイル

# --- 2. ログ出力の準備 ---
if (-not (Test-Path $exportFolderPath)) {
    New-Item -ItemType Directory -Path $exportFolderPath -Force | Out-Null
}
function Write-Log {
    param([string]$Message, [string]$Level = "INFO")
    $timestamp = Get-Date -Format "yyyy-MM-dd HH:mm:ss"
    $logEntry = "[$timestamp] [$Level] $Message"
    Write-Host $logEntry
    Add-Content -Path $logFilePath -Value $logEntry -Encoding UTF8
}

# --- 3. メイン処理 ---
Write-Log "自動化プロセスを開始します" "INFO"
$excel = $null; $workbook = $null;

try {
    # --- ステップ1: ExcelからSJIS形式の.basファイルをエクスポート ---
    Write-Log "Excelを起動し、モジュールをエクスポートします..." "INFO"
    $excel = New-Object -ComObject Excel.Application
    $excel.Visible = $false
    $excel.DisplayAlerts = $false
    $workbook = $excel.Workbooks.Open($excelFilePath)
    $vbProject = $workbook.VBProject
    $vbModule = $vbProject.VBComponents.Item($moduleName)
    $vbModule.Export($exportedSjisFilePath)
    Write-Log "モジュール '$moduleName' のエクスポートが完了しました: $exportedSjisFilePath" "SUCCESS"

    # --- ステップ2: .basファイルを読み込み、改行をマーカー"::"に置換 ---
    Write-Log "ファイルを読み込み、改行をマーカー'::'に置換します..." "INFO"
    $sjisEncoding = [System.Text.Encoding]::GetEncoding("Shift_JIS")
    $originalContent = [System.IO.File]::ReadAllText($exportedSjisFilePath, $sjisEncoding)
    $markedContent = ($originalContent -replace "`r`n", "::") -replace "`n", "::"
    Write-Log "改行のマーカーへの置換が完了しました。" "SUCCESS"

    # --- ステップ3: AIへのプロンプトを組み立て、マーカーの維持を指示 ---
    Write-Log "AIへのプロンプト（マーカー使用）を組み立てます..." "INFO"

    $geminiPrompt = @"
以下のVBAコードを、指示通りに修正してください。
注意点として、コード内の「::」という文字列は改行を意味する特殊なマーカーです。
このマーカー「::」を絶対に削除したり変更したりせず、そのまま維持して、修正後のコード全文のみを出力してください。

修正指示:
$taskDescription

修正対象のコード:
$markedContent
"@

# --- AIへのプロンプトをファイルに出力 ---
$promptFilePath = Join-Path $exportFolderPath "gemini_prompt.txt"
Write-Log "AIへのプロンプトをファイルに出力します: $promptFilePath" "INFO"
try {
    # プロンプトをUTF-8でファイルに書き込む
    [System.IO.File]::WriteAllText($promptFilePath, $geminiPrompt, [System.Text.Encoding]::UTF8)
    Write-Log "プロンプトのファイル出力が完了しました。" "SUCCESS"
} catch {
    Write-Log "プロンプトのファイル出力中にエラーが発生しました: $($_.Exception.Message)" "ERROR"
}

    Write-Log "Gemini APIを呼び出し、修正後のコードの返却を依頼します..." "INFO"

    # --- エンコーディングを正しく扱うためのラッパー ---
    $originalConsoleEncoding = [Console]::OutputEncoding
    $originalOutputEncoding = $OutputEncoding

    try {
        [Console]::OutputEncoding = [System.Text.Encoding]::UTF8
        $OutputEncoding = [System.Text.Encoding]::UTF8

        $rawResponse = $geminiPrompt | gemini

        # --- デバッグ情報出力 ---
        Write-Host "DEBUG: rawResponseの型: $($rawResponse.GetType().FullName)"
        Write-Host "DEBUG: rawResponseの要素数: $($rawResponse.Count)" # 配列かどうかチェック用

        # --- 配列の場合は改行付きで結合 ---
        if ($rawResponse -is [System.Array]) {
            $rawResponse = $rawResponse -join "`n"
        }

        # --- Geminiからの生の応答をファイルに出力 ---
        $rawResponseFilePath = Join-Path $exportFolderPath "gemini_raw_response.txt"
        Write-Log "Geminiからの生の応答をファイルに出力します: $rawResponseFilePath" "INFO"
        try {
            # 生の応答をUTF-8でファイルに書き込む
            [System.IO.File]::WriteAllText($rawResponseFilePath, $rawResponse, [System.Text.Encoding]::UTF8)
            Write-Log "生の応答のファイル出力が完了しました。" "SUCCESS"
        } catch {
            Write-Log "生の応答のファイル出力中にエラーが発生しました: $($_.Exception.Message)" "ERROR"
        }

        # --- 応答内容のログ（安全にSubstring） ---
        if ($rawResponse.Length -ge 150) {
            $logDetailResponse = "AIからの実際の応答（先頭150文字）: $($rawResponse.Substring(0, 150))"
        } else {
            $logDetailResponse = "AIからの実際の応答（全文）: $rawResponse"
        }

        # --- ここからが新しい検証ブロック ---
        Write-Log "AIからの応答を検証しています..." "INFO"

        # AI応答のログ出力をより堅牢にする
        $logDetailResponse = ""
        if ([string]::IsNullOrWhiteSpace($rawResponse)) {
            $logDetailResponse = "AIからの応答が空またはNullです。"
        } else {
            $logDetailResponse = "AIからの実際の応答（先頭150文字）: $($rawResponse.Substring(0, [System.Math]::Min(150, $rawResponse.Length)))"
        }

        # チェック1: 応答にMarkdownブロックマーカーが含まれていないか？これはステップ4で対応

        # チェック2: 応答に改行マーカー'::'が含まれているか？
        $validationMarker = "::"
        if (-not ($rawResponse -like "*$validationMarker*")) {
            Write-Host 'ERROR: 改行マーカーが含まれていません。処理を終了します。' -ForegroundColor Red
            Write-Log '改行マーカーが含まれていません。処理を終了します。' "ERROR"
            Write-Log $logDetailResponse "DETAIL"
            exit 1
        }

        Write-Log "AIからの応答の基本検証に成功しました。" "SUCCESS"
        # --- ここまでが新しい検証ブロック ---

        if ($LASTEXITCODE -ne 0 -or [string]::IsNullOrWhiteSpace($rawResponse)) {
            throw "Geminiコマンドの実行に失敗、または応答が空です。"
        }
        Write-Log "Geminiからマーカー付きの修正コードを正常に受信しました。" "SUCCESS"
    } finally {
        [Console]::OutputEncoding = $originalConsoleEncoding
        $OutputEncoding = $originalOutputEncoding
    }
    # --- ラッパー終了 ---

    # ===================================================================
    # --- ステップ4: 受信したコードを整形し、UTF-8ファイルとして一時保存 ---
    # ===================================================================
    Write-Log "受信した応答を整形して、ファイルに保存します..." "INFO"

    # --- 1. すべての改行をマーカー'::'に統一 ---
    # 応答に含まれる通常の改行(CRLF/LF)も'::'に置換し、区切り文字を一本化します。
    $unifiedResponse = $rawResponse -replace "`r?`n", '::'

    # --- 2. 整形処理 ---
    # 統一されたマーカー'::'で応答を分割
    $lines = $unifiedResponse -split '::'

    # 不要な行（空行、INFO行、Markdownマーカー）をまとめて除去します。
    $contentLines = $lines | Where-Object {
        $line = $_.Trim()
        (-not $line.StartsWith('[INFO]')) -and `
        ($line -ne '```vba') -and `
        ($line -ne '```')
    }

    # --- 3. 最終的なコンテンツの作成 ---
    # 整形後の行配列を通常の改行コードで結合します。
    $finalContent = ($contentLines -join "`r`n").Trim()

    Write-Log "後処理のため、VBAコードを一時ファイルに保存します..." "INFO"
    $utf8Encoding = [System.Text.Encoding]::UTF8
    [System.IO.File]::WriteAllText($finalUtf8FilePath, $finalContent, $utf8Encoding)
    Write-Log "一時ファイルとして保存が完了しました: $finalUtf8FilePath" "SUCCESS"
    # ===================================================================

    # --- ステップ5: インポート用にUTF-8ファイルをShift-JISに変換 ---
    Write-Log "Excelへのインポート用に、ファイルをShift-JISに変換します..." "INFO"
    $fileContent = [System.IO.File]::ReadAllText($finalUtf8FilePath, $utf8Encoding)
    [System.IO.File]::WriteAllText($finalSjisFilePath, $fileContent, $sjisEncoding)
    Write-Log "インポート用Shift-JISファイルの準備が完了しました: $finalSjisFilePath" "SUCCESS"

    # --- ステップ6: 生成した最終Shift-JISファイルをExcelにインポート ---
    Write-Log "修正されたモジュール（Shift-JIS）をExcelに再インポートします..." "INFO"
    $vbProject.VBComponents.Remove($vbModule)
    $newModule = $vbProject.VBComponents.Import($finalSjisFilePath)
    $newModule.Name = $moduleName
    Write-Log "モジュールの再インポートとリネームが完了しました。" "SUCCESS"

} catch {
    Write-Log "処理中にエラーが発生しました: $($_.Exception.Message)" "ERROR"
    Write-Host "ERROR: $($_.Exception.Message)" -ForegroundColor Red
} finally {
    # --- ステップ7: 後片付け ---
    Write-Log "クリーンアップ処理を実行します..." "INFO"
    if ($excel -ne $null) {
        if ($workbook -ne $null) {
            $workbook.Close($true)
        }
        $excel.Quit()
    }

    if ($vbModule -ne $null) { [System.Runtime.InteropServices.Marshal]::ReleaseComObject($vbModule) | Out-Null }
    if ($vbProject -ne $null) { [System.Runtime.InteropServices.Marshal]::ReleaseComObject($vbProject) | Out-Null }
    if ($workbook -ne $null) { [System.Runtime.InteropServices.Marshal]::ReleaseComObject($workbook) | Out-Null }
    if ($excel -ne $null) { [System.Runtime.InteropServices.Marshal]::ReleaseComObject($excel) | Out-Null }
    [System.GC]::Collect(); [System.GC]::WaitForPendingFinalizers()
}

# 最終的な完了メッセージをtry/finallyブロックの外に移動
Write-Log "すべての自動化プロセスが完了しました。" "INFO"