VBA与AI的第一次对话-----Open AI(ChatGPT)

hnsd24

先上代码，VBA连接Open API

1. Public Function OpenAI(prompt As String) As String
   
2.      Dim url As String, apiKey  As String
   
3.      Dim response As Object, json As String
   
4.      apiKey = "替换成你自己的key"
   
5.      url = "https://api.openai.com/v1/completions"
   
6.      Set response = CreateObject("MSXML2.XMLHTTP")
   
7.      response.Open "POST", url, False
   
8.      response.SetRequestHeader "Content-Type", "application/json"
   
9.      response.SetRequestHeader "Authorization", "Bearer " + apiKey
   
10.      response.Send "{""model"":""text-davinci-003"",""prompt"":""" & prompt & """,""max_tokens"":10}"
    
11.      json = response.responseText
    
12.      OpenAI = Split(Mid(json, InStr(json, """text"":""") + 8), """")(0)
    
13.      OpenAI = Replace(OpenAI, "\n", "")
    
14. End Function

复制代码

1. Sub test()
   
2.        Dim t As String
   
3.        t = OpenAI("say hello to me")
   
4.        Debug.Print t
   
5. End Sub

复制代码

说明一下：帖子发布时，还没测试成功。不挂梯子，报错：指定资源下载失败。挂梯子，到send这一句一直转圈圈
注册及申请key地址：https://platform.openai.com/account/api-keys。
亲测，国内163邮箱无法注册，我用的是谷歌gmail账号登录的。需要绑定手机号，而且必须是国外的
API注册成功后有赠送的18美金。用完需充值，非免费。所以代码中我把自己的apiKey删除了

hnsd24

下面是AI根据我的提问“写一段VBA代码：连接Open AI的API”，自动写出来的VBA代码。没有任何修改。
太让我震撼了

1. Sub OpenAIRequest()
   
2.     Dim httpRequest As Object
   
3.     Set httpRequest = CreateObject("WinHttp.WinHttpRequest.5.1")
   
4. 
   
5.     Dim API_URL As String
   
6.     API_URL = "https://api.openai.com/v1/engines/davinci/jobs"
   
7. 
   
8.     httpRequest.Open "POST", API_URL, False
   
9.     httpRequest.SetRequestHeader "Content-Type", "application/json"
   
10.     httpRequest.SetRequestHeader "Authorization", "Bearer <API_KEY>"
    
11.     httpRequest.Send "{}"
    
12. 
    
13.     If httpRequest.Status = 200 Then
    
14.         Debug.Print httpRequest.ResponseText
    
15.     Else
    
16.         Debug.Print "Request failed with status: " & httpRequest.Status & " " & httpRequest.StatusText
    
17.     End If
    
18. End Sub
    

复制代码

AI写完代码，还给了一段提示：
Note that you need to replace <API_KEY> with your own API key for OpenAI. You can obtain one by creating an account on the OpenAI website.
太震撼了

约定的童话

这么猛的吗？会不会是根据关键字套的模板呢？

鑫尼达

这么智能了

qlmgu

楼主厉害了。可惜的是openAI很多内容都不对cn开放，有解吗？

ivccav

Openai的注册网站，中国大陆是无法访问的。

百度应该会做个类似chaygpt的出来，访问外网成本越来越高，越来越困难。图个新鲜就没必要折腾了

aman1516

2022，2刷 [星际穿越] ，
2023，搬小板凳看 [AI穿越 之第一次接触]
同样震撼.......

Stone_00x

国内有很多镜像站不用注册可以用

hnsd24

约定的童话 发表于 2023-2-4 00:56
这么猛的吗？会不会是根据关键字套的模板呢？

不是套模板的，你输入一段汉字需求描述，他可以给你写VBA代码出来，而且逻辑性很强。从而看出来ChatGPT是具有学习能力的。

qlmgu

Stone_00x 发表于 2023-2-4 11:23
国内有很多镜像站不用注册可以用

是吗，谢谢告知，我去找找