设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

12下一页
返回列表 发新帖
查看: 9332|回复: 11

[VBA编程/宏] [分享]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:“每个工作表的单元格最后一行的第一个单元格不能是空格,否则会造成数据遗失。每个工作表的单元格最后一行的第一个单元格不能是空格,否则会照成数据遗失。”

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





本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
 楼主| 发表于 2006-10-20 03:24:00 | 显示全部楼层



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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
发表于 2006-11-6 05:07:00 | 显示全部楼层

求Excel2003 File Merger文件合并器

老大,我现在急需这样的一个文件,麻烦你给我传一个fangshangp@163.com
 楼主| 发表于 2006-11-6 19:39:00 | 显示全部楼层
附件在二楼,解压到本地盘后双击打开,在[标准] 工具栏上会添加一个图标,单击即可启用。关掉EXCEL时会自动去除此图标,下次打开时不会再有,除非再重新加载此XLA。
发表于 2006-11-14 23:31:00 | 显示全部楼层
谢谢,实用
发表于 2007-7-24 02:16:00 | 显示全部楼层
谢谢,这个能不能用于多工作表合并?
发表于 2007-7-24 18:23:00 | 显示全部楼层
我应用的时候报错了~~Ash.Range("A" & Lrow) = "# # # # # # # # # #   Below data copied from FILE: " & MerWK.Name & "  SHEET: " & MSh.Name & "   # # # # # # # # # #" 就是这一行

发表于 2008-4-28 17:25:27 | 显示全部楼层
谢谢楼主,一直在找寻这个好东西。
发表于 2009-1-31 22:07:47 | 显示全部楼层
太神奇了
发表于 2009-1-31 22:10:25 | 显示全部楼层
好东西
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-3-29 06:41 , Processed in 0.108681 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表