[文本处理] 可否根据CURL和PHP和Python实例写个vba？

877

根据以下实例，写一个excel可用的VBA，有大佬会吗？
CURL 实例
PHP 实例
Python 实例
javascript 实例
typescript 实例
java 实例
go 实例

jyswjjgdwtdtj

什么实例？

877

回复 2# jyswjjgdwtdtj


    这是一个CURL实例，根据这个实例做一个可以用在excel里面的vba

curl --request POST \
  --url 地址
  --header 'Authorization: Bearer 替换为你的key' \
  -H "Content-Type: application/json" \
  --data '{
    "max_tokens": 1200,
    "model": "gpt-3.5-turbo",
    "temperature": 0.8,
    "top_p": 1,
    "presence_penalty": 1,
    "messages": [
        {
            "role": "system",
            "content": "You are ChatGPT, a large language model trained by OpenAI. Answer as concisely as possible."
        },
        {
            "role": "user",
            "content": "你是chatGPT多少？"
        }
    ]
}'
复制代码

877

回复 2# jyswjjgdwtdtj


    这个一个openai用在excel里面的vba，只修改它的地址和key，用不了。所以要根据上面那个实例修改~

Function ChatGPT(prompt As String) As String

Dim url As String, apiKey As String
Dim response As Object, re As String
Dim midString As String

apiKey = "your_api_key"
url = "https://api.openai.com/v1/engines/text-davinci-003/completions"

Set response = CreateObject("MSXML2.XMLHTTP")
response.Open "POST", url, False
response.setRequestHeader "Content-Type", "application/json"
response.setRequestHeader "Authorization", "Bearer " + apiKey
response.Send "{""prompt"":""" & prompt & """,""max_tokens"":1024, ""temperature"":0.1}"

re = response.responseText
midString = Mid(re, InStr(re, """text"":""") + 8)
ChatGPT = Split(midString, """")(0)
ChatGPT = Replace(ChatGPT, "\n", "")

End Function
复制代码

wanghan519

vba可以通过wscript.shell调用上面任何一个实例，或者打包成xll都行
问题是给出的curl实例连认证都没有，估计是用不了的啊。。。

之后搜了一下，好像是api2d.com的api，还是要收费的啊。。。

877

回复 5# wanghan519
接口是收费的，还是感谢大佬了~谢谢