ダビンチにアクセスするマクロを書いてみた
ChatGPTのAPIは近日公開という情報があり、OpenAIのサイトにてウェイティングリストに登録はしてみたものの、OpenAIでは既にAPIを提供していて、言語処理を行うGPT-3は有償サービスだけれど、3か月までは18ドル分無料でアクセスできるそうです。GPT-3は4つのデータモデルを持っているが、もっとも精度が高いのがダビンチで、1000トークンあたり2セントという価格になっています。となると、3か月で90万トークンまで無料で使えるという計算になります。なお1000トークンはおよそ750ワードに相当するそうです。他に画像を作成するDaleは検証用で現時点では無料、プログラミングコードを生成するCode-Xもベータ版で現時点では無料。早速アクセスするためのAPIキーを取得し、APIにて質問を送信し、回答を取得するマクロを書いてみました。APIのメッセージはJson形式で送ることになっていて、Pythonやnodes.jsには公式ライブラリが提供されています。Curlで直接HTTPプロトコルで送ることもできるので、その例を参考に、Excelのマクロを組んでみました。HTTP通信には、XMLHTTPRequestを使います。 Dim objHTTP As Object Send = Null
Set objHTTP = CreateObject("msxml2.xmlhttp")
objHTTP.Open "POST", APIHost, False
objHTTP.setRequestHeader "Content-Type", "app
0