Office中国论坛/Access中国论坛

标题: [分享]Excel2003 File Merger文件合并器 [打印本页]

作者: 方漠 时间: 2006-10-20 03:23
标题: [分享]Excel2003 File Merger文件合并器
[attach]21047[/attach]

本加载宏部分代码参考自下贴,特此致谢.
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
[attach]21515[/attach]

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

作者: dxh2006 时间: 2006-11-6 05:07
标题: 求Excel2003 File Merger文件合并器
老大，我现在急需这样的一个文件，麻烦你给我传一个fangshangp@163.com

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

作者: 小奔 时间: 2006-11-14 23:31
谢谢，实用

作者: 钝刀71 时间: 2007-7-24 02:16
谢谢，这个能不能用于多工作表合并？

作者: nsync0120 时间: 2007-7-24 18:23
我应用的时候报错了~~Ash.Range("A" & Lrow) = "# # # # # # # # # # Below data copied from FILE: " & MerWK.Name & " SHEET: " & MSh.Name & " # # # # # # # # # #" 就是这一行

作者: 1111111 时间: 2008-4-28 17:25
谢谢楼主，一直在找寻这个好东西。

作者: 闲暇 时间: 2009-1-31 22:07
太神奇了

作者: 闲暇 时间: 2009-1-31 22:10
好东西

作者: 闲暇 时间: 2009-1-31 22:13
不错

作者: 众叛亲离 时间: 2010-2-25 17:31

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)