佬，excel接入deepseek是真的能提效，不信你看看

目标

使用deepseeek整理优化Excel数据，详见如下2张图片

本文相关资源存放在：
链接: https://pan.baidu.com/s/1kDf5U1NMsGRN6oa97euWAg?pwd=qkmf
提取码: qkmf

关键步骤

1. 获取大模型apikey
2. 配置excel环境
3. 理解需求，并通过聊天的方式获取deepseek的回答
4. 编写vba接入api
5. 初步实现上述需求
6. 优化上一步的实现

获取apikey

详见文章 https://blog.csdn.net/ron03129596/article/details/145491745

通过聊天问deepseek

deepseek虽然能回答，但是有一些行数显示限制，简单的题目我们直接这样扔给它即可，但是如果行数较多，它回复的内容会有丢失或页面显示不全分页等，那就还需要接着往下看

excel环境配置

1. 准备好JsonConverter.bas
2. 按alt+f11打开vba编辑器
3. 
   

到这里环境准备好了，可以开始运行下一段代码了

跑通第一个api

   Sub CallDeepSeekAPI()
       Dim api_url As String, api_key As String
       Dim question As String, response As String
       Dim httpReq As Object
       
       ' 配置API参数
       api_url = "https://api.siliconflow.cn/v1/chat/completions"  ' 替换为实际API地址
       api_key = "sk-xxxxx"             ' 注意这里替换为你的API密钥
       question = Range("A1").Value          ' 从单元格A1读取问题
       
       ' 创建HTTP请求对象
       Set httpReq = CreateObject("MSXML2.ServerXMLHTTP")
       httpReq.Open "POST", api_url, False
       httpReq.setRequestHeader "Content-Type", "application/json"
       ht