本次我们要写一个一键合并多个sheet的VBA小工具。展示的时候都是图片展示,文章最后面有源代码可以复制。大家可以复制尝试。
这其中涉及到的Range和相对路径的知识点,大家可以前往其他文章查看。
(1)Range的用法 第一天
(2)VBA中的相对路径第二天
本章我们会整理一些比较细碎的知识点。
并且完成我们的第一个小功能!合并多个sheet!
使用Now()方法为合并后的EXCEL文件命名
因为考虑到源数据变化,我们需要不断的点击合并。因此这里需要有一个动态的命名方法。如果将命名写成固定的名称,在重复导出的时候会出错。
首先Now()函数返回当前的日期+星期+时间,返回的是Date类型的,所以我们需要使用CDate()函数将Now()的返回值转化为字符串。
这边我们发现输出的字符串有空格,也有冒号【:】字符,正常的文件名,不允许这样的字符出现。因此我们需要对字符串进行替换处理。
使用Replace()方法替换命名中不合法的字符
Replace(