折页在线设计平台_四川智能网站建设制作_舆情监控系统_爱站数据官网

一、前期准备

1.1 获取 DeepSeek API 密钥

1. 注册 DeepSeek 平台
   • 访问 DeepSeek 官方网站（或指定的 API 服务平台，如硅基流动等）。
   • 若尚未注册，按照平台指引创建新账号并完成登录。
2. 创建 API 密钥
   • 进入用户控制面板，找到“API Keys”或“API 管理”选项。
   • 点击“创建 API Key”按钮，填写应用名称（如 “Excel 文本助手”）及所需权限。
   • 系统将生成类似 sk-xxxxxxxxxxxxxxxxxxxx 的 API 密钥，请复制并妥善保存，后续在 VBA 代码中需要使用此密钥。

---

二、配置 Excel 环境

2.1 启用“开发工具”选项卡

1. 打开 Excel 后，点击【文件】>【选项】。
2. 在“Excel 选项”对话框中，选择【自定义功能区】。
3. 在右侧列表中勾选【开发工具】复选框，然后点击【确定】。
   – 此时 Excel 功能区上会显示“开发工具”选项卡。

2.2 启用宏

1. 在【文件】>【选项】中选择【信任中心】，点击【信任中心设置】。
2. 在“宏设置”中选择“启用所有宏”（出于安全考虑，请仅在可信环境下使用）。
3. 同时建议勾选“信任对 VBA 工程对象模型的访问”。

---

三、编写 VBA 宏调用 DeepSeek API

3.1 打开 VBA 编辑器并插入模块

1. 在“开发工具”选项卡中点击【Visual Basic】（或按快捷键 Alt+F11）。
2. 在 VBA 编辑器中，右击当前工程（例如“VBAProject(您的工作簿名)”），选择【插入】>【模块】。
   – 建议将新模块命名为 DeepSeekModule。

3.2 粘贴以下完整代码

下面的代码实现了以下功能：

• 公共 API 调用函数：封装 HTTP 请求，向 DeepSeek API 发送请求并返回 JSON 字符串。
• 封装不同模型调用：提供调用 “deepseek-chat” 与 “deepseek-reasoner” 两种模型的接口函数。
• 主宏：获取当前单元格内容，将文本传给 API，然后将返回的处理结果写入当前单元格右侧的相邻单元格。

