★★★ 環境に合わせてこれらの値を設定してください ★★★

EXCEL

VBA/PowerShellからAzure OpenAI API連携

導入（問題設定）

レガシーなVBA環境や、スクリプトベースの自動化が主流のPowerShell環境において、最新のAI技術であるAzure OpenAI Serviceの恩恵を受けたいというニーズは少なくありません。しかし、多くのAIライブラリはPython向けに提供され、VBAやPowerShellから直接利用するには、HTTP通信の基礎からJSONの扱いまで、深掘りした知識が求められます。

本記事では、外部ライブラリを極力排し、VBAではWinHttpRequest、PowerShellではInvoke-RestMethodというネイティブな機能のみを用いて、Azure OpenAI APIと連携する最小実装から堅牢化までのステップを詳細に解説します。単なるHowToに留まらず、APIの内部動作、境界条件、そして実運用で直面しがちな落とし穴まで踏み込み、実務に耐えうる堅牢な連携スクリプトの構築を目指します。特に、VBAにおけるJSON処理の泥臭さや、PowerShellの強力なオブジェクト変換機能、そして両者におけるAPIキー管理のベストプラクティスについて深く掘り下げていきます。

理論の要点

Azure OpenAI Serviceへの連携は、基本的にREST APIを通じて行われます。これは、HTTPプロトコルを介してサーバーとクライアントがデータをやり取りする仕組みです。

REST APIの基本要素

  • エンドポイント (Endpoint): APIが提供されているURL。Azure OpenAIの場合、リソース名、デプロイ名、APIバージョンを含みます。
    • 例: https://YOUR_RESOURCE_NAME.openai.azure.com/openai/deployments/YOUR_DEPLOYMENT_NAME/chat/completions?api-version=2024-02-15
  • HTTPメソッド (Method): 実行したい操作の種類。テキスト生成APIは通常POSTを使用します。
  • ヘッダ (Headers): リクエストに関する付加情報。
    • Content-Type: application/json: ボディのデータ形式がJSONであることを示します。
    • api-key: YOUR_API_KEY: 認証情報を伝達します。Azure OpenAI Serviceでは、このヘッダでAPIキーを渡すのが一般的です。
  • ボディ (Body): サーバーに送信する実際のデータ。Azure OpenAI Serviceでは、プロンプトやモデルパラメータなどを記述したJSON形式のデータです。
  • レスポンス (Response): サーバーからの応答。通常、HTTPステータスコードとJSON形式のデータ（生成されたテキストなど）が含まれます。

Azure OpenAI Chat Completions APIの内部動作

chat/completionsエンドポイントは、gpt-3.5-turboやgpt-4のようなチャットモデルと対話するためのAPIです。

  1. リクエストの構築:

    • messages配列: モデルとの対話履歴を表現します。各オブジェクトはrole (system, user, assistant) とcontent（メッセージ本文）を持ちます。
      • systemロール: モデルの振る舞いや制約を設定します（例: 「あなたはプロの翻訳者です。」）。
      • userロール: ユーザーからの指示や質問です。
      • assistantロール: モデルからの応答です。
    • model: 使用するデプロイの名前を指定します。
    • temperature: 生成テキストのランダム性（創造性）を制御します。0.0（最も予測可能）から2.0（最もランダム）の範囲。
    • max_tokens: 生成されるレスポンスの最大トークン数を設定します。プロンプトとレスポンスの合計トークン数にはモデルごとの上限があります。

  2. 認証: api-keyヘッダで渡されたAPIキーが有効か、Azure ADによって認証されます。無効な場合は401 Unauthorizedが返されます。

  3. モデル処理:

    • モデルは受け取ったmessages配列を解析し、次のassistantメッセージとして最も適切なテキストを生成します。
    • systemメッセージは、モデルの挙動を誘導する強力な手段です。プロンプトインジェクションに対する防御策としても機能します。

  4. レスポンスの生成: 生成されたテキストや使用されたトークン数などがJSON形式でクライアントに返されます。

