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

方漠 · 发表于 2006-10-20 03:23:00

本加载宏部分代码参考自下贴,特此致谢.
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:“每个工作表的单元格最后一行的第一个单元格不能是空格，否则会造成数据遗失。每个工作表的单元格最后一行的第一个单元格不能是空格，否则会照成数据遗失。”

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

方漠 · 发表于 2006-10-20 03:24:00

[此贴子已经被作者于2006-11-14 17:29:45编辑过]

dxh2006 · 发表于 2006-11-6 05:07:00

老大，我现在急需这样的一个文件，麻烦你给我传一个fangshangp@163.com

方漠 · 发表于 2006-11-6 19:39:00

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

小奔 · 发表于 2006-11-14 23:31:00

谢谢，实用

钝刀71 · 发表于 2007-7-24 02:16:00

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

nsync0120 · 发表于 2007-7-24 18:23:00

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

1111111 · 发表于 2008-4-28 17:25:27

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

闲暇 · 发表于 2009-1-31 22:07:47

太神奇了

闲暇 · 发表于 2009-1-31 22:10:25

好东西

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)

主题相关群

地区相关群[您还没设置居住地]

[VBA编程/宏] [分享]Excel2003 File Merger文件合并器

本帖子中包含更多资源

本帖子中包含更多资源

求Excel2003 File Merger文件合并器

群介绍
主题无相 (随机显示版	同地区群块其他地区)