[分享]Excel2003 File Merger文件合并器

方漠

本加载宏部分代码参考自下贴,特此致谢.
http://club.excelhome.net/dispbbs.asp?boardID=2&ID=178644&page=1&px=0

本XLA加载宏的作用有:
1.合并同一文件夹下的不超过100个EXCEL文件的工作表到同一个工作簿.
2.合并同一文件夹下的不超过100个EXCEL文件的数据到同一个工作表.
3.合并到工作表时不会改变原数据的列顺序,如在列D则合并到当前工作表的列D.
4.合并时自动忽略空白工作表.
4.合并到工作表时如数据超过65536行时会弹出警告在哪个文件哪个工作表出错,并自动终止合并,显示已完成和未完成合并的文件明细清单.
5.可以随意添加不同文件夹下的EXCEL文件一起合并.
6.可以随意选择合并的文件,不用事先在资源管理器中去COPYMOVE.
7.修正上贴中合并到工作表时BUG:“每个工作表的单元格最后一行的第一个单元格不能是空格，否则会造成数据遗失。每个工作表的单元格最后一行的第一个单元格不能是空格，否则会照成数据遗失。”

源码开放，欢迎大家拍砖。 ^_^

众叛亲离

太强壮了，解决了我多年来困惑的问题！！！！

闲暇

不错

闲暇

好东西

闲暇

太神奇了

1111111

谢谢楼主，一直在找寻这个好东西。

nsync0120

我应用的时候报错了~~Ash.Range("A" & Lrow) = "# # # # # # # # # #   Below data copied from FILE: " & MerWK.Name & "  SHEET: " & MSh.Name & "   # # # # # # # # # #" 就是这一行

钝刀71

谢谢，这个能不能用于多工作表合并？

小奔

谢谢，实用

方漠

附件在二楼，解压到本地盘后双击打开，在[标准] 工具栏上会添加一个图标，单击即可启用。关掉EXCEL时会自动去除此图标，下次打开时不会再有，除非再重新加载此XLA。