工作效率翻倍！DeepSeek嵌入Excel，轻松实现10倍提升！

最新推荐文章于 2025-04-14 16:35:25 发布

大模型入门教程

最新推荐文章于 2025-04-14 16:35:25 发布

阅读量683

点赞数 12

文章标签： excel 大模型人工智能 AI Agent RAG DeepSeek

本文链接：https://blog.youkuaiyun.com/2401_85343303/article/details/146774829

版权

有粉丝问：能将DeepSeek嵌入到Excel吗？

当然可以了，我们需要借助VBA代码来实现，以下的代码都是由DeepSeek自动生成的，我们还需要调用DeepSeek的API，

实现在A1单元格中输入数据，然后点击按钮执行，在B1单元格中输出结果的效果，我们来看下具体怎么做的

一、获取API

首先我们需要获取DeepSeek的API，只需来到官网，右上角点击【API开放平台】，然后在右侧找到【API keys】然后在中间点击【API keys】，就会显示窗口，我们需要为其设置一个名字，然后复制下API，等下需要用到。

二、插入VBA代码

打开Excel，按下快捷键ALT+F11，调出VBA的编辑窗口，然后在左侧点击空白的区域，找到【插入】选择【模块】之后将下面的代码粘贴到窗口中

我们需要将【你的API】替换为你刚才获取的API地址

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单元格输入问题，然后点击【按钮】等待一段时间就能得到结果，大家可以动手试一下~

在这里插入图片描述

如何学习AI大模型？

我在一线互联网企业工作十余年里，指导过不少同行后辈。帮助很多人得到了学习和成长。

我意识到有很多经验和知识值得分享给大家，也可以通过我们的能力和经验解答大家在人工智能学习中的很多困惑，所以在工作繁忙的情况下还是坚持各种整理和分享。但苦于知识传播途径有限，很多互联网行业朋友无法获得正确的资料得到学习提升，故此将并将重要的AI大模型资料包括AI大模型入门学习思维导图、精品AI大模型学习书籍手册、视频教程、实战学习等录播视频免费分享出来。

在这里插入图片描述