境界条件と落とし穴

  • APIキーの管理: コード内にハードコードせず、環境変数やセキュアな設定ファイルから読み込むべきです。漏洩は不正利用に直結します。
  • レートリミット (Rate Limit): APIには1分間あたりのリクエスト数やトークン数に上限があります。これを超過すると429 Too Many Requestsエラーが返されます。リトライロジックの実装が必須です。
  • トークン制限 (Token Limit): プロンプトと生成テキストの合計トークン数にはモデルごとの上限があります。長すぎるプロンプトやmax_tokensの指定によっては400 Bad Requestエラー（”context_length_exceeded”）が発生します。
  • エンコーディング: JSONボディは常にUTF-8でエンコードする必要があります。VBAではこの点に注意が必要です。
  • プロキシ環境: 企業ネットワーク内ではプロキシサーバーを経由して外部にアクセスすることが一般的です。HTTPクライアントにプロキシ設定を適用する必要があります。
  • JSONパースの複雑性: 特にVBAでは、ネストされたJSONを堅牢にパースするのは困難です。外部ライブラリなしでは、正規表現や文字列操作を駆使するか、自前でパーサーを実装する泥臭いアプローチが必要です。

Azure OpenAI API主要引数一覧

カテゴリ 項目 説明 必須/任意 型/形式
URL Endpoint Azure OpenAIリソースのベースURL 必須 https://[リソース名].openai.azure.com
DeploymentName デプロイしたモデルの名前 必須 string
ApiVersion 使用するAPIのバージョン 必須 string (例: 2024-02-15)
ヘッダ api-key Azure OpenAIのAPIキー 必須 string
Content-Type リクエストボディの形式 必須 application/json
ボディ messages チャットメッセージの配列 必須 array<object>
messages[].role メッセージの役割 (system, user, assistant) 必須 string
messages[].content メッセージの内容 必須 string
temperature 生成テキストのランダム性 任意 number (0.0-2.0, デフォルト1.0)
max_tokens 生成される最大トークン数 任意 integer (デフォルト4096, モデルによる)
top_p サンプリング時の確率閾値 任意 number (0.0-1.0, デフォルト1.0)
frequency_penalty 特定トークンの繰り返しを抑える度合い 任意 number (-2.0-2.0, デフォルト0.0)
presence_penalty 新しいトピックを導入する度合い 任意 number (-2.0-2.0, デフォルト0.0)

実装（最小→堅牢化）

ここではVBAとPowerShell、それぞれの言語でAzure OpenAI APIと連携するコードを段階的に解説します。

VBA (Microsoft Excel/Access etc.)

VBAでは、COMオブジェクトであるWinHttp.WinHttpRequest.5.1を利用してHTTP通信を行います。JSONパースは、VBAの標準機能では困難なため、必要最低限の情報を正規表現で抽出する手法を採用します。

事前準備

  1. Excel VBAエディタを開く (Alt + F11)。
  2. 「ツール」->「参照設定」を開き、以下にチェックを入れる。
    • Microsoft WinHTTP Services, version 5.1
    • Microsoft VBScript Regular Expressions 5.5

最小実装 (同期リクエスト)

Attribute VB_Name = "AzureOpenAIChat" ' 標準モジュール名
Option Explicit

' ★★★ 環境に合わせてこれらの値を設定してください ★★★
Const AZURE_OPENAI_RESOURCE_NAME As String = "YOUR_AZURE_OPENAI_RESOURCE_NAME" ' 例: my-aoai-resource
Const AZURE_OPENAI_DEPLOYMENT_NAME As String = "YOUR_DEPLOYMENT_NAME" ' 例: gpt-35-turbo-deploy
Const AZURE_OPENAI_API_KEY As String = "YOUR_AZURE_OPENAI_API_KEY" ' Azure OpenAIのAPIキー
Const AZURE_OPENAI_API_VERSION As String = "2024-02-15" ' APIバージョン

