ChatGPTとVBAの連携: マクロで自動化を実現しよう

近年、ChatGPTのような自然言語処理技術の進化により、オフィス業務の自動化が更に進展しています。Microsoft Office製品に組み込まれているVisual Basic for Applications（VBA）を使用することで、これらの技術を利用しやすくなりました。この記事では、ChatGPTをVBAに統合する手法に焦点を当て、その具体的な実装方法や活用事例について探求します。

VBAを使ってChatGPTにアクセスする方法

まず初めに、VBAエディタを開き、ChatGPTと通信するための基本的な設定を行います。外部のサービスと通信するために必要なオブジェクトライブラリを設定しましょう。

' ChatGPTと通信するための基本設定
Set xmlHTTP = CreateObject("MSXML2.ServerXMLHTTP")

ChatGPTのAPIにリクエストを送る

次に、ChatGPTのAPIへリクエストを送信する方法を学びます。XMLHTTPオブジェクトを使用して、ChatGPTサーバーへHTTPリクエストを送信し、応答を受け取ります。

' ChatGPT APIへのリクエスト送信
Sub SendRequestToChatGPT(message As String)
    Dim response As String
    
    xmlHTTP.Open "POST", "https://api.chatgpt.com/v1/chat", False
    xmlHTTP.setRequestHeader "Content-Type", "application/json"
    
    Dim requestBody As String
    requestBody = "{""messages"": [{""role"": ""system"", ""content"": ""You are a helpful assistant.""}, {""role"": ""user"", ""content"": """ & message & """}]}"
    
    xmlHTTP.send requestBody
    response = xmlHTTP.responseText
    
    ' 受け取ったレスポンスの処理
    ProcessResponse response
End Sub

APIからの応答の処理

受け取ったAPIの応答を処理する方法についても確認しましょう。JSON形式でのデータをVBAで解析し、必要な情報を取り出します。

' ChatGPTからの応答を処理
Sub ProcessResponse(response As String)
    ' 応答データを解析して必要な情報を取得する処理
    ' ...
End Sub

ChatGPT APIの基本

ChatGPTのAPIの基本的な仕組みを理解しましょう。APIキーの取得やエンドポイントの指定、リクエストの構造などに焦点を当てます。

ChatGPT APIを利用することで、ChatGPTの機能を自社のアプリケーションと連携することが可能です。API（Application Programming Interface）とは、アプリケーションをつなぐためのインターフェースのこと。APIが公開されると、他のアプリケーションとの窓口ができ、連携ができる状態になります。

ChatGPT APIを利用すると、自社に特化したチャットシステムや自動マニュアル作成システムなどを手軽に構築でき、業務の効率化が期待できます。また、アクセス制限などによりセキュリティを強化できることから、機密情報であっても安心して入力・活用できることもメリットです。

ChatGPT API のアカウント解説やキーの取得などはこちらをご覧ください。
PythonでChatGPTを活用する方法を書いた記事ですが、APIキーの取得などは同一の方法です。

Python ChatGPTを活用してブログを完全自動化：【記事自動作成、自動投稿】①ChatGPTのAPIをPythonから利用し、「ブログ記事を自動で生成させ、更にWordpressへ自動投稿してしまおう！」というブログの運営者にとって、夢の様なチュートリアルの第一回目です！！...

エラーハンドリング

APIとの通信ではエラーが発生する可能性があります。エラーハンドリングの基本を学び、問題が発生した場合の適切な処理を実装します。

' エラーハンドリングの基本
On Error Resume Next
' ここに実行したいコードを記述
If Err.Number <> 0 Then
    ' エラーが発生した場合の処理
End If
On Error GoTo 0

APIとVBA間のデータやり取り

APIとVBA間でデータをやり取りするためには、JSON形式のデータ処理が必要です。JSONデータの送受信や解析について学び、データを適切に扱います。

' JSONデータの送受信と解析
Sub SendRequestToChatGPT(message As String)
  Dim response As String
  ' ChatGPT APIへのリクエスト送信
  xmlHTTP.Open "POST", "https://api.chatgpt.com/v1/chat", False
  xmlHTTP.setRequestHeader "Content-Type", "application/json"

  ' リクエストボディの作成
  Dim requestBody As String
  requestBody = "{""messages"": [{""role"": ""system"", ""content"": ""You are a helpful assistant.""}, {""role"": ""user"", ""content"": """ & message & """}]}"

  ' リクエストの送信
  xmlHTTP.send requestBody
  response = xmlHTTP.responseText

  ' 受け取ったレスポンスの処理
  ProcessResponse response
End Sub

' ChatGPTからの応答を処理
Sub ProcessResponse(response As String)
  ' 応答データの解析と利用
  ' ...
End Sub

デバッグ機能の利用

VBAのデバッグ機能を活用してコードの問題点を特定しましょう。ブレークポイントの設定、ステップ実行、変数ウォッチなどを駆使して効果的なデバッグを行います。

' ブレークポイントの設定
Sub Example()
    Dim x As Integer
    x = 10  ' ここにブレークポイントを設定
    MsgBox x
End Sub

ChatGPTとVBAの応用例

ChatGPTとVBAを組み合わせることでさまざまな処理が自動化できます。

自動レポート生成

VBAを使用して大量のデータを処理し、ChatGPTによって生成された要約をレポートに組み込むことで、自動レポート生成を実現します。

次のn例では、Excelのシートにデータがあり、VBAを使ってデータを処理し、ChatGPTにリクエストを送り、その結果をレポートに組み込む流れを模しています。

Sub AutoGenerateReport()
    ' データ処理
    Dim dataRange As Range
    Set dataRange = Sheets("Sheet1").UsedRange ' データのあるシートを指定
    
    ' データを配列に格納
    Dim dataArray As Variant
    dataArray = dataRange.Value
    
    ' ChatGPTにリクエストを送信して要約を取得
    Dim summary As String
    summary = GetChatGPTSummary("Generate a summary for the data.")
    
    ' レポート生成
    GenerateReport dataArray, summary
End Sub

Function GetChatGPTSummary(requestText As String) As String
    ' ChatGPTにHTTPリクエストを送信して要約を取得する関数
    ' 実際の実装はChatGPTのAPIにリクエストを送る処理を含む
    
    ' ここではダミーデータを返す
    GetChatGPTSummary = "これはChatGPTによって生成された要約のダミーテキストです。"
End Function

Sub GenerateReport(dataArray As Variant, summary As String)
    ' レポートを生成して出力する関数
    ' ここではダイアログに表示する例を示します
    
    ' レポートのタイトル
    Dim reportTitle As String
    reportTitle = "自動生成レポート"
    
    ' レポート本文
    Dim reportBody As String
    reportBody = "以下はデータの要約です：" & vbCrLf & vbCrLf & summary
    
    ' レポートをダイアログで表示
    MsgBox reportTitle & vbCrLf & vbCrLf & reportBody, vbInformation, "自動生成レポート"
End Sub

このサンプルコードでは、AutoGenerateReport マクロがデータ処理、ChatGPTへのリクエスト、そしてレポート生成の流れを制御しています。GetChatGPTSummary 関数はChatGPTにリクエストを送り、要約を受け取る関数です。GenerateReport 関数はデータとChatGPTからの要約を組み合わせてレポートを生成し、ダイアログで表示します。

実際のChatGPTのAPIにリクエストを送る部分はダミーの実装であり、ChatGPTのAPIを使用する際には適切な実装に変更してください。

データ分析と可視化

VBAを使用してデータ分析を行い、その結果をChatGPTに送信して解説を取得し、最終的にExcelなどで可視化する応用例です。

まず、データ分析を行うVBAマクロを作成します。この例では、Excelのデータを読み取り、簡単な統計情報を生成します。

Sub PerformDataAnalysis()
    ' データ分析: 例としてA列のデータを使用
    Dim dataRange As Range
    Set dataRange = Range("A1").CurrentRegion.Columns(1) ' A列のデータを対象にする
    
    ' データの統計情報
    Dim average As Double
    Dim variance As Double
    Dim dataSummary As String
    
    ' 平均の計算
    average = Application.WorksheetFunction.Average(dataRange)
    
    ' 分散の計算
    variance = Application.WorksheetFunction.Var(dataRange)
    
    ' データの統計情報のまとめ
    dataSummary = "平均: " & average & ", 分散: " & variance
    
    ' ChatGPTにデータ解説リクエストを送信
    SendRequestToChatGPT dataSummary
End Sub

上記のコードでは、A列のデータから平均と分散を計算し、その統計情報を文字列としてまとめています。そして、SendRequestToChatGPT関数を呼び出してChatGPTにデータ解説のリクエストを送信しています。

次に、ChatGPTからの応答を処理し、それをExcelで可視化するためのVBAマクロを作成します。

Sub ProcessChatGPTResponse(response As String)
    ' ChatGPTからの応答を処理
    MsgBox "ChatGPTの解説: " & response
    
    ' ここで必要ならば、応答をExcelで可視化する処理を追加
    ' 例: グラフの描画、セルへの結果の表示など
End Sub

最後に、ChatGPTへのリクエストを送信するSendRequestToChatGPT関数を実装します。この関数は、ChatGPTのAPIエンドポイントにHTTPリクエストを送り、応答を処理するためのものです。ChatGPTのAPIキーは適切にセットしてください。

Sub SendRequestToChatGPT(request As String)
    ' ChatGPTのAPIエンドポイントとAPIキー
    Dim apiUrl As String
    apiUrl = "https://api.openai.com/v1/chat/completions"
    Dim apiKey As String
    apiKey = "Your-OpenAI-API-Key" ' ここに自分のAPIキーをセット
    
    ' HTTPリクエストの作成
    Dim httpRequest As Object
    Set httpRequest = CreateObject("MSXML2.ServerXMLHTTP")
    httpRequest.Open "POST", apiUrl, False
    httpRequest.setRequestHeader "Content-Type", "application/json"
    httpRequest.setRequestHeader "Authorization", "Bearer " & apiKey
    
    ' ChatGPTへのリクエストデータの構築
    Dim requestData As String
    requestData = "{""messages"": [{""role"": ""system"", ""content"": ""You are a helpful assistant.""}, {""role"": ""user"", ""content"": """ & request & """}]}"
    
    ' リクエストの送信
    httpRequest.send requestData
    
    ' ChatGPTからの応答の処理
    If httpRequest.Status = 200 Then
        ' 応答の解析
        Dim response As Object
        Set response = JsonConverter.ParseJson(httpRequest.responseText)
        
        ' ChatGPTからの応答を処理
        ProcessChatGPTResponse response("choices")(1)("message")("content")
    Else
        ' エラーが発生した場合の処理
        MsgBox "ChatGPTへのリクエストが失敗しました。"
    End If
End Sub

メール自動送信システム

VBAを使用してOutlookでメール送信を自動化し、ChatGPTによって生成されたカスタマイズされたメッセージを送信するシステムを構築します。

Sub SendCustomizedEmail()
    ' Outlook Applicationを作成
    Dim outlookApp As Object
    Set outlookApp = CreateObject("Outlook.Application")
    
    ' 新しいメールアイテムを作成
    Dim mailItem As Object
    Set mailItem = outlookApp.CreateItem(0)
    
    ' メールの設定
    With mailItem
        .Subject = "カスタマイズされたメッセージ"
        .To = "recipient@example.com"
        
        ' ChatGPTにリクエストを送信してメッセージ生成
        Dim generatedMessage As String
        generatedMessage = SendRequestToChatGPT("Generate a personalized email message.")
        
        ' メール本文に生成されたメッセージを追加
        .Body = generatedMessage
        
        ' メールを送信
        .Send
    End With
    
    ' Outlookのオブジェクトを解放
    Set mailItem = Nothing
    Set outlookApp = Nothing
End Sub

Function SendRequestToChatGPT(requestText As String) As String
    ' ここにChatGPTへのリクエスト処理を実装
    ' ChatGPTのAPIキーなどを使用してリクエストを送信し、応答を取得
    
    ' 仮の実装（APIキーなどの詳細は実際のサービスに合わせて設定）
    Dim apiKey As String
    apiKey = "YOUR_CHATGPT_API_KEY"
    
    ' ChatGPTにリクエストを送信して応答を取得
    Dim chatGPTResponse As String
    chatGPTResponse = SendRequestToChatGPTAPI(apiKey, requestText)
    
    ' ChatGPTからの応答を返す
    SendRequestToChatGPT = chatGPTResponse
End Function

Function SendRequestToChatGPTAPI(apiKey As String, requestText As String) As String
    ' ここにChatGPTのAPIへリクエストを送信する処理を実装
    ' apiKeyやAPIエンドポイントなどを使用してHTTPリクエストを組み立て
    
    ' 仮の実装（実際のAPI利用に合わせて変更）
    ' HTTPリクエストを送信し、ChatGPTからの応答を取得
    ' 以下はダミーの応答
    Dim dummyResponse As String
    dummyResponse = "ChatGPTからの応答：これはカスタマイズされたメッセージです。"
    
    ' ChatGPTからの応答を返す
    SendRequestToChatGPTAPI = dummyResponse
End Function

ユーザー入力の自然言語処理

VBAを使用してフォームからのユーザー入力を収集し、ChatGPTを介して感情分析や解説を行う例です。

Option Explicit

' ChatGPTへのリクエストを送るサンプル
Sub ProcessUserInput()
    ' ユーザー入力を取得
    Dim userInput As String
    userInput = InputBox("何か質問やコメントを入力してください:", "ユーザー入力")

    ' ユーザー入力が空でない場合、ChatGPTにリクエストを送る
    If userInput <> "" Then
        SendRequestToChatGPT userInput
    Else
        MsgBox "ユーザー入力がありません。"
    End If
End Sub

' ChatGPTにリクエストを送る関数（例）
Sub SendRequestToChatGPT(userInput As String)
    ' ChatGPT APIへのリクエスト処理
    ' ここにChatGPT APIを呼び出すコードを追加

    ' ChatGPTからの応答を取得
    Dim chatGPTResponse As String
    ' ここにChatGPTからの応答を取得するコードを追加

    ' ChatGPTからの応答を表示
    MsgBox "ChatGPTの応答: " & chatGPTResponse
End Sub

まとめ

この記事では、VBAとChatGPTの連携に焦点を当て、基本的な実装方法と具体的な応用例を紹介しました。VBAを通じてChatGPTのAPIにリクエストを送ることで、オフィス業務の自動化やデータ処理の精度向上が可能です。自動レポート生成からメール自動送信まで、様々なシナリオでの活用が考えられます。是非、これらの手法を駆使して、効率的で柔軟な業務プロセスを構築してみてください。