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中，提升工作效率。
血影迷踪
这代码整得我头大，不过试了下真能跑👏
雾中漫步
@血影迷踪： 之前卡在VBA那段，原来是双引号转义搞错了，改了就能跑了😊
古道浪人
A1输入问题等结果？那要是问一堆问题岂不是要复制粘贴到飞起
夜之交响
API密钥那块儿是不是得小心泄露啊，放VBA里不太安全吧
空调外机
@夜之交响： VBA里硬编码密钥确实危险，建议调用环境变量
月光吟游者
之前搞过类似的东西，requests老是timeout，Excel太娇气
FlashlightReader
能不能支持多行批量问答啊，现在这个只能单条处理有点卡脖子
律动微风
@FlashlightReader： 这功能要是能自动批量处理就爽了
兰舟影
感觉还行
布丁奶盖
@兰舟影： 我也试了一遍，感觉挺顺手的
雾影幻瞳
那个啥，按钮点了没反应是为啥，提示权限错误
绿叶清风
@雾影幻瞳： 权限错误多半是宏没开，检查下信任中心设置
软萌小可爱
我是小白，VBA是啥啊，有更简单的办法不
草莓星冰
这方法可以试试
冰雪公主Lily
DeepSeek响应慢的话，整个表格都会卡住吗
火焰之怒
@冰雪公主Lily： 如果DeepSeek响应慢，建议把请求放到后台线程，或者分批把问题写到不同单元格，避免整个表卡死
风之诗篇
试了下问“今天天气咋样”结果返回了一堆JSON😂
灵雾仙子
Excel卡成PPT谁懂啊，问个简单问题转半天
气球小兔子
能不能直接在单元格写公式调用啊，非得点按钮好麻烦
铁匠严
之前用过类似API，Excel一跑就崩，心累
小猫喵喵
hhh这不就是把聊天框搬进表格了嘛
叶落无声
小白求问：ALT+F11按了没反应咋整？
碎叶城
DeepSeek免费额度够日常用吗？别跑两下就超了
丹青
API密钥放VBA里确实悬，万一发给别人Excel不就露了
寂寥灯火
免费额度我试了下，问一百来次就没了，写报表根本不敢放开用
无名剑
VBA就是Excel的编程功能啦，按ALT+F11能打开那个黑窗口
懒熊宝
这代码跑起来太卡，问个问题转圈半分钟，急死人
风之吟唱
能不能整成自动的啊，每次点按钮太累
漂泊的梦
我之前做自动化也这样，动不动就timeout，心好累
闪电
那个啥，我按了ALT+F11没反应，是不是得先开开发工具？
剃头匠快刀
感觉还行吧，就是怕公司IT抓到我乱加脚本
龙Dragon
说了半天咋调用API，结果图片比文字有用😂
千夜
这玩意儿真能提升效率？我咋觉得光配置就折腾俩小时