Function CallAzureOpenAIChatMinimal(prompt As String) As String
    Dim httpRequest As WinHttp.WinHttpRequest
    Dim url As String
    Dim jsonBody As String
    Dim responseText As String
    Dim regex As RegExp
    Dim matches As MatchCollection
    Dim match As Match

    On Error GoTo ErrorHandler

    Set httpRequest = New WinHttp.WinHttpRequest

    ' エンドポイントURLの構築
    url = "https://" & AZURE_OPENAI_RESOURCE_NAME & ".openai.azure.com/openai/deployments/" & _
          AZURE_OPENAI_DEPLOYMENT_NAME & "/chat/completions?api-version=" & AZURE_OPENAI_API_VERSION

    ' JSONボディの構築 (最もシンプルな形式)
    ' VBAでJSONを生成する場合、手動でのエスケープや文字列結合が必要
    jsonBody = "{""messages"": [{""role"": ""user"", ""content"": """ & EscapeJsonString(prompt) & """}]," & _
               """max_tokens"": 200, ""temperature"": 0.7}"

    With httpRequest
        .Open "POST", url, False ' 同期リクエスト
        .SetRequestHeader "Content-Type", "application/json"
        .SetRequestHeader "api-key", AZURE_OPENAI_API_KEY
        .Send EncodeUTF8(jsonBody) ' UTF-8で送信

        ' ステータスコードの確認
        If .Status <> 200 Then
            Debug.Print "API Error: Status " & .Status & " - " & .StatusText
            CallAzureOpenAIChatMinimal = "Error: " & .Status & " - " & .ResponseText
            Exit Function
        End If

        responseText = .ResponseText
    End With

    ' レスポンスJSONからcontentを抽出 (簡易的な正規表現パース)
    Set regex = New RegExp
    With regex
        .Pattern = """content"":\s*""([^""]*)""" ' contentプロパティの値にマッチ
        .Global = False ' 最初の一つだけ抽出
    End With

    Set matches = regex.Execute(responseText)

    If matches.Count > 0 Then
        CallAzureOpenAIChatMinimal = Replace(matches(0).SubMatches(0), "\n", vbLf) ' 改行コードを変換
    Else
        CallAzureOpenAIChatMinimal = "Error: Could not parse response content."
    End If

    Exit Function

ErrorHandler:
    CallAzureOpenAIChatMinimal = "Runtime Error: " & Err.Description
    Debug.Print "Runtime Error in CallAzureOpenAIChatMinimal: " & Err.Description
End Function

