[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

本帖最后由 877 于 2023-12-17 21:23 编辑

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

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

TOP

本帖最后由 wanghan519 于 2023-12-18 05:43 编辑

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

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

TOP

回复 2# jyswjjgdwtdtj


    这个一个openai用在excel里面的vba,只修改它的地址和key,用不了。所以要根据上面那个实例修改~
  1. Function ChatGPT(prompt As String) As String
  2. Dim url As String, apiKey As String
  3. Dim response As Object, re As String
  4. Dim midString As String
  5. apiKey = "your_api_key"
  6. url = "https://api.openai.com/v1/engines/text-davinci-003/completions"
  7. Set response = CreateObject("MSXML2.XMLHTTP")
  8. response.Open "POST", url, False
  9. response.setRequestHeader "Content-Type", "application/json"
  10. response.setRequestHeader "Authorization", "Bearer " + apiKey
  11. response.Send "{""prompt"":""" & prompt & """,""max_tokens"":1024, ""temperature"":0.1}"
  12. re = response.responseText
  13. midString = Mid(re, InStr(re, """text"":""") + 8)
  14. ChatGPT = Split(midString, """")(0)
  15. ChatGPT = Replace(ChatGPT, "\n", "")
  16. End Function
复制代码

TOP

回复 2# jyswjjgdwtdtj


    这是一个CURL实例,根据这个实例做一个可以用在excel里面的vba
  1. curl --request POST \
  2.   --url 地址
  3.   --header 'Authorization: Bearer 替换为你的key' \
  4.   -H "Content-Type: application/json" \
  5.   --data '{
  6.     "max_tokens": 1200,
  7.     "model": "gpt-3.5-turbo",
  8.     "temperature": 0.8,
  9.     "top_p": 1,
  10.     "presence_penalty": 1,
  11.     "messages": [
  12.         {
  13.             "role": "system",
  14.             "content": "You are ChatGPT, a large language model trained by OpenAI. Answer as concisely as possible."
  15.         },
  16.         {
  17.             "role": "user",
  18.             "content": "你是chatGPT多少?"
  19.         }
  20.     ]
  21. }'
复制代码

TOP

什么实例?

TOP

返回列表