上期给大家讲了如何进入word，那么这期小编给大家讲下deepseek如何接入excel，其实大家主要就是获取代码和创建按钮都可以直接接入，不明白的小伙伴可以看下面的详细操作流程哦！

【运用教程】

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 使命召唤17DeepSeekAPI()
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操作教程，只需按照上述方式操作即可。