' JSON文字列のエスケープ処理 (簡易版)
Private Function EscapeJsonString(ByVal s As String) As String
    s = Replace(s, "\", "\\")
    s = Replace(s, """", "\""")
    s = Replace(s, vbCrLf, "\n")
    s = Replace(s, vbCr, "\n")
    s = Replace(s, vbLf, "\n")
    ' 必要に応じて他の特殊文字もエスケープ
    EscapeJsonString = s
End Function

' 文字列をUTF-8バイト配列にエンコードする関数
' WinHttpRequest.Sendは通常バイト配列を期待するため、明示的にUTF-8エンコードが必要
' ここでは簡易的に ADODB.Stream を利用する。参照設定に "Microsoft ActiveX Data Objects 2.8 Library" を追加
Private Function EncodeUTF8(ByVal s As String) As Byte()
    Dim Stream As Object
    Set Stream = CreateObject("ADODB.Stream")
    With Stream
        .Type = 2 ' adTypeText
        .Charset = "UTF-8"
        .Open
        .WriteText s
        .Position = 0
        .Type = 1 ' adTypeBinary
        .Read 3 ' Skip BOM
        EncodeUTF8 = .Read
        .Close
    End With
    Set Stream = Nothing
End Function

' 使用例:
' Sub TestAzureOpenAIChat()
'     Dim result As String
'     result = CallAzureOpenAIChatMinimal("日本の首都はどこですか？")
'     MsgBox result
' End Sub

VBA 堅牢化と詳細

1. 非同期リクエストへの対応: WinHttpRequestは非同期リクエストも可能です。大規模な処理やUIフリーズを防ぐために重要ですが、コールバック処理の実装はやや複雑になります（WithEventsを使用）。ここでは同期版をベースに解説します。非同期については別途検討が必要です。

2. タイムアウト設定: .SetTimeouts(ResolveTimeout, ConnectTimeout, SendTimeout, ReceiveTimeout)メソッドで設定できます。APIが応答しない場合でも無制限に待つことを防ぎます。

    With httpRequest
        .SetTimeouts 60000, 60000, 60000, 120000 ' 解決, 接続, 送信, 受信のタイムアウトをミリ秒で設定 (例: 1分, 2分)
        ' ... (Open, SetRequestHeader, Send)
    End With

3. プロキシ設定: 企業環境では必須です。.SetProxyメソッドで設定します。

    ' プロキシ設定 (環境に合わせて設定)
    ' 例: 特定のプロキシサーバーを使用
    ' httpRequest.SetProxy WinHttpRequestProxyType.WinHttpRequestProxyType_Proxy, "http://proxy.example.com:8080"
    ' 例: IE設定を使用 (既定)
    httpRequest.SetProxy WinHttpRequestProxyType.WinHttpRequestProxyType_Default
    ' 例: 特定のサーバーをプロキシ対象外にする
    ' httpRequest.SetProxy WinHttpRequestProxyType.WinHttpRequestProxyType_Proxy, "http://proxy.example.com:8080", "localhost;*.example.com"

4. エラーハンドリングの強化: On Error GoToに加え、HTTPステータスコードによってエラー種別をより詳細に判断します。

        If .Status >= 400 Then ' クライアントエラー (4xx) またはサーバーエラー (5xx)
            Select Case .Status
                Case 401: CallAzureOpenAIChatMinimal = "Error: 認証失敗。APIキーまたはエンドポイントを確認してください。"
                Case 429: CallAzureOpenAIChatMinimal = "Error: レートリミット超過。しばらく待ってからリトライしてください。"
                Case 500: CallAzureOpenAIChatMinimal = "Error: サーバー内部エラー。"
                Case Else: CallAzureOpenAIChatMinimal = "Error: API呼び出し失敗 (Status " & .Status & "): " & .ResponseText
            End Select
            Exit Function
        End If

5. 64bit対応/PtrSafe/LongPtrについて: WinHttpRequestはCOMオブジェクトであり、VBAのDeclareステートメントで直接Windows APIを呼び出すわけではないため、PtrSafeやLongPtrは直接関係しません。しかし、VBAでもしDeclareステートメントを用いてWindows APIを呼び出す場合（例: GetPrivateProfileStringなど）、64bit環境でポインタのサイズが変わるため、PtrSafeキーワードの付与と、ポインタを扱う変数にLongPtr型を使用する必要があります。本記事のVBAコードには直接関係ありませんが、VBAでWindows APIを扱う際の重要な注意点として認識しておくべきです。

PowerShell

PowerShellでは、Invoke-RestMethodコマンドレットがREST API連携に非常に強力です。JSONの自動パース機能により、VBAよりもはるかに簡潔に記述できます。

最小実装

# ★★★ 環境に合わせてこれらの値を設定してください ★★★
$azureOpenAIResourceName = "YOUR_AZURE_OPENAI_RESOURCE_NAME" # 例: my-aoai-resource
$azureOpenAIDeploymentName = "YOUR_DEPLOYMENT_NAME" # 例: gpt-35-turbo-deploy
$azureOpenAIApiKey = "YOUR_AZURE_OPENAI_API_KEY" # Azure OpenAIのAPIキー
$azureOpenAIApiVersion = "2024-02-15" # APIバージョン

Function Call-AzureOpenAIChatMinimal {
    param(
        [Parameter(Mandatory=$true)]
        [string]$Prompt
    )

    $url = "https://$azureOpenAIResourceName.openai.azure.com/openai/deployments/$azureOpenAIDeploymentName/chat/completions?api-version=$azureOpenAIApiVersion"

    $headers = @{
        "Content-Type" = "application/json"
        "api-key" = $azureOpenAIApiKey
    }

    $body = @{
        messages = @(
            @{ role = "user"; content = $Prompt }
        )
        max_tokens = 200
        temperature = 0.7
    } | ConvertTo-Json -Depth 4 # -Depthでネストされたオブジェクトも適切にJSON化

    try {
        $response = Invoke-RestMethod -Uri $url -Method Post -Headers $headers -Body $body -TimeoutSec 120 # タイムアウトを120秒に設定
        $response.choices[0].message.content
    }
    catch {
        Write-Error "API呼び出し中にエラーが発生しました: $($_.Exception.Message)"
        if ($_.Exception.Response) {
            $errorResponse = $_.Exception.Response.GetResponseStream()
            $reader = New-Object System.IO.StreamReader($errorResponse)
            $responseBody = $reader.ReadToEnd()
            Write-Error "詳細なエラーレスポンス: $responseBody"
        }
        return $null
    }
}

# 使用例:
# $result = Call-AzureOpenAIChatMinimal -Prompt "日本の首都はどこですか？"
# if ($result) {
#     Write-Host "応答: $result"
# }

PowerShell 堅牢化と詳細

1. APIキーの安全な管理: APIキーをスクリプト内にハードコードせず、環境変数から読み込むのがベストプラクティスです。

# APIキーを環境変数から読み込む (例: AZURE_OPENAI_API_KEYという環境変数に設定)
$azureOpenAIApiKey = $env:AZURE_OPENAI_API_KEY
if (-not $azureOpenAIApiKey) {
    Write-Error "環境変数 'AZURE_OPENAI_API_KEY' が設定されていません。"
    exit 1
}

環境変数はSet-Item Env:AZURE_OPENAI_API_KEY "your_key"で設定できますが、永続化にはシステム環境変数への登録が必要です。

2. エラーハンドリングとリトライロジック: try-catchブロックによるエラー捕捉と、429 Too Many Requests（レートリミット超過）に対するリトライ処理は必須です。

Function Call-AzureOpenAIChatRobust {
    param(
        [Parameter(Mandatory=$true)]
        [string]$Prompt,
        [int]$MaxRetries = 3,
        [int]$RetryDelaySeconds = 5
    )

    # (URL, Headers, Bodyの構築は上記と同様)
    $url = "https://$azureOpenAIResourceName.openai.azure.com/openai/deployments/$azureOpenAIDeploymentName/chat/completions?api-version=$azureOpenAIApiVersion"
    $headers = @{ "Content-Type" = "application/json"; "api-key" = $azureOpenAIApiKey }
    $body = @{ messages = @( @{ role = "user"; content = $Prompt } ); max_tokens = 200; temperature = 0.7 } | ConvertTo-Json -Depth 4

    $retries = 0
    do {
        try {
            Write-Verbose "API呼び出し中... (リトライ試行: $($retries + 1))"
            $response = Invoke-RestMethod -Uri $url -Method Post -Headers $headers -Body $body -TimeoutSec 120 -ErrorAction Stop
            return $response.choices[0].message.content
        }
        catch {
            Write-Warning "API呼び出し中にエラーが発生しました: $($_.Exception.Message)"
            if ($_.Exception.Response) {
                $statusCode = [int]$_.Exception.Response.StatusCode
                $errorResponse = (New-Object System.IO.StreamReader($_.Exception.Response.GetResponseStream())).ReadToEnd()
                Write-Warning "ステータスコード: $statusCode, 詳細: $errorResponse"

                if ($statusCode -eq 429 -and $retries -lt $MaxRetries) {
                    $retries++
                    Write-Warning "レートリミット超過 (429)。$RetryDelaySeconds 秒後にリトライします..."
                    Start-Sleep -Seconds $RetryDelaySeconds
                    continue # 次のdo-whileループへ
                }
            }
            Write-Error "API呼び出し失敗。リトライ上限に達したか、その他のエラーです。"
            return $null # リトライ不能なエラー、またはリトライ上限に達した
        }
    } while ($retries -lt $MaxRetries)

    return $null
}

# 使用例:
# $result = Call-AzureOpenAIChatRobust -Prompt "猫とはどんな動物ですか？" -MaxRetries 5 -RetryDelaySeconds 10
# if ($result) {
#     Write-Host "応答: $result"
# }

3. プロキシ設定: Invoke-RestMethodは-Proxyパラメータでプロキシサーバーを指定できます。

# プロキシ設定の例
# $proxyUrl = "http://proxy.example.com:8080"
# $response = Invoke-RestMethod -Uri $url -Method Post -Headers $headers -Body $body -Proxy $proxyUrl -TimeoutSec 120 -ErrorAction Stop

通常、システム設定（IE/Edgeのプロキシ設定）が自動的に適用されますが、明示的に指定することも可能です。

4. Invoke-RestMethodとInvoke-WebRequestの使い分け: * Invoke-RestMethod: レスポンスボディのJSONを自動的にPowerShellオブジェクトに変換してくれます。API連携の多くで非常に便利です。 * Invoke-WebRequest: 生のレスポンスボディ（文字列）やヘッダ、HTMLドキュメントオブジェクトなどをそのまま返します。JSON以外の形式を処理する場合や、HTTPヘッダを詳細に検査したい場合に適しています。今回のJSON API連携ではInvoke-RestMethodが推奨されます。

Azure OpenAI API連携フロー

graph TD
    A["VBA/PowerShellスクリプト"] --> B{"環境変数/設定ファイルから
APIキー・設定読み込み"};
    B --> C["プロンプトとパラメータをJSONで構築"];
    C --> D["HTTPリクエストヘッダ設定
(Content-Type, api-key)"];
    D --> E["エンドポイントURL構築"];
    E --> F["HTTP POSTリクエスト送信"];
    F -- HTTPステータス 200 OK --> G["レスポンスJSON受信"];
    G --> H["VBA:正規表現/文字列操作でJSONパース
PowerShell:自動オブジェクト変換"];
    H --> I["生成テキスト抽出・後処理"];
    I --> J["結果表示/次の処理"];

    F -- HTTPステータス 4xx/5xx --> K["エラーハンドリング"];
    K -- 429 Too Many Requests --> L["リトライロジック (指数バックオフ)"];
    L -- リトライ上限到達 or 他のエラー --> M["エラーログ記録/処理中断"];
    K -- 401 Unauthorized --> N["APIキー/デプロイ名/リソース名確認"];
    K -- 400 Bad Request("Context Length Exceeded") --> O["プロンプト短縮/max_tokens調整"];

ベンチ/検証

API連携スクリプトの品質を保証するためには、単に動作するだけでなく、様々な条件下での振る舞いを検証する必要があります。

  1. 機能テスト:

    • 正常系: 短いプロンプト、長いプロンプト、systemメッセージを含むプロンプトなど、多様な入力で期待通りの応答が得られるかを確認します。
    • 異常系:
      • 無効なAPIキー、存在しないデプロイ名など、意図的にエラーを発生させて適切なエラーメッセージが返されるか。
      • max_tokensを極端に小さく設定し、途中でメッセージが切れることを確認。
      • トークン制限を超える非常に長いプロンプトを送信し、400 Bad Request（context_length_exceeded）が適切にハンドリングされるか。

  2. パフォーマンスとスケーラビリティ:

    • レスポンスタイム計測: 短いプロンプト、長いプロンプトそれぞれでAPI呼び出しにかかる時間を計測します。
    • 同時実行性: 複数のVBAマクロやPowerShellスクリプトが同時にAPIを呼び出した際に、レートリミットに達して429エラーが発生するか、リトライロジックが機能するかを確認します。

  3. セキュリティ検証:

    • APIキーがスクリプトや実行環境のどこかに平文で残存していないかを確認します。
    • 不適切なsystemプロンプトにより、モデルが意図しない振る舞いをしないか（プロンプトインジェクション対策）。

  4. 互換性テスト:

    • VBAであれば異なるExcel/Accessバージョン、PowerShellであれば異なるPowerShellバージョンやWindows OSバージョンで動作するかを確認します。

応用例／代替案

応用例

  • Excelでのデータクレンジング・要約:
    • VBAからExcelシート上のテキストデータ（顧客からの問い合わせ、製品レビューなど）をOpenAI APIに送信し、感情分析、要約、キーワード抽出を行って結果をシートに書き戻す。
    • 多言語データをAPIで翻訳し、翻訳結果を別セルに出力。
  • PowerShellでのログ解析・スクリプト自動生成補助:
    • PowerShellスクリプトが収集したシステムログやイベントログをOpenAI APIに送信し、異常検知や原因分析の補助をさせる。
    • 「〇〇な処理をするPowerShellスクリプトを書いて」といったプロンプトで、簡単なスクリプトの骨子をAIに生成させる。
  • 定型業務の自動化における自然言語インターフェース:
    • ユーザーがチャット形式で指示を出すと、VBA/PowerShellスクリプトがAPIを呼び出し、AIの回答を基にRPA的な自動処理を実行する。

代替案

  • System.Net.Http.HttpClient (PowerShell): Invoke-RestMethodは手軽ですが、より低レベルな制御が必要な場合や、PowerShell Core環境で特定のOS依存機能を避けたい場合は、.NETのSystem.Net.Http.HttpClientクラスを直接利用することで、より細かなHTTP通信制御が可能です。これは非同期処理の実装にも向いています。

    # 例: HttpClientを利用したAPI呼び出しの骨子
# $client = New-Object System.Net.Http.HttpClient
# $client.DefaultRequestHeaders.Add("api-key", $azureOpenAIApiKey)
# $content = New-Object System.Net.Http.StringContent($body, [System.Text.Encoding]::UTF8, "application/json")
# $response = $client.PostAsync($url, $content).Result # .Resultで同期待ち
# $responseContent = $response.Content.ReadAsStringAsync().Result
# if ($response.IsSuccessStatusCode) {
#     # JSONパース処理
# } else {
#     # エラー処理
# }

  • VBA向けJSONパースライブラリ: VBA標準機能でのJSONパースは非常に困難です。堅牢な実装が必要な場合、VBA-JSONなどのオープンソースライブラリを導入することが現実的です。ただし、本記事の「外部ライブラリ極力なし」という制約からは外れます。

  • APIラッパーの導入: VBA/PowerShellスクリプトが直接Azure OpenAI APIを呼び出すのではなく、Pythonなどの言語でAPIをラップする中間サービス（例: Azure Functions, AWS Lambda）を構築し、VBA/PowerShellはその中間サービスと連携する構成も考えられます。これにより、複雑なJSON処理やエラーハンドリングをより得意な言語に任せることができます。

まとめ

本記事では、VBAおよびPowerShellという既存環境からAzure OpenAI Serviceの強力な機能を活用する方法を、HTTP通信の基礎から堅牢なコード実装まで深く掘り下げて解説しました。

VBAにおいてはWinHttpRequestによるHTTPリクエストの生成、JSONボディの構築、そして泥臭い正規表現によるレスポンスパースの具体的な手法を示し、64bit環境でのVBA API呼び出しに関する補足も行いました。PowerShellではInvoke-RestMethodの簡潔さと、JSONの自動パース機能の恩恵を最大限に活用しつつ、環境変数を用いたAPIキーの安全な管理や、try-catchによる詳細なエラーハンドリング、そしてレートリミットに対応するリトライロジックの実装を紹介しました。

どちらの言語においても、単にAPIを呼び出すだけでなく、タイムアウト設定、プロキシ対応、そして何よりもAPIキーのセキュリティ確保が、実運用に耐えうるシステムを構築する上で不可欠であることを強調しました。

VBAやPowerShellからAIの力を引き出すことは、既存業務の自動化や効率化に新たな可能性をもたらします。本記事が、皆様の挑戦の一助となれば幸いです。

運用チェックリスト

  • [ ] APIキーのセキュアな管理: 環境変数など、コードへのハードコードを避けていますか？
  • [ ] タイムアウト設定: ネットワーク遅延やAPIの応答がない場合に、処理がハングアップしないように適切に設定されていますか？
  • [ ] エラーハンドリング: HTTPステータスコード（特に400, 401, 429, 5xx）に応じた適切なエラー処理が実装されていますか？
  • [ ] リトライロジック: 429 Too Many Requestsに対して、指数バックオフなどを利用したリトライ処理が実装されていますか？
  • [ ] プロキシ設定: 組織のネットワーク環境に合わせて、プロキシ経由での通信が正しく設定されていますか？
  • [ ] ログ出力: API呼び出しの成功・失敗、エラー詳細が適切にログに出力され、問題発生時に追跡可能ですか？
  • [ ] トークン管理: プロンプトとmax_tokensの合計がモデルの許容トークン数を超過しないよう、プロンプトの設計や分割、max_tokensの調整が考慮されていますか？
  • [ ] JSONエンコーディング: リクエストボディのJSONがUTF-8で正しくエンコードされていますか？
  • [ ] コスト監視: AzureポータルでAzure OpenAI Serviceの使用状況（トークン消費量、費用）を定期的に確認していますか？
  • [ ] プロンプトインジェクション対策: systemメッセージを適切に設定し、悪意あるプロンプトによる誤動作を防ぐ工夫がされていますか？

参考リンク

  • Azure OpenAI Service のチャット補完 – REST API リファレンス: https://learn.microsoft.com/ja-jp/azure/ai-services/openai/reference/rest/chat-completions
  • WinHTTP – Microsoft Learn: https://learn.microsoft.com/ja-jp/windows/win32/winhttp/winhttp
ライセンス：本記事のテキスト/コードは特記なき限り CC BY 4.0 です。引用の際は出典URL（本ページ）を明記してください。
利用ポリシー もご参照ください。

コメント

タイトルとURLをコピーしました