Sub 質問をChatGPTのAPIへ送る()
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 temp As Variant
Dim temp2 As Variant
Dim i As Integer
Dim intMaxTokens As Integer
Dim apiUrl As String
Dim intCount As Integer
'APIキーを入力します。
APIKey = "sk-****************************************************"
'ChatGPTのAPIから出力される最大文字数を指定します。
intMaxTokens = 1000
'ChatGPT APIのモデルを指定します。
strModel = "text-davinci-003"
'ChatGPTへの質問内容を取得します。
strTextToPredict = Range("B1").Text
'リクエスト先のURLを設定します。
apiUrl = "https://api.openai.com/v1/completions"
'XMLHTTPオブジェクトをセットします。
Set objhttp = CreateObject("MSXML2.XMLHTTP")
With objhttp
'リクエストのヘッダーを設定します。
.Open "POST", apiUrl, False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Authorization", "Bearer " & APIKey
' リクエスト文を作成します。
strRequestBody = "{""model"":""" & strModel & """, ""prompt"":""" & strTextToPredict & """, ""max_tokens"":" & intMaxTokens & ", ""temperature"":0.5, ""top_p"":1}"
'リクエストを送信します。
.send strRequestBody
'APIからのレスポンスが返るまで待ちます。
Do While .readyState <> 4
DoEvents
Loop
'レスポンス情報をデバッグします｡不要であれば削除してください｡
Debug.Print .responseText
'レスポンスのテキスト情報をExcel出力用変数に代入します。
strResponse = .responseText
End With
'Json形式のデータの内回答テキストがある位置から分割します。
temp = Split(strResponse, "\n\n")
'配列数を取得します。
intCount = UBound(temp)
'配列分処理を繰り返します。
For i = 1 To intCount
If i = intCount Then
'最後の回答をセルに出力します。
temp2 = Split(temp(i), """,""")
Cells(i + 2, 2) = Replace(Replace(temp2(0), "\n", Chr(10)), "\", "")
Else
'最後の回答以外をセルに出力します。
Cells(i + 2, 2) = Replace(Replace(temp(i), "\n", Chr(10)), "\", "")
End If
Next i
End Sub
Sub 質問をChatGPTのAPIへ送るv1()
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 temp As Variant
Dim temp2 As Variant
Dim i As Integer
Dim intMaxTokens As Integer
Dim apiUrl As String
Dim intCount As Integer
'APIキーを入力します。
APIKey = "sk-***********************************************"
'ChatGPTのAPIから出力される最大文字数を指定します。
intMaxTokens = 1000
'ChatGPT APIのモデルを指定します。
strModel = "text-davinci-003"
'ChatGPTへの質問内容を取得します。
'strTextToPredict = Range("B1").Text
strTextToPredict = Replace(Range("B1").Text, Chr(10), "\n")
'リクエスト先のURLを設定します。
apiUrl = "https://api.openai.com/v1/completions"
'XMLHTTPオブジェクトをセットします。
Set objhttp = CreateObject("MSXML2.XMLHTTP")
With objhttp
'リクエストのヘッダーを設定します。
.Open "POST", apiUrl, False
.setRequestHeader "Content-Type", "application/json"
.setRequestHeader "Authorization", "Bearer " & APIKey
' リクエスト文を作成します。
strRequestBody = "{""model"":""" & strModel & """, ""prompt"":""" & strTextToPredict & """, ""max_tokens"":" & intMaxTokens & ", ""temperature"":0.5, ""top_p"":1}"
'リクエストを送信します。
.send strRequestBody
'APIからのレスポンスが返るまで待ちます。
Do While .readyState <> 4
DoEvents
Loop
'レスポンス情報をデバッグします｡不要であれば削除してください｡
Debug.Print .responseText
'レスポンスのテキスト情報をExcel出力用変数に代入します。
strResponse = .responseText
End With
'Json形式のデータの内回答テキストがある位置から分割します。
temp = Split(strResponse, "\n\n")
'配列数を取得します。
intCount = UBound(temp)
'配列分処理を繰り返します。
For i = 1 To intCount
If i = intCount Then
'最後の回答をセルに出力します。
temp2 = Split(temp(i), """,""")
Cells(i + 2, 2) = Replace(Replace(temp2(0), "\n", Chr(10)), "\", "")
Else
'最後の回答以外をセルに出力します。
Cells(i + 2, 2) = Replace(Replace(temp(i), "\n", Chr(10)), "\", "")
End If
Next i
End Sub
Sub 質問をChatGPTのAPIへ送るv3_5T()
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 temp As Variant
Dim temp2 As Variant
Dim i As Integer
Dim intMaxTokens As Integer
Dim apiUrl As String
Dim intCount As Integer
Dim StrMessages As String
'APIキーを入力します。
APIKey = "sk-****************************************"
'ChatGPTのAPIから出力される最大文字数を指定します。
intMaxTokens = 1000
'ChatGPT APIのモデルを指定します。
strModel = "gpt-3.5-turbo"
'ChatGPTへの質問内容を取得します。
strTextToPredict = Replace(Range("B1").Text, Chr(10), "\n")
StrMessages = "[{""role"": ""user"", ""content"":""" & strTextToPredict & """}]"
Debug.Print StrMessages
'リクエスト先のURLを設定します。
apiUrl = "https://api.openai.com/v1/chat/completions"
'XMLHTTPオブジェクトをセットします。
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
'APIからのレスポンスが返るまで待ちます。
Do While .readyState <> 4
DoEvents
Loop
'レスポンス情報をデバッグします｡不要であれば削除してください｡
Debug.Print .responseText
'レスポンスのテキスト情報をExcel出力用変数に代入します。
strResponse = .responseText
End With
'Json形式のデータの内回答テキストがある位置から分割します。
temp = Split(strResponse, "content"":""")
'配列数を取得します。
intCount = UBound(temp)
'配列分処理を繰り返します。
For i = 1 To intCount
If i = intCount Then
'最後の回答を代入します。
temp2 = Split(temp(i), """},")
Cells(i + 2, 2) = Replace(Replace(temp2(0), "\n", Chr(10)), "\", "")
Else
'最後の回答以外を代入します。
Cells(i + 2, 2) = Replace(Replace(temp(i), "\n", Chr(10)), "\", "")
End If
Next i
End Sub
こんにちは。
.Open(“POST”, apiUrl, False) の場所でエラーが出ます。
System.MissingMemberException: ‘Public member ‘Open’ on type ‘IServerXMLHTTPRequest2′ not found.’
よろしかったら、原因を教えてください。
マクロ動かしても反応がないので、帰ってきてるものを除くと↓
We could not parse the JSON body of your request. (HINT: This likely means you aren’t using your HTTP library correctly. The OpenAI API expects a JSON payload, but what was sent was not valid JSON. If you have trouble.
調べてみても「”」が違うとかいくつか説はあったものの、解決には至らず。
知見をお借りしたいです
「返信する」が動かないので、この形で書き込ませていただきます。
Excel VBA： 問題なし
VB.Netフォームアプリ：エラー。CreateObjectがうまく動かない。
VB.Netフォームアプリケーション：問題なし。
ということで解決しました。お騒がせしてすみませんでした。
タカミザカさんの質問ですが、改行キーかもしれません。
解消されたようでよかったです。
またアドバイスありがとうございます。
こちらでも検証をしてみたいと思います。
こんにちは。
.Open(“POST”, apiUrl, False) の場所でエラーが出ます。
System.MissingMemberException: ‘Public member ‘Open’ on type ‘IServerXMLHTTPRequest2′ not found.’
よろしかったら、原因を教えてください。
ご質問ありがとうございます。
エラーメッセージは、IServerXMLHTTPRequest2インターフェイスのOpenメソッドが見つからなかったという内容ですので、
MSXMLライブラリがないか古いバージョンである可能性があります。
まずは、Windows10以降の環境で検証いただきたくお願いいたします。
なお、Macの場合はサポート外となりますことご了承ください。
マクロ動かしても反応がないので、帰ってきてるものを除くと↓
We could not parse the JSON body of your request. (HINT: This likely means you aren’t using your HTTP library correctly. The OpenAI API expects a JSON payload, but what was sent was not valid JSON. If you have trouble.
調べてみても「”」が違うとかいくつか説はあったものの、解決には至らず。
知見をお借りしたいです
いつもご利用ありがとうございます。
APIからのレスポンスがうまくいかない件ですが、メッセージの内容からJSON本文が解析できないとありますので、
正しいJSONフォーマットで送信されていない可能性があります。
その要因としては日本語が文字化けを起こしている、特殊記号が使われている、Macなど文字コードがwindowsと異なるなど考えられます。
一度英文などで日本語を外した最小限の質問文にし、strRequestBodyの中身をご確認いただけますでしょうか。
お世話になります。
本件、最新の技術に簡単に触れられてめっちゃためになります。
ところで「apiUrl」の変数定義が無いようですがあえてですか？
大した問題ではありませんが。
いつもご利用ありがとうございます。
すみません、「apiUrl」の変数定義は単純に抜け漏れです…
記事のコードも修正させていただきました。
Excel＆ChatGPTネタは他にもあり、また今後も追加する予定ですので、
ご参考いただければと存じます。