生成AI活用研究
Gemini CLIとPowerShellでVBAerのAI活用を加速する実践ガイド

# Run-Gemini-On-Excel-Modules.ps1

# グローバル変数の初期化（スクリプト全体で利用）
$excel = $null
$workbook = $null
$exportDir = $null
$copiedXlsmFilePath = $null
$copiedXlsmFileName = $null
$scriptDir = Split-Path -Parent $MyInvocation.MyCommand.Path # スクリプト実行ディレクトリを常に保持

# 処理を続行すべきかどうかのフラグ
$continueProcessing = $true
# Gemini CLIの起動をスキップするかどうかのフラグ（再開モードでSJIS変換から開始する場合に利用）
$skipGeminiCliLaunch = $false

#--------------------------------------------------------------------
# 0. 実行モードの選択
#--------------------------------------------------------------------
Write-Host "実行モードを選択してください:" -ForegroundColor Yellow
Write-Host "  1. 新規モード (新しいExcelファイルを選択し、最初から処理を開始)" -ForegroundColor Cyan
Write-Host "  2. 再開モード (既存の一時作業フォルダから処理を再開)" -ForegroundColor Cyan
$modeChoice = Read-Host "選択 (1 または 2)"

if ($modeChoice -eq "2") {
    # 再開モードの場合の処理
    Add-Type -AssemblyName System.Windows.Forms
    $folderBrowser = New-Object System.Windows.Forms.FolderBrowserDialog
    $folderBrowser.Description = "再開する一時作業フォルダを選択してください"
    if ($folderBrowser.ShowDialog() -ne "OK") {
        Write-Host "フォルダ選択がキャンセルされました。処理を中断します。"
        $continueProcessing = $false
    }
    else {
        $exportDir = $folderBrowser.SelectedPath
        Write-Host "選択された一時作業フォルダ: '$exportDir'" -ForegroundColor Green

        # 必須ファイルの存在チェック
        # _Gemini.xlsm は必須
        $copiedXlsmFileInExportDir = Get-ChildItem -Path $exportDir -Filter "*_Gemini.xlsm" -ErrorAction SilentlyContinue | Select-Object -First 1
        # GEMINI.md は必須
        $geminiMdFileInExportDir = Get-ChildItem -Path $exportDir -Filter "GEMINI.md" -ErrorAction SilentlyContinue | Select-Object -First 1
        # .bas ファイルはAIとの対話後に生成される可能性もあるため、必須ではないが、存在しない場合は警告を出す
        $basFilesInExportDir = Get-ChildItem -Path $exportDir -Filter "*.bas" -ErrorAction SilentlyContinue

        if (-not $copiedXlsmFileInExportDir) {
            Write-Error "エラー: 選択されたフォルダに '_Gemini.xlsm' ファイルが見つかりません。有効な一時作業フォルダではありません。"
            $continueProcessing = $false
        }
        if (-not $geminiMdFileInExportDir) {
            Write-Error "エラー: 選択されたフォルダに 'GEMINI.md' ファイルが見つかりません。有効な一時作業フォルダではありません。"
            $continueProcessing = $false
        }
        if (-not $basFilesInExportDir) {
            Write-Host "警告: 選択されたフォルダに .bas ファイルが見つかりませんでした。Gemini CLIとの対話は可能ですが、インポート処理は行えません。" -ForegroundColor Yellow
        }

        if ($continueProcessing) {
            # 各種変数を設定して、後続の処理で再利用できるようにする
            $copiedXlsmFilePath = $copiedXlsmFileInExportDir.FullName
            # 例: MyWorkbook_Gemini.xlsm -> MyWorkbook
            $originalFileNameWithoutExtension = [System.IO.Path]::GetFileNameWithoutExtension($copiedXlsmFileInExportDir.Name) -replace '_Gemini$',''
            $copiedXlsmFileName = $copiedXlsmFileInExportDir.Name

            # ExcelアプリケーションをCOMオブジェクトとして起動し、ワークブックを開く
            $excel = New-Object -ComObject Excel.Application
            $excel.Visible = $false
            try {
                $workbook = $excel.Workbooks.Open($copiedXlsmFilePath)
            } catch {
                Write-Error "エラー: Excelファイルのオープン中にエラーが発生しました: $($_.Exception.Message)"
                $continueProcessing = $false
            }
        }
    }

    # 再開ポイントの選択
    if ($continueProcessing) { # Excelオープンまで成功した場合のみ再開ポイントを選択
        Write-Host "再開する処理を選択してください:" -ForegroundColor Yellow
        Write-Host "  1. Gemini CLIの会話モードを再開 (VBAコードをGeminiに再度読み込ませて対話)" -ForegroundColor Cyan
        Write-Host "  2. SJIS変換とExcelへのインポートから開始 (Geminiでの作業は完了済みの場合)" -ForegroundColor Cyan
        $resumeChoice = Read-Host "選択 (1 または 2)"

        if ($resumeChoice -eq "1") {
            # この場合、Gemini CLIを起動するためのパスを通す
            # 以下の「4. Gemini CLIの起動準備と実行」セクションへ進む
        }
        elseif ($resumeChoice -eq "2") {
            # Gemini CLIの起動をスキップし、直接SJIS変換とインポートへ進む
            Write-Host "SJIS変換とExcelへのインポート処理に進みます。" -ForegroundColor Green
            # Gemini CLI起動セクションをスキップするためのフラグを設定
            $skipGeminiCliLaunch = $true
        }
        else {
            Write-Host "無効な選択です。処理を中断します。"
            $continueProcessing = $false
        }
    }
}
elseif ($modeChoice -eq "1") {
    # 新規モードの場合
    Write-Host "新規モードで処理を開始します。" -ForegroundColor Green
    $skipGeminiCliLaunch = $false # 新規モードではGemini CLIを起動する

    #--------------------------------------------------------------------
    # 1. ファイル選択ダイアログの表示
    #--------------------------------------------------------------------
    # ユーザーが処理対象のExcelファイルを選択するためのダイアログを表示します。
    # 選択されたファイルのパスは $originalXlsmFilePath に格納されます。
    Add-Type -AssemblyName System.Windows.Forms
    $dialog = New-Object System.Windows.Forms.OpenFileDialog
    $dialog.Title = "モジュールを処理するExcelファイルを選択"
    $dialog.Filter = "マクロ有効Excelファイル (*.xlsm)|*.xlsm"
    if ($dialog.ShowDialog() -ne "OK") {
        Write-Host "ファイル選択がキャンセルされました。処理を中断します。"
        $continueProcessing = $false
    }
    else {
        $originalXlsmFilePath = $dialog.FileName # 元のファイルのパスを保持

        #--------------------------------------------------------------------
        # 2. モジュールのエクスポートとUTF-8変換のための準備
        #--------------------------------------------------------------------
        # スクリプトの実行ディレクトリに、タイムスタンプ付きの一時作業ディレクトリを作成します。
        # このディレクトリ内で全ての処理が行われます。
        $exportDir = Join-Path $scriptDir "exported_modules_$(Get-Date -Format 'yyyyMMddHHmmss')"
        New-Item -ItemType Directory -Path $exportDir | Out-Null

        # 選択された元のExcelファイルを、作成した一時作業ディレクトリ内にコピーします。
        # これにより、元のファイルはAIによる変更から保護されます。
        $originalFileNameWithoutExtension = [System.IO.Path]::GetFileNameWithoutExtension($originalXlsmFilePath)
        $copiedXlsmFileName = "$($originalFileNameWithoutExtension)_Gemini.xlsm"
        $copiedXlsmFilePath = Join-Path $exportDir $copiedXlsmFileName
        try {
            Copy-Item -Path $originalXlsmFilePath -Destination $copiedXlsmFilePath -Force
            Write-Host "元のExcelファイル '$($originalXlsmFilePath)' を '$($copiedXlsmFilePath)' にコピーしました。" -ForegroundColor Green
        }catch {
            Write-Error "エラー: Excelファイルのコピー中にエラーが発生しました: $($_.Exception.Message)"
            $continueProcessing = $false
        }

        if ($continueProcessing) {
            # ExcelアプリケーションをCOMオブジェクトとして起動します。
            # バックグラウンドで処理を行うため、Visible を $false に設定します。
            $excel = New-Object -ComObject Excel.Application
            $excel.Visible = $false
            try {
                # コピーしたExcelファイルを開きます。
                $workbook = $excel.Workbooks.Open($copiedXlsmFilePath)
                # VBAプロジェクト内の標準モジュール（Type 1）を列挙し、それぞれを一時ディレクトリにエクスポートします。
                # エクスポートされたファイルは、VBAエディタで読み込めるようShift-JISで出力されます。
                # その後、Gemini CLIが扱いやすいようUTF-8（BOM付き）に変換して上書き保存します。
                $workbook.VBProject.VBComponents | ForEach-Object {
                    if ($_.Type -eq 1) { # Type 1 = 標準モジュール
                        $moduleName = $_.Name
                        $sjisPath = Join-Path $exportDir "$moduleName.bas"
                        $_.Export($sjisPath)
                        # UTF-8（BOM付き）に変換
                        $fileContent = [System.IO.File]::ReadAllText($sjisPath, [System.Text.Encoding]::Default)
                        [System.IO.File]::WriteAllText($sjisPath, $fileContent, [System.Text.Encoding]::UTF8) # BOM付きUTF-8
                    }
                }
            }catch {
                Write-Error "エラー: モジュールのエクスポートまたはExcelファイルオープン中にエラーが発生しました: $($_.Exception.Message)"
                $continueProcessing = $false
            }
            finally {
                # 新規モードの場合、Excelはインポート処理でも使用するため、ここでは閉じない。
            }
        }

        if ($continueProcessing) {
            #--------------------------------------------------------------------
            # 3. GEMINI.md の自動作成
            #--------------------------------------------------------------------
            # 一時作業ディレクトリに移動し、Gemini CLIにプロジェクトの指示を伝えるためのGEMINI.mdを作成します。
            # これにより、AIはVBAのリファクタリングや新規関数作成に関するコンテキストを事前に認識できます。
            Set-Location -Path $exportDir
            $geminiMdContent = @"
# Gemini設定

## 言語設定
全ての応答は日本語で行ってください。

## プロジェクトの指示
以下の点について、VBAのリファクタリングおよび新規関数の作成の助けをしてください。
* 可読性の向上
* 処理速度の最適化
* 既存機能の改善提案
* 新規要件に基づく関数の設計と実装
* エラーハンドリングの強化
"@
            $geminiMdPath = Join-Path (Get-Location) "GEMINI.md"
            try {
                Set-Content -Path $geminiMdPath -Value $geminiMdContent -Encoding Utf8 -Force
                Write-Host "GEMINI.md ファイルを以下の内容で作成しました: $($geminiMdPath)" -ForegroundColor Green
                Write-Host "----------------------------------------------------" -ForegroundColor Green
                Write-Host $geminiMdContent -ForegroundColor Cyan
                Write-Host "----------------------------------------------------" -ForegroundColor Green
            }catch {
                Write-Error "エラー: GEMINI.md の作成中にエラーが発生しました: $($_.Exception.Message)"
                # GEMINI.mdの作成に失敗しても、後続の処理は続行可能なので return しない。
            }
        }
    }
}
else {
    Write-Host "無効な選択です。処理を中断します。"
    $continueProcessing = $false
}

