ExcelVBA-批量打开文件夹中的所有文件,并查找指定姓名再复制整行数到汇总表
【问题】今天碰到一个问题,要社保系统中导出的在许多文件中查找到某个姓名的并复制数据到汇总表,
难点一:如果有许多文件,常规的做法是打开一个文件===查找===复制===粘贴===关闭,再来一次,
难点二:要命的社保系统,数据中有很多合并的单元格,查找的时候速度很慢,也很难复制
难点三:这样的问题以后可能还常常有。
【想一想】
天啊要做到什么时候,如果以后也有同样的事,我是不是也一样这样做呢!,想想都怕怕啊,能不能一键完成,我再整合成一个函数,以后也相应的问题也会快一点呢!这样岂不是一件一劳永逸的事吗?
【解决方法】动手吧,请出ExcelVBA.
====代码图片版本如下====
====效果如下动图===
代码解析:
Alt F11,新建一个模板,把它放在里面,按play就可以啦
先打开文件对话框,选择要找的文件夹,全选所有的文件 ,文件名与路径存入到数据中,再循环数组,打开文件,在工作表“编辑”(这个工作表要先设定)中用find查找数据,如果找到了就进行整行复制,到汇总表中。完成。
====今天就学习到此====