ExcelVBAからChatGPTを呼び出す際に出るエラーを解消したい

Comments

1. 

   @yuka-mori

   Questioner

   more_horiz

   エラーが解消しました！ありがとうございます！
   なるほど、そのようなやり方があるんですね、、！
   私一人では本当に諦めていたと思います。ありがとうございます

   また違うエラーが発生し、もう1つヘッダ情報をセットしなくてはいけなくなったのですが、教えていただきたいです
   質問立てますね！

2. 

   @nak435

   more_horiz

   なるほど、そのようなやり方があるんですね、、！

   内部でcurlコマンドを実行しているだけですから、curlコマンドの引数で指定できるものなら、何でもできます。

   もう1つヘッダ情報をセットしなくてはいけなくなった

   それは、Content-Type: application/jsonですか？

   そうであれば、固定値なので、引数ではなく直接書けばよいかと思います。

   sCmd = "curl -X POST -H 'Content-Type: application/json' -H '" & sRequestHeader & "' " & sUrl
   

3. 

   @yuka-mori

   Questioner

   more_horiz

   ありがとうございます！！

   試してみたのですが、イミディエイトウィンドウに何も返ってきませんでした、、
   下記のページを参考にすると、Authorization: Bearerと同じような記述をされているのですが、何か代替案などないでしょうか
   https://qiita.com/uezo/items/6d9c7ede17bbdc9204e9

   私が今回書いたコードは以下です。

   Public Sub HelloChatGPT()
       Dim apikey As String
       apikey = "sk-----"
       
       Dim messages(0) As New Dictionary
       messages(0).Add "role", "user"
       messages(0).Add "content", " こんにちは、ChatGPT!"
   
       Dim data As New Dictionary
       data.Add "messages", messages
       data.Add "model", "gpt-3.5-turbo"
   End Sub
   
   
   Function HTTPGet2(sUrl As String, sRequestHeader As String) As String
   
       Dim sCmd As String
       Dim sResult As String
       Dim lExitCode As Long
   
   
       sCmd = "curl -X POST -H 'Content-Type: application/json' -H '" & sRequestHeader & "' " & sUrl
   
       sResult = execShell(sCmd, lExitCode)
   
       ' ToDo check lExitCode
   
       HTTPGet2 = sResult
   
   End Function
   
   Sub test2()
       Dim result As String
       Const apikey = "sk--------"
       result = HTTPGet2("https://api.openai.com/v1/chat/completions", "Authorization: Bearer  sk-----------")
   
       Debug.Print result
   End Sub
   
   
   
   
   
   

4. 

   @yuka-mori

   Questioner

   more_horiz

   すみません以下のエラーが返ってきました！
   まだ自分でも調べられていないのですが、一応先に共有しておきます

   {
       "error": {
           "message": "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 figuring out how to fix this, please contact us through our help center at help.openai.com.)",
           "type": "invalid_request_error",
           "param": null,
           "code": null
       }
   }
   

5. 

   @nak435

   more_horiz

   Authorization: Bearerと同じような記述をされているのですが、

   Authorizationと同じ書き方をしていますよ。
   以前の回答に書きましたが、今回の環境はMacということで、@yuka-mori さんが探してきた方法が、「curlコマンドを使ってHTTPリクエストする」という方法です。

   curlコマンドの引数をよく見てください。

   • -H '" & sRequestHeader & "' "

   sRequestHeaderは"Authorization: Bearer sk-----------"ですから、文字列が置換されて、結果として、
   -H 'Authorization: Bearer sk-----------'になります。

   一方、先ほど追加した方は、

   -H 'Content-Type: application/json'

   ほらね、curlコマンドにおいては、同じ書き方です。

   すみません以下のエラーが返ってきました！

   ですよね

6. 

   @nak435

   more_horiz

   すみません以下のエラーが返ってきました！
   まだ自分でも調べられていないのですが、一応先に共有しておきます

   そのエラーは、

   書籍に載っているWindows用のコード

   ‘ APIの呼び出し
       Dim client As Object
       Set client = CreateObject("MSXML2.ServerXMLHTTP")
       client.setTimeouts 30000, 30000, 30000, 60000
       client.Open "POST", "https://api.openai.com/v1/chat/completions"
       client.setRequestHeader "Content-Type", "application/json"
       client.setRequestHeader "Authorization", "Bearer " & ApiKey
       client.send JsonConverter.ConvertToJson(data)
   

   一番最後のclient.send JsonConverter.ConvertToJson(data)に相当するデータを渡していないから起きています。
   ここは、JSONです。今回はどんなJSONデータを渡したいのですか？

7. 

   @yuka-mori

   Questioner

   more_horiz

   丁寧な解説ありがとうございます！
   curlコマンドの部分についてよく理解することができました！
   またJSONデータを渡せていないことによるエラーだということも理解できました。

   大変申し訳ないのですが、client.send JsonConverter.ConvertToJson(data)をどのように記述すれば良いかがわかりません。教えていただきたいです
   また、渡すべきべきJSONデータというのはJsonconverterのファイルデータで合っていますでしょうか？