# ここから先は、新規モードと再開モードのどちらからも流れ込む共通処理
if ($continueProcessing) {
    # 現在の作業ディレクトリを一時フォルダに設定
    # 再開モードの場合は、ここで選択された exportDir に移動する
    if ($modeChoice -eq "2") {
        Set-Location -Path $exportDir
    } else { # 新規モードの場合は、GEMINI.md作成時にSet-Locationしているので再設定不要だが、念のため。
        Set-Location -Path $exportDir
    }


    #--------------------------------------------------------------------
    # 4. Gemini CLIの起動準備と実行
    #    - 新規モードの場合
    #    - 再開モードで「1. Gemini CLI会話モードを再開」を選択した場合
    #    - それ以外（再開モードで「2. SJIS変換とExcelへのインポート」を選択）はスキップ
    #--------------------------------------------------------------------
    if (-not $skipGeminiCliLaunch) { # $skipGeminiCliLaunch は再開モードで「2」を選択した場合にtrueになる
        $basFiles = Get-ChildItem -Path $exportDir -Filter "*.bas"
        if ($basFiles.Count -eq 0) {
            Write-Host "エラー: エクスポート対象の標準モジュールが見つかりませんでした。Gemini CLIを起動しても対話できません。" -ForegroundColor Red
            Write-Host "処理を中断します。"
            $continueProcessing = $false
        }
        
        if ($continueProcessing) {
            $commandToCopy = ($basFiles | ForEach-Object { "`"@`"$($_.Name)`"" }) -join ' '
            Set-Clipboard -Value $commandToCopy

            Clear-Host
            Write-Host "------------------------------------------------------------------" -ForegroundColor Yellow
            Write-Host "クリップボードにコマンドをコピーしました。Gemini起動後に貼り付けてください。" -ForegroundColor Green
            Write-Host $commandToCopy -ForegroundColor Cyan
            Write-Host "------------------------------------------------------------------" -ForegroundColor Yellow
            pause

            gemini
        }
    }
}


