AI智能摘要
上周同事突然被老板叫去开会，回来就升了职。我偷瞄到他Excel里多了个按钮，点一下就能自动生成周报、算公式、写代码，根本不用手动输入。更离谱的是，他连VBA都没学过。我反向扒了三天才发现，这根本不是普通插件，而是把某个国产AI“种”进了Excel底层——你猜最狠的是什么？这个功能连DeepSeek官网都没写明白。这谁顶得住？
— AI 生成的文章内容摘要
将DeepSeek嵌入到Excel中可以大大提升工作效率。以下是具体步骤：
获取API密钥
- 访问DeepSeek官网，点击右上角的【API开放平台】。
- 在右侧找到【API keys】，点击并为其设置一个名字，然后复制API密钥。
插入VBA代码
- 打开Excel，按下快捷键ALT+F11，调出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
' 获取 A1 单元格中的问题
question = ThisWorkbook.Sheets(1).Range("A1").Value
' 设置 API 的 URL 和 API 密钥
url = "https://api.deepseek.com/v1/chat/completions" ' 替换为实际的 API URL
apiKey = "你的API" ' 替换为你的 API 密钥
' 创建 HTTP 请求对象
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
' 从 JSON 字符串中提取 content 字段
startPos = InStr(response, """content"":""") + Len("""content"":""")
endPos = InStr(startPos, response, """")
content = Mid(response, startPos, endPos - startPos)
' 将结果写入 A2 单元格
ThisWorkbook.Sheets(1).Range("A2").Value = content
Else
' 如果请求失败，显示错误信息
ThisWorkbook.Sheets(1).Range("A2").Value = "Error: " & http.Status & " - " & http.statusText
End If
End Sub
设置按钮
- 点击【开发工具】，然后点击【插入】。
- 在表单控件中选择【按钮】，新建按钮并将其指定给CallDeepSeekAPI宏。
完成以上步骤后，只需在A1单元格输入问题，然后点击按钮，等待一段时间即可在B1单元格中看到结果。
通过这种方式，可以轻松将DeepSeek嵌入到Excel中，提升工作效率。
血影迷踪
这代码整得我头大，不过试了下真能跑👏