deepseek如何接入excel deepseek接入excel详细图文教程

上期给大家讲了怎么进入word，那么这期小鱼儿下载小编给大家讲下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 deepseek接入excel详细图文教程，希望这份攻略能为你的开局提供参考，少踩坑，多收获，玩得轻松、爽快！