Sub 質問をChatGPTのAPIへ送る_GPT4Turbo()
' JSONパーサーを導入しMicrosoft Scripting Runtimeを参照に追加する必要があります
Dim objhttp As Object
Dim APIKey As String
Dim strTextToPredict As String
Dim strRequestBody As String
Dim strResponse As String
Dim strModel As String
Dim strMessages As String
Dim apiUrl As String
Dim jsonResponse As Dictionary
APIKey = "sk-****************************************************" ' 実際のAPIキーに置き換えてください
' モデル名を指定してください
strModel = "gpt-4-1106-preview"
' 入力セルからテキストを取得し、改行を処理します
strTextToPredict = Replace(Sheets(1).Range("B1").Text, Chr(10), "\n")
' JSON配列メッセージを準備します
strMessages = "[{""role"": ""user"", ""content"":""" & strTextToPredict & """}]"
' APIのURLを設定します
apiUrl = "https://api.openai.com/v1/chat/completions"
' HTTPリクエストオブジェクトを初期化します
Set objhttp = CreateObject("MSXML2.XMLHTTP")
With objhttp
.Open "POST", apiUrl, False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Authorization", "Bearer " & APIKey
strRequestBody = "{""model"":""" & strModel & """, ""messages"":" & strMessages & "}"
.send strRequestBody
' レスポンスが成功したかどうかを確認します
If .Status = 200 Then
strResponse = .responseText
Else
MsgBox "エラー: " & .Status & " - " & .statusText
Exit Sub
End If
End With
Debug.Print strResponse
' JSONレスポンスをパースします。
' JSONパース用のライブラリが必要です。
Set jsonResponse = JsonConverter.ParseJson(strResponse)
' レスポンスに含まれる配列からメッセージ部分を出力します。
If jsonResponse("choices")(1)("message")("role") = "assistant" Then
Sheets(1).Range("B3").Value = jsonResponse("choices")(1)("message")("content")
End If
End Sub
以下スクレイピングのサンプルコードです。
Sub GetWebPageContent()
Dim http As Object
Dim URL As String
Dim HTMLContent As String
URL = “https://learn.microsoft.com/ja-jp/windows/release-health/status-windows-11-24h2”
Set http = CreateObject(“MSXML2.XMLHTTP”)
http.Open “GET”, URL, False
http.Send
If http.Status = 200 Then
HTMLContent = http.responseText
Debug.Print HTMLContent
Else
MsgBox “Failed to retrieve the page.”
End If
End Sub
こんにちは。
ChatGPTに「このURLから不具合に関する記事を要約してください https://learn.microsoft.com/ja-jp/windows/release-health/status-windows-11-24h2」を要求したいと思います。
ChatGPTのサイトで入力するときちんと回答がくるのですが、こちらのＶＢＡ＋ＡＰＩを使うと「すみませんが、私はインターネットにアクセスできないため、指定されたURLを直接参照することができません」と回答が来ます。
何か良い方法はないでしょうか。
いつもご利用ありがとうございます。
指定されたURLを直接参照することができない件ですが、
VBA＋APIを利用してChatGPTにURLを渡して要約させる場合、
API自体が直接Webページにアクセスする機能を持たないため、
正しい挙動となります。
ほかの方法としては、一旦対象URLをスクレイピングで情報収集して、その後質問文とマージしてGPTに送信する方法がかんたんでよいかと思いますのでご参考ください。
以下スクレイピングのサンプルコードです。
Sub GetWebPageContent()
Dim http As Object
Dim URL As String
Dim HTMLContent As String
URL = “https://learn.microsoft.com/ja-jp/windows/release-health/status-windows-11-24h2”
Set http = CreateObject(“MSXML2.XMLHTTP”)
http.Open “GET”, URL, False
http.Send
If http.Status = 200 Then
HTMLContent = http.responseText
Debug.Print HTMLContent
Else
MsgBox “Failed to retrieve the page.”
End If
End Sub
ご指示の通り作業したところ「エラー404」と出てしまいます。対応ご教示いただけますでしょうか？
いつもご利用ありがとうございます。
404エラーは、存在しないページへアクセスしたときのエラーコードですので、
今回リクエスト対象となる、以下アドレスが正しく設定されているか、また有効なAPIキーを指定しているかご確認いただけますでしょうか。
https://api.openai.com/v1/chat/completions