10分钟搞定ExcelVBA批量生成word报告！

大家好，我是爱分享的永恒君！

大家应该有这个感觉，有了GPT等AI工具，在Excel中使用公式、函数就真的太简单了，完全没有一点压力。

甚至是用VBA代码实现更高级的功能，也可以说几乎就是没有任何门槛，可以快速的实现想要的结果。

之前永恒君分享过 Excel VBA 实例（28） – 批量生成word报告，

今天就来分享一下用AI工具辅助快速完成这个需求，使用的是前段时间刚刚发布的Claude2。

问题描述

Excel VBA 实例（28）的需求大概是这样的，有一个Excel表里面的内容，类似下面这样：

准备一个word模板，将上面Excel表的字段对应批量替换word模板对应的内容，进而生成多个word文件。

每个word文件内容都是类似的，只有部分内容是不一样。

这个需求在很多行业都会存在，比如给学生制作成绩单、给客户发送报告单、给住户发水电催收单、制作判决书、裁定书等等。

为了更清晰的说明问题，这里只演示替换“客户”和“收益金额”两个字段。

Claude2

我按照“描述需求+举例”的方式，用大白话把上面的需求描述了一遍：

现在excel的sheet1里面，A列字段为客户，D列字段为收益金额。我希望将A列、D列的内容分别替换a.docx文档中，<客户>、<收益金额>内容，其他的内容和格式不变。每一行替换一次，生成一个word，以A列的内容为文件名保存为新的word文件。例如，A2为张三，D2为100，将<客户>替换为张三、<收益金额>替换为100然后将文件保存为张三.docx。请给我一段VBA的代码（可以直接在excel的sheet1里面使用），可以实现上面的功能。

很快Claude2就给了我VBA代码。

复制进VBA编辑器里面，运行发现报错了，第一次测试失败。

紧接着把报错的内容告诉Claude，它立刻给出了解决方案。

按照提示又进行了一次操作，这次没有报错，但是没有word文件生成。再一次问claude。

这次给出了一些排查的方法，和零星的代码。我也懒得去核对怎么修改了，直接让他给修改后的完整代码。

粘贴这个代码测试，Bingo，搞定！

前后大约花了10分钟左右，和GPT互动了三次，搞定了这个看似复杂的需求。

我似乎记得，写 Excel VBA 实例（28） 这个实例的时候，代码花了至少1个小时。

这要是放以前，即使是老手，也不太可能这么快搞定。

好了，今天的文章就到这里了。

我是永恒君，我们下期再见！

• 收藏 | 48个Excel vba实例汇总（附赠VBA教程）

• 收藏 | 实用软件工具汇总

• 爬虫利器Web Scraper系列教程及7个实例

• Windows实用效率工具分享！

• 分享一些有趣实用的在线工具！

• 文字转语音，就用它了！

• 截图并识别文字，两款小巧工具太好用了~~~

• 分享两个不错的效率工具~~

• 13K大小的语音转文字神器，真香！

• Adobe 智能绘画工具，好用！

写在最后

欢迎加入 永恒君交流群，目前群里都在讨论整理更多ChatGPT玩法，教你如何更好的调教使用ChatGPT，提升效率，甚至如何使用ChatGPT赚钱等等，欢迎围观~

进群方式：公众号后台回复888，按提示操作即可进群。