合并所有文件夹中的EXCEL文件

zhaogang1960 · 发表于 2014-11-25 19:48

也可以在程序中设置文本格式：

Cells.ClearContents
Columns("A:A").NumberFormatLocal = "@"
brr(0, -2) = "文件夹名"
brr(0, -1) = "工作簿名"
brr(0, 0) = "表名"
If m Then [a1].Resize(m + 1, n + 3) = brr
Set Folder = Nothing
Set Fso = Nothing
Application.ScreenUpdating = True
End Sub

复制代码

cqcbc · 发表于 2014-11-25 21:32

本帖最后由 cqcbc 于 2014-11-25 21:33 编辑

zhaogang1960 发表于 2014-11-25 18:39
请测试附件

超版好，遇上附件中的不规则表格（附件中的目录3为加上的），合并时有点问题，合并.xlsm表格中加了背景色的部分，不能提取出来。
请超版解决一下。

data.rar (48.7 KB, 下载次数: 11)

zhaogang1960 · 发表于 2014-11-25 21:38

cqcbc 发表于 2014-11-25 21:32
超版好，遇上附件中的不规则表格（附件中的目录3为加上的），合并时有点问题，合并.xlsm表格中加了背景 ...

不规则数据我也无能为力，抱歉

张雄友 · 发表于 2014-11-25 21:52

cqcbc 发表于 2014-11-25 21:32
超版好，遇上附件中的不规则表格（附件中的目录3为加上的），合并时有点问题，合并.xlsm表格中加了背景 ...

想法是很好的，但是标题不在同一行的，这个世界上应该没有人能够做到。

jjmysjg · 发表于 2014-11-27 10:48

zhaogang1960 发表于 2014-11-25 18:39
请测试附件

谢谢版主！

张雄友 · 发表于 2014-11-30 06:51

zhaogang1960 发表于 2014-11-25 18:50
下面附件中有一个文件是xls类型

《数据源1》，《数据源2》中的文件夹中的工作簿没有合并到的？

cqcbc · 发表于 2014-11-30 07:57

本帖最后由 cqcbc 于 2014-11-30 23:16 编辑

zhaogang1960 发表于 2014-11-25 18:38

赵版主好，还有一请求：因实际表格多包含标题、制表单位等两行，第一列增加了序号，导致不能直接使用该Vba。自己琢磨不透，特请求修改一下，让它适用于更多的表格。附件中我已模拟效果了。

data.rar (43.35 KB, 下载次数: 5)

sunny_8848 · 发表于 2014-11-30 09:06

先标记下留存备用，多谢分享

cqcbc · 发表于 2014-11-30 23:25

请求大家帮忙修改一下17楼的vba代码，让它能正常运行，原代码只适合标题在第一行的。

红红-201320806 · 发表于 2014-12-1 20:05

你是需要将工作表移动到另一个EXCEL中吗？如果只是移动工作表可以用以下的步骤：
1、同时打开EXCEL A （源文件）和EXCEL B （目标文件）
2、选择EXCEL A，右键点击工作表sheet 1，选择“移动或者复制工作表”，在弹出的对话框界面上的工作簿栏选择EXCEL B，然后选择位置，再然后建立副本打勾，点击确定即可。

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

[求助] 合并所有文件夹中的EXCEL文件

评分