网站大量收购独家精品文档,联系QQ:2885784924

DeepSeek关联Excel使用教程.doc

  1. 1、本文档共8页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多

DeepSeek关联Excel使用教程

在数字化办公的浪潮中,将先进的人工智能技术与常用办公软件相结合,能为我们的工作效率带来质的飞跃。DeepSeek作为一款强大的人工智能模型,与Excel这一办公必备工具的关联,为数据处理、分析和可视化等工作开辟了全新的路径。本文将详细介绍DeepSeek关联Excel的多种方法、常见应用场景、高级应用技巧、实际操作注意事项以及常见问题的解决方法,帮助你充分挖掘二者结合的潜力。

一、关联方法

插件接入法

申请APIKey:首先,访问DeepSeek官网,点击“申请APIKey”。按照系统提示完成注册并登录DeepSeek账号,经过实名认证后,即可成功获取APIKey。这一密钥是你连接DeepSeek服务的关键凭证,务必妥善保管。

配置Excel:前往OfficeAI助手插件官网,下载对应的安装包。完成安装后,打开Excel软件,你会惊喜地发现菜单栏中新增了“OfficeAI助手”选项卡,这便是我们连接DeepSeek与Excel的桥梁。

设置DeepSeekAPI:点击“OfficeAI助手”,再选择“设置”中的“大模型设置”。开启“本地部署”,选择“APIKEY”,在大模型选项中选择“DeepSeek”,并将API地址填写为。接着,输入之前获取的APIKey,点击“刷新模型列表”,从列表中选择“DeepSeek-R1”或“V3”模型,完成关键的设置步骤。

使用DeepSeek:当你在Excel文档中选中需要处理的内容后,点击“OfficeAI助手”中的“调用DeepSeek”,便能立即享受AI带来的便捷服务,包括对话、写作、排版、绘画、校对、翻译、数据分析以及公式执行等丰富功能。

VBA代码接入法

获取API:打开DeepSeek官网,点击右上角的“API开放平台”。在页面右侧找到【APIkeys】,点击进入后设置一个便于识别的名字,然后复制生成的API。这是后续代码中连接DeepSeekAPI的关键信息。

打开VBA编辑窗口:打开Excel,同时按下快捷键ALT+F11,即可快速调出VBA的编辑窗口。这个窗口是我们编写代码实现功能的核心区域。

插入模块并粘贴代码:在VBA编辑窗口的左侧空白区域,右键点击并选择【插入】-【模块】。将以下代码粘贴到新模块中,并将【你的API】替换为刚才获取的真实API地址。

SubCallDeepSeekAPI()

DimquestionAsString

DimresponseAsString

DimurlAsString

DimapiKeyAsString

DimhttpAsObject

DimcontentAsString

DimstartPosAsLong

DimendPosAsLong

获取A1单元格中的问题

question=ThisWorkbook.Sheets(1).Range(A1).Value

设置API的URL和API密钥

url=/v1/chat/completions替换为实际的APIURL

apiKey=你的API替换为你的API密钥

创建HTTP请求对象

Sethttp=CreateObject(MSXML2.XMLHTTP)

设置请求头

http.OpenPOST,url,False

http.setRequestHeaderContent-Type,application/json

http.setRequestHeaderAuthorization,BearerapiKey

设置请求体

DimrequestBodyAsString

requestBody={model:deepseek-chat,messages:[{role:user,content:question}]}

发送请求

http.sendrequestBody

获取响应

Ifhttp.Status=200Then

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

如果请求失败,显示错误信息

ThisWor

您可能关注的文档

文档评论(0)

138****4839 + 关注
实名认证
内容提供者

国际焊接工程师(IWE),焊接质检师(CWI),美国焊接学会会员。

1亿VIP精品文档

相关文档