deepseek怎么接入excel,用户可通过获取代码和创建按钮等方式进行接入,具体的操作步骤可能很多小伙伴还不清楚,下面小编将为大家详细介绍一下,感兴趣的可以接着往下看。
【使用教程】
一、接入方法
1、首先需要获取deepseek的KPI,然后前往deepseek官网并点击右侧的【API平台】。
2、跳转界面后找到左侧的【APIcase】,之后点击【创建】,并任意填入一个名字。
3、之后依次点击【创建】和【复制】按钮。
4、将其放入文档下面后,再次复制VBA代码。
5、进入excel表格后点击左上方的【开发工具】,然后依次点击下方箭头指向的位置。
6、将代码放到excel表格中后,继续复制一下API。
7、然后回到excel表格中,将【你的API】替换为刚才复制的API。
8、关闭当前界面后,需要创建按钮进行激活。
9、依次点击下方的按钮。
10、出现弹框后选择第一个代码,然后输入一个问题后点击一下后方的按钮。
11、下方显示问题的答案后即可设置成功。
二、VBA代码
Sub CallDeepSeekAPI()
Dim question As String
Dim response As String
Dim url As String
Dim apiKey As String
Dim http As Object
Dim content As String
Dim startPos As Long
Dim endPos As Long
question = ThisWorkbook.Sheets(1).Range("A1").Value
url = "https://api.deepseek.com/v1/chat/completions" ' 替换为实际的 API URL
apiKey = "你的API" ' 替换为你的 API 密钥
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "POST", url, False
http.setRequestHeader "Content-Type", "application/json"
http.setRequestHeader "Authorization", "Bearer " & apiKey
Dim requestBody As String
requestBody = "{""model"":""deepseek-chat"",""messages"":[{""role"":""user"",""content"":""" & question & """}]}"
http.send requestBody
If http.Status = 200 Then
response = http.responseText
startPos = InStr(response, """content"":""") + Len("""content"":""")
endPos = InStr(startPos, response, """")
content = Mid(response, startPos, endPos - startPos)
ThisWorkbook.Sheets(1).Range("A2").Value = content
Else
ThisWorkbook.Sheets(1).Range("A2").Value = "Error: " & http.Status & " - " & http.statusText
End If
End Sub
以上就是小编带来的deepseek接入excel操作教程,只需按照上述方法操作即可,想了解更多内容就在游侠手游。
使用教程 | ||
接入苹果siri | 接入wps | 接入excel |
话术大全 | 微信接入deepseek | 指令大全 |
网页版入口 | 专区 | 下载 | 本地部署 |
常见问题 | ||
注册方法 | 登录异常 | 服务器繁忙 |
中文名 | 爆火原因 | 语言更改 |
卡顿 | 怎么读 | 搜索不可用 |