如何将多个文件夹中多个工作簿集中为一个工作簿

考试加油站 · 发表于 2012-7-28 16:31

我手中有N个文件夹，每个文件夹中有N个工作簿，想将这些所有工作簿一次性集中到一个工作簿中，如何实现。

zhaogang1960 · 发表于 2012-7-28 16:45

http://yyb.excelhome.net/
易用宝——工作簿管理——合并工作簿

考试加油站 · 发表于 2012-7-28 16:51

zhaogang1960 发表于 2012-7-28 16:45
http://yyb.excelhome.net/
易用宝——工作簿管理——合并工作簿

谢谢赵老师，那个好像只能一个一个文件夹进行选择操作，不能做到一次选择多个文件夹中的全部表来操作，不是我想要的那种

zhaogang1960 · 发表于 2012-7-28 17:00

本帖最后由 zhaogang1960 于 2012-7-28 17:01 编辑

选中“包含子文件夹”选项——即可把指定文件夹中的所有工作簿全部合并过来
该模块就是我写的，比回帖中写的考虑的因素不知要仔细多少倍

考试加油站 · 发表于 2012-7-28 17:28

谢谢赵老师，成功了，您的这个工具还有什么特别亮点吗，好像多数都是论坛上VBA常见功能

考试加油站 · 发表于 2012-8-22 09:27

zhaogang1960 发表于 2012-7-28 17:00
选中“包含子文件夹”选项——即可把指定文件夹中的所有工作簿全部合并过来
该模块就是我写的，比回帖中写 ...

赵老师：你好。你的这个合并工作表是复制到N个工作表中的，可以将N个工作表复制到一个SHEET中吗。就是类似于这个代码

Sub 工作簿汇总()
For Each st In Worksheets
If st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
Next
End Sub

zhaogang1960 · 发表于 2012-8-22 11:20

考试加油站发表于 2012-8-22 09:27
赵老师：你好。你的这个合并工作表是复制到N个工作表中的，可以将N个工作表复制到一个SHEET中吗。就是类似 ...

此功能比较简单，目前还没有

莫悠悠 · 发表于 2012-8-22 11:35

易用宝——工作簿管理——合并工作簿

考试加油站 · 发表于 2012-8-22 12:50

莫悠悠发表于 2012-8-22 11:35
易用宝——工作簿管理——合并工作簿

赵老师都说没这功能了，谢谢

莫悠悠 · 发表于 2012-8-22 16:53

本帖最后由莫悠悠于 2012-8-22 16:54 编辑

zhaogang1960 大哥你好，帮忙看看我这个文件里面是否隐藏有什么高级代码？
因为总是会提示“找不到Marco1!$A$2”
我们老板写的，文件一到我手上所有代码就看不到了，感觉很奇怪

		自动登录	找回密码
密码			免费注册

[求助] 如何将多个文件夹中多个工作簿集中为一个工作簿

点评