在 Office VBA 使用 Open AI API

#openai #vba

之前介紹過用 Python 串接 OpenAI 模擬 ChatGPT 聊天機器人, 既然它是走 HTTP POST, 如果你也想在 Office 中加入類似功能, 可以使用 Widnows 平台上的 XmlHttpRequest 物件。以下就是一個簡單的範例：

Sub textcompletion()
    Dim prompt, url, body, api_key
    Dim xmlhttp As Object
    Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")
    api_key = "你的金鑰"
    url = "https://api.openai.com/v1/completions"
    prompt = InputBox("請輸入提示文字", "OpenAI Text Completion", "hello")
    body = "{""model"": ""text-davinci-003"",""prompt"":""" & prompt _
             & """,""temperature"":0.7,""max_tokens"":1000}"
    xmlhttp.Open "POST", url, False
    xmlhttp.setRequestHeader "Content-Type", "application/json"
    xmlhttp.setRequestHeader "Authorization", "Bearer " & api_key

    xmlhttp.Send body
    MsgBox (xmlhttp.responseText)
End Sub