当前位置： 首页 > wzjs >正文

天津网站建设美丽php 企业网站模板

wzjs 2025/9/5 14:26:33
天津网站建设美丽,php 企业网站模板,信息产业部互联网网站管理工作细则,网站建设与管理简介一、前期准备 1.1 获取 DeepSeek API 密钥 注册 DeepSeek 平台 访问 DeepSeek 官方网站（或指定的 API 服务平台，如硅基流动等）。若尚未注册，按照平台指引创建新账号并完成登录。 创建 API 密钥 进入用户控制面板，找到…

一、前期准备

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 中的文本内容。

http://www.dtcms.com/wzjs/597543.html

相关文章：

  • 甘肃兰州做网站株洲网站建设
  • 招聘网站怎么做seo南昌哪家做网站好
  • 搭建一个网站需要什么学做淘宝客网站有哪些
  • 企业网站设计哪家好郑州网站建设学习
  • 临沂网站建设教程939网站建设
  • 滨州北京网站建设备案网站代理商
  • 长春本地网站制作知名网站建设企业多少钱
  • IT男网站建设设计网站需提供什么
  • 小型网站用typescript玉环市建设工程检测中心网站
  • 大连网站建设网站建设app软件开发的费用设计
  • 做网站哪家好 张家口南通网站建设报价
  • 做泵阀到哪个网站好网络维护培训
  • 国内网站做得好的公司四川住建厅官方网站的网址
  • 优质服务的小企业网站建设凯里网站建设公司哪家好
  • 网站开发网络公司兼职wordpress全站网易云音乐播放
  • 中山手机网站开发互联网产品代理项目
  • 广告图片网站嘉兴市建设官方网站
  • 提供免费服务器的网站宝安做网站信科
  • 公司官网网站建设建设工程施工合同条例
  • 易语言怎么做点击按钮打开网站烟台网站建设联系企汇互联专业
  • 阳网站建设google 字体 wordpress
  • python做网站比php网络营销的优势是什么
  • 不懂英文怎么做英文的seo网站网吧手机网站模版
  • 旅游网站建设技术解决方案移动互联网开发考试
  • 网站建设怎么进后台互联网推广策划
  • 湖北省建设厅监督网站知名网站制作全包
  • 网站建设费用推荐网络专业网站开发具体是干什么的
  • 网站赚钱方法wordpress4.9火车头发布模板
  • 网站创建怎么做网站开发教程全集
  • 什么网站做婚礼请柬seo快速排名网站优化