#--------------------------------------------------------------------
# 5. SJISへの再変換の選択
#    - 新規モードでGemini CLI実行後
#    - 再開モードで「1. Gemini CLI会話モードを再開」実行後
#    - 再開モードで「2. SJIS変換とExcelへのインポート」を選択した場合
#--------------------------------------------------------------------
if ($continueProcessing) {
    Write-Host "Geminiが終了しました。（またはSJIS変換・インポート処理を開始します）"
    $sjisChoice = Read-Host "エクスポートされたファイルをShift-JISに再変換しますか？ (y/n)"
    if ($sjisChoice -eq 'y' -or $sjisChoice -eq 'Y') {
        Write-Host "ファイルをShift-JISに再変換します..."

        # 一時作業ディレクトリ内の全ての.basファイルを対象に、UTF-8からShift-JISへ再変換します。
        $filesToConvert = Get-ChildItem -Path . -Filter "*.bas"

        if ($filesToConvert.Count -eq 0) {
            Write-Host "警告: Shift-JISに変換する .bas ファイルが見つかりませんでした。インポートはできません。" -ForegroundColor Yellow
            $continueProcessing = $false # インポートに進めないため処理を続行しない
        }
        
        if ($continueProcessing) {
            foreach ($file in $filesToConvert) {
                # UTF-8（BOM付き）からShift-JISへ変換
                $content = [System.IO.File]::ReadAllText($file.FullName, [System.Text.Encoding]::UTF8) 
                # 明示的に Shift_JIS を指定
                [System.IO.File]::WriteAllText($file.FullName, $content, [System.Text.Encoding]::GetEncoding("Shift_JIS")) 
                Write-Host " - '$($file.Name)' をShift-JISに変換しました。"
            }
            Write-Host "全てのファイルのShift-JIS変換が完了しました。"

            #--------------------------------------------------------------------
            # 6. コピーしたExcelファイルへのインポートの選択と実行
            #--------------------------------------------------------------------
            $importChoice = Read-Host "変換されたファイルをコピーしたExcelファイル '$($copiedXlsmFileName)' にインポートしますか？ (y/n)"

            if ($importChoice -eq 'y' -or $importChoice -eq 'Y') {
                Write-Host "ファイルを '$($copiedXlsmFileName)' にインポートします..."
                try {
                    # VBAプロジェクトへのアクセスを一時的に有効にし、警告表示を無効にします。
                    $excel.DisplayAlerts = $false 

                    # インポートの前に、既存の標準モジュールを全て削除します。
                    # （注意: これにより、コピーファイル内の既存の全ての標準モジュールが置き換えられます。）
                    $workbook.VBProject.VBComponents | ForEach-Object {
                        if ($_.Type -eq 1) { # Type 1 = 標準モジュール
                            Write-Host " - 既存のモジュール '$($_.Name)' を削除します。"
                            $workbook.VBProject.VBComponents.Remove($_)
                        }
                    }

                    # Shift-JISに再変換された.basファイルを、開いているExcelファイルにインポートします。
                    foreach ($file in $filesToConvert) { 
                        Write-Host " - '$($file.Name)' をインポートします。"
                        $workbook.VBProject.VBComponents.Import($file.FullName)
                    }

                    # 変更を保存します。
                    $workbook.Save()
                    Write-Host "全てのファイルのインポートが完了し、Excelファイル '$($copiedXlsmFileName)' が保存されました。" -ForegroundColor Green
                }
                catch {
                    Write-Error "エラー: Excelへのインポート中にエラーが発生しました: $($_.Exception.Message)"
                }
                finally {
                    # 警告表示を元に戻します。
                    $excel.DisplayAlerts = $true 
                }
            } else {
                Write-Host "Excelへのインポートはスキップされました。"
            }
        }
    } else {
        Write-Host "Shift-JISへの再変換はスキップされました。"
        Write-Host "Excelへのインポートは行われません。"
    }
}

#--------------------------------------------------------------------
# 7. 終了処理
#--------------------------------------------------------------------
Write-Host "全ての処理が完了しました。"

# 開いているExcelアプリケーションとワークブックを閉じ、COMオブジェクトを解放します。
if ($workbook) { 
    $workbook.Close($false) # 変更は既に保存済みか、保存しない
    [System.Runtime.InteropServices.Marshal]::ReleaseComObject($workbook) | Out-Null
}
if ($excel) { 
    $excel.Quit() 
    [System.Runtime.InteropServices.Marshal]::ReleaseComObject($excel) | Out-Null
}

# スクリプトを実行した元のディレクトリに戻ります。
if ($scriptDir -and (Test-Path $scriptDir)) {
    Set-Location -Path $scriptDir
}

@echo off
powershell.exe -ExecutionPolicy Bypass -File "%~dp0Run-Gemini-On-Excel-Modules.ps1"
pause