| 楼主 omnw |
 合并工作表.rar |
| 2楼 bishunbiao |
很实用，先收下啦。谢谢楼主 |
| 3楼 苏云朵朵 |
彻底晕了 俺文盲 |
| 4楼 苏云朵朵 |
“f_name = Dir(ThisWorkbook.Path & "\*.*") '获得该目录下的所有EXCEL文件”这个老是提醒俺调试 晕了 |
| 5楼 omnw |
最好上传附件，以便测试。 |
| 6楼 四季歌 |
这个绝对实用，学习了 |
| 7楼 静Tiffany |
每个表都一定要格式相同吗? |
| 8楼 omnw |
不一定所有的表格都要有相同的格式，不过可能用在合并相同格式报表的时候比较多一些。 |
| 9楼 servis |
这里最好是能修改一下不仅仅是要合并每个工作簿中的第一个工作表 改成所有的比较好吧 |
| 10楼 omnw |
抛砖引玉而已，可以根据自己的需要完善代码。 |
| 11楼 dongjinganji |
Set bok1 = Workbooks.Open(ThisWorkbook.Path & "\" & f_name) '打开被合并的文件 运行错误1004 docx文件格式无效 这是什么情况呀？我用的是版主的附件 |
| 12楼 鸿恒之心 |
谢谢分享！ |
| 13楼 猴子 |
请版主解释一下代码便于我们学习 |
| 14楼 omnw |
请使用2010版的Excel。 |
| 15楼 omnw |
每句代码后都有注释，还有哪里不清楚？ |
| 16楼 Purple_Zoe |
试用起来好方便呀！ |
| 17楼 yncxxmj |
实用的技巧，谢谢楼主。 |
| 18楼 我是哇仔jjh |
想楼主提个问题 ，从测试文件来看，可以合并的文件数受到新建工作薄里sheet的数量。超过4个文件就搞不定了，怎么解决啊 |
| 19楼 gshshzr |
先收藏一下 |
| 20楼 mnvivicat |
2010版的，为何打开不了代码那个文件呀？ |
| 21楼 mnvivicat |
你这是合并的代码，反之，有拆分的代码吗？感谢 |
| 22楼 yirenxiangtao |
好东西 |
| 23楼 玉虚圣侠 |
很有用！ |
| 24楼 小1 |
学习 |
| 25楼 幻影彼方 |
相当有用！  |
| 26楼 hg1971 |
谢谢 |
| 27楼 3a3a3a848 |
very gooooooooood |
| 28楼 pkpkyb |
用得到 |
| 29楼 isabella9897 |
excel2013插入代码并运行，可是没反应呢？ |