|
前言 我觉得不需要啥开场白了，大家直接看演示视频先。  你们觉得以后这样和Excel打交道怎么样， 没人能拒绝一个自己会做表格的的Excel吧？ 想不想自己也做一个？ 视频说明与原理讲解 好，正文开始。 首先要对刚才的视频声明几点： 1、演示效果是实效，但是运行速度加快了2倍。 2、我接入的是第3方的DeepSeek毕竟官方最近太卡了。 3、实际运行的时候，有一定几率报错（大约10%），调整一下命令就有机会跑通。 我讲解一下这个功能的实现原理：  如果你有一点编程基础或者虽然没有基础但是有兴趣学习，接着往下看。 如果你只想拿个现成的模板，建议跳到下一节。 第1步，使用VBA的 inputbox 就行 第2步和第3步，其实我在最近的文章里已经反复介绍过了，欢迎复习：
这一步不浪费篇幅赘述了，反正我后面会把代码分享给你们。 第4步，需要从API返回内容中提取到具体的VBA代码，还要优化成可执行的文本。 第5步，需要操控当前工作簿的VBA工程，创建模块填入代码并且运行 核心代码如下： Function RunDynamicCode(incodeStr As String) As Boolean On Error GoTo ErrorHandler Dim CodeStr As String CodeStr = Replace(incodeStr, '\n', vbCrLf) CodeStr = Replace(CodeStr, '`', '’') ' 从代码字符串中提取过程名 Dim procName As String procName = ExtractProcedureName(CodeStr) If procName = '' Then MsgBox '无法从代码字符串中提取过程名！', vbCritical Exit Function End If ' 获取当前工作簿的 VBProject Dim vbProj As VBProject Set vbProj = Application.VBE.ActiveVBProject ' 创建一个新的标准模块 Dim vbComp As VBComponent Set vbComp = vbProj.VBComponents.Add(vbext_ct_StdModule) ' 将代码字符串添加到模块中 vbComp.CodeModule.AddFromString CodeStr ' 运行动态添加的子过程 Application.Run procName ' 删除动态创建的模块 vbProj.VBComponents.Remove vbComp RunDynamicCode = True Exit FunctionErrorHandler: MsgBox 'Error: ' & Err.Description, vbCritical ' 确保模块被删除 If Not vbComp Is Nothing Then vbProj.VBComponents.Remove vbComp End If RunDynamicCode = FalseEnd Function最后，自定义功能区，添加一个按钮并指定我们的主程序 AuTotask ,就可以运行了。这一步也可以参阅之前的文章。 额外提示： 1、本程序需要在VBA工程里面引用这些库。  2、需要在【Excel选项】→【信任中心设置】→【宏设置】里面，勾选“信任对VBA工程对象模型的访问”。  3、目前各大云平台如火山引擎、腾讯云、百度千帆、硅基流动都提供DeepSeek的API，大家按需选用。如果你要问我用的是哪家的？我的答案是，我全都有！事实上，如果接入Kimi\豆包\ChatGPT都行。 技术细节就聊这么多。 写给看不懂上面内容的小伙伴 自从2年前ChatGPT问世后，我讲过很多AI相关的课程，也写过图书。 但是因为大部分人不能很方便的用上ChatGPT，而国内的友商产品不是那么给力，所以没有上过我课程的很多人对AI的能力是质疑的。 我很高兴今天有DeepSeek这样的中国人自己做的AI能到达全球领先水平，也很高兴中国用户也开始认真学习和使用AI了。 尽管今天的DeepSeek有点卡，但肯定是暂时的。 你可能听过一句话“淘汰你的不是AI，而是用AI的人”。 但你有没有想过，用AI的人也是分成很多种的？ 第1种，是只会把AI当搜索引擎来用的人，只会简单的提问-获答，只能用到AI的5%的功能。他们往往因为不会提问，导致AI的回答效果不好。 第2种，是熟悉各个场景下各种AI的常用功能，把多个AI组合起来用的人。 能到这一步已经超越身边90%的人，比如你用好WPS AI, 用好Copilot，这种集成在办公软件里面的AI，开箱即用。 但显然也是有局限性的，比如这么强大的DeepSeek，那个对话窗口能提供什么功能，你就只能用什么功能。最多只能在提示词上面动动脑筋。 那我为啥这几天反复在讲如何把DeepSeek嵌入到Office/WPS呢？ 有些人觉得这样的操作毫无必要，甚至可笑，还有骂我瞎折腾的。 现在我告诉你，还有第3种用AI的人，他们可以借助智能体、借助编程，直接访问市面上这些AI，获取AI 100%的能力，用到任何场景。 举个简单的例子，你上传一个文档给DeepSeek，请他总结归纳，这活儿用DeepSeek的网页端就能做对不。如果你有100个1000个文档呢？ 这时候，哪怕你只会简单的代码，JS/VBA/Python，对你来说就毫无难度。 ExcelHome分享了26年的技巧和经验，我们一直在做的事情，就是希望大家知道成长的路径，能够每天进步一点点。 在这个需要终生学习的年代，多抬头看看路，早日拥抱新技术，是每个人都需要坚持的事情。 这就是为啥我不厌其烦的各种介绍通过API接入DeepSeek到Office的原因，我希望大家都能超越自己的身边人。 我不知道写几篇简单的文章又省力又阅读量高吗？比如在DeepSeek网页里提问，得到一篇文章/一个公式/一段代码，再回到Office操作。 但你学了以后，顶多成为我刚才说的第1种人。 亲爱的小伙伴们，你想成为第几种用AI的人呢？ 请在手机微信登录投票 亲爱的小伙伴们，你想成为第几种用AI的人呢？ 单选 第1种，只会简单问答 第2种，熟练掌握多种AI工具的组合用法 第3种，用代码操控AI，随心所欲完成任务 |
|
|
