这篇博客介绍了如何使用VBA编写一个工具，实现一键合并Excel工作簿中的多个Sheet，并动态命名新生成的汇总文件。内容包括使用Now()方法动态命名，Replace()方法处理非法字符，Workbooks.Add创建新Excel存放数据，以及For...Each循环遍历并复制每个Sheet。提供了详细的步骤和源代码。
本次我们要写一个一键合并多个sheet的VBA小工具。展示的时候都是图片展示，文章最后面有源代码可以复制。大家可以复制尝试。
这其中涉及到的Range和相对路径的知识点，大家可以前往其他文章查看。
(1)Range的用法 第一天
(2)VBA中的相对路径第二天
本章我们会整理一些比较细碎的知识点。
并且完成我们的第一个小功能！合并多个sheet！
使用Now()方法为合并后的EXCEL文件命名
因为考虑到源数据变化，我们需要不断的点击合并。因此这里需要有一个动态的命名方法。如果将命名写成固定的名称，在重复导出的时候会出错。
首先Now()函数返回当前的日期+星期+时间，返回的是Date类型的，所以我们需要使用CDate()函数将Now()的返回值转化为字符串。
这边我们发现输出的字符串有空格，也有冒号【：】字符，正常的文件名，不允许这样的字符出现。因此我们需要对字符串进行替换处理。
使用Replace()方法替换命名中不合法的字符
Replace(
最低0.47元/天 解锁文章
2154
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