Option Explicit'===============================
'【公共 API 调用函数】
'===============================
' 此函数向 DeepSeek API 发送请求。
' 参数：
'   api_key   —— 您的 API 密钥
'   inputText —— 要处理的文本（可以来自 Excel 单元格）
'   modelName —— 模型名称，如 "deepseek-chat" 或 "deepseek-reasoner"
' 返回值：
'   JSON 格式的响应字符串，或错误信息
Private Function CallDeepSeekAPI_Common(api_key As String, inputText As String, modelName As String) As StringDim API As StringDim SendTxt As StringDim Http As ObjectDim status_code As IntegerDim response As String' API 请求地址API = "https://api.deepseek.com/chat/completions"' 构建 JSON 请求体，包含模型名称、系统角色提示与用户输入SendTxt = "{""model"": """ & modelName & """, " & _"""messages"": [{" & _"""role"":""system"", ""content"":""你是 Excel 文案助手""}," & _" {""role"":""user"", ""content"":""" & inputText & """}" & _"], ""stream"": false}"' 发送 HTTP POST 请求On Error GoTo ErrHandlerSet Http = CreateObject("MSXML2.XMLHTTP")With Http.Open "POST", API, False.setRequestHeader "Content-Type", "application/json".setRequestHeader "Authorization", "Bearer " & api_key.Send SendTxtstatus_code = .Statusresponse = .responseTextEnd WithIf status_code = 200 ThenCallDeepSeekAPI_Common = responseElseCallDeepSeekAPI_Common = "Error: " & status_code & " - " & responseEnd IfExitPoint:Set Http = NothingExit FunctionErrHandler:CallDeepSeekAPI_Common = "Error: " & Err.Number & " - " & Err.DescriptionResume ExitPoint
End Function' 调用 deepseek-chat 模型
Function CallDeepSeekChatAPI(api_key As String, inputText As String) As StringCallDeepSeekChatAPI = CallDeepSeekAPI_Common(api_key, inputText, "deepseek-chat")
End Function' 调用 deepseek-reasoner 模型
Function CallDeepSeekReasonerAPI(api_key As String, inputText As String) As StringCallDeepSeekReasonerAPI = CallDeepSeekAPI_Common(api_key, inputText, "deepseek-reasoner")
End Function'==============================================
'【主宏：使用 deepseek-chat 处理 Excel 中的文本】
'==============================================
Sub DeepSeekChat_Excel()Dim api_key As StringDim inputText As StringDim response As StringDim regex As ObjectDim matches As ObjectDim srcCell As RangeDim destCell As Range' ========================================'【设置 API 密钥】' ========================================' 请将下面的文字替换为您的真实 API Keyapi_key = "在此处替换为您的 API Key"' 检查 API 密钥是否为空If api_key = "" ThenMsgBox "Please enter the API key.", vbCriticalExit SubEnd If' ========================================'【获取当前活动单元格文本】' ========================================Set srcCell = ActiveCellIf srcCell.Value = "" ThenMsgBox "当前单元格为空，请选择包含文本的单元格。", vbExclamationExit SubEnd IfinputText = srcCell.Value' 对特殊字符进行转义处理inputText = Replace(inputText, "\", "\\")inputText = Replace(inputText, vbCrLf, " ")inputText = Replace(inputText, vbCr, " ")inputText = Replace(inputText, vbLf, " ")inputText = Replace(inputText, Chr(34), "\""")inputText = Replace(inputText, Chr(39), "\'")' ========================================'【调用 DeepSeek API】' ========================================response = CallDeepSeekChatAPI(api_key, inputText)If Left(response, 5) = "Error" ThenMsgBox response, vbCriticalExit SubEnd If' ========================================'【解析 JSON 返回数据】' ========================================' 使用正则表达式提取返回 JSON 中 "content" 字段的值Set regex = CreateObject("VBScript.RegExp")With regex.Global = True.MultiLine = True.IgnoreCase = False.Pattern = """content"":""(.*?)"""End WithSet matches = regex.Execute(response)If matches.Count > 0 Thenresponse = matches(0).SubMatches(0)response = Replace(response, "\n", vbCrLf)response = Replace(response, "*", "")response = Replace(response, "#", "")' ========================================'【将处理结果写入 Excel】' ========================================' 将结果写入当前单元格右侧的单元格（Offset(0,1)）Set destCell = srcCell.Offset(0, 1)destCell.Value = responseElseMsgBox "Failed to parse API response.", vbExclamationEnd If
End Sub'==============================================
'【主宏：使用 deepseek-reasoner 处理 Excel 中的文本】
'==============================================
Sub DeepSeekReasoner_Excel()Dim api_key As StringDim inputText As StringDim response As StringDim regex As ObjectDim matches As ObjectDim srcCell As RangeDim destCell As Range' 请将下面的文字替换为您的真实 API Keyapi_key = "在此处替换为您的 API Key"If api_key = "" ThenMsgBox "Please enter the API key.", vbCriticalExit SubEnd If' 获取当前活动单元格Set srcCell = ActiveCellIf srcCell.Value = "" ThenMsgBox "当前单元格为空，请选择包含文本的单元格。", vbExclamationExit SubEnd IfinputText = srcCell.ValueinputText = Replace(inputText, "\", "\\")inputText = Replace(inputText, vbCrLf, " ")inputText = Replace(inputText, vbCr, " ")inputText = Replace(inputText, vbLf, " ")inputText = Replace(inputText, Chr(34), "\""")inputText = Replace(inputText, Chr(39), "\'")' 调用 deepseek-reasoner 模型response = CallDeepSeekReasonerAPI(api_key, inputText)If Left(response, 5) = "Error" ThenMsgBox response, vbCriticalExit SubEnd If' 使用正则表达式提取 JSON 中 "content" 字段Set regex = CreateObject("VBScript.RegExp")With regex.Global = True.MultiLine = True.IgnoreCase = False.Pattern = """content"":""(.*?)"""End WithSet matches = regex.Execute(response)If matches.Count > 0 Thenresponse = matches(0).SubMatches(0)response = Replace(response, "\n", vbCrLf)response = Replace(response, "*", "")response = Replace(response, "#", "")' 将结果写入当前单元格右侧（或自行指定其他位置）Set destCell = srcCell.Offset(0, 1)destCell.Value = responseElseMsgBox "Failed to parse API response.", vbExclamationEnd If
End Sub

3.3 保存 VBA 代码

• 在 VBA 编辑器中点击【文件】>【保存】，或者直接关闭 VBA 编辑器即可。

---

四、将宏添加到 Excel 功能区（自定义按钮）

为了方便以后使用，可以将编写好的宏添加到 Excel 工具栏中：

1. 打开 Excel 选项
   点击【文件】>【选项】，在“Excel 选项”中选择【自定义功能区】。
2. 新增自定义选项卡或分组
   • 在右侧列表中点击“新建选项卡”，将其重命名为 “DeepSeek 助手”；
   • 在该选项卡下新增一个分组，如 “DeepSeek 工具”。
3. 添加宏命令
   • 在左侧“从下列位置选择命令”中，选择“宏”，找到 DeepSeekChat_Excel 和（或） DeepSeekReasoner_Excel；
   • 将所需宏拖拽到新建的分组中，并可修改按钮名称和图标。
4. 点击确定，完成自定义设置后，在功能区中即可看到新添加的按钮。

---

五、使用说明与测试

5.1 准备测试数据

1. 在 Excel 工作表中，在某个单元格中输入待处理文本（例如“请优化下面这段描述…”）。
2. 选中该单元格后，当前激活单元格即为输入文本所在的单元格。

5.2 运行宏

• 方法一：点击功能区中新添加的按钮（例如“DeepSeek 助手”中的 “Chat调用”按钮）。
• 方法二：按 Alt+F8 打开宏列表，选择 DeepSeekChat_Excel 或 DeepSeekReasoner_Excel，点击“运行”。

5.3 查看结果

• 运行后，程序会将 API 返回的处理结果写入当前激活单元格右侧的单元格中。
• 若返回错误，则会弹出错误信息提示，可根据提示检查 API 密钥、网络连接或选中内容。

---

六、进阶与扩展建议

1. 多模型调用：
   根据需要，可以增加更多模型调用函数，实现多种文本处理功能（如翻译、续写等）。
2. 优化 JSON 解析：
   对于复杂的返回数据，建议引入专用的 VBA JSON 库（如 VBA-JSON），以提高解析鲁棒性和灵活性。
3. 日志记录与错误重试：
   为方便调试和维护，可以增加日志记录功能，将错误信息写入文件或在 Excel 中记录，以便后续查看。
4. 用户界面扩展：
   利用 Excel 的表单功能（UserForm）设计图形界面，实现 API Key 配置、模型选择等功能，提升用户体验。

---

总结

通过以上步骤，您已成功实现将 DeepSeek 接入到 Excel 中的完整流程：

1. 前期准备： 注册 DeepSeek 并获取 API 密钥。
2. 环境配置： 启用 Excel 的开发工具和宏。
3. VBA 代码编写： 编写并调试调用 DeepSeek API 的代码，将返回内容插入到工作表中。
4. 功能区集成： 将宏添加到自定义功能区，方便直接触发。
5. 测试与扩展： 选中待处理文本，运行宏查看结果，并根据反馈调整代码。

这样一来，您就可以利用 DeepSeek 的智能文本处理功能，帮助自动化办公、快速润色与优化 Excel 中的文本内容。