如何把文件夹中多个工作簿中的多个工作表合并到一张工作表中

w学无止境 · 发表于 2013-9-17 16:47

一个文件夹下按01、02、03、04、05、06、07、08、09、10、11、12、13…100的顺序排列有100多个工作簿（按数字顺序是为了便于按号数查找），每个工作簿都有数目不同格式相同的多个工作表（工作表按人员区分），现在想把所有人员的销售明细合并到一张工作表中，合并后的工作表可以方便查看一年中各类产品的销售状况及每个人员的销售状况、税款、已收款等。不知道我有没有说清楚。（注：合并后的工作表要自动更新数据，动态表），谢谢！请教各位高手，不知道能不能实现。

附件.rar (8.44 KB, 下载次数: 285)

zhaogang1960 · 发表于 2013-9-17 17:49

请测试:

Sub Macro1()
Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet
Application.ScreenUpdating = False
Set sh = ActiveSheet
MyPath = ThisWorkbook.Path & ""
MyName = Dir(MyPath & "*.xls")
[a1].CurrentRegion.Offset(2).Clear
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
With GetObject(MyPath & MyName)
For Each sht In .Sheets
If sht.[a1].CurrentRegion.Rows.Count > 2 Then sht.[a1].CurrentRegion.Offset(2).Copy sh.[a65536].End(xlUp).Offset(1)
Next
.Close False
End With
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok"
End Sub

复制代码

zhaogang1960 · 发表于 2013-9-17 17:50

请看附件

附件.rar (14.46 KB, 下载次数: 737)

kszcs · 发表于 2013-9-17 22:32

zhaogang1960 发表于 2013-9-17 17:50
请看附件

zhaogang1960 老师：
能在汇总表的前面自动加入簿名和表名的两列吗？
如果各表的数据起始行变化，修改哪个语句？
谢谢！

zhaogang1960 · 发表于 2013-9-17 23:09

kszcs 发表于 2013-9-17 22:32
zhaogang1960 老师：
能在汇总表的前面自动加入簿名和表名的两列吗？
如果各表的数据起始行变化，修改哪 ...

Sub Macro1()
Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet
Application.ScreenUpdating = False
Set sh = ActiveSheet
MyPath = ThisWorkbook.Path & ""
MyName = Dir(MyPath & "*.xls")
[a1].CurrentRegion.Offset(2).Clear
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
With GetObject(MyPath & MyName)
For Each sht In .Sheets
If sht.[a1].CurrentRegion.Rows.Count > 2 Then
lr = sh.[a1].CurrentRegion.Rows.Count + 1
r = sht.[a1].CurrentRegion.Rows.Count - 2
sh.Cells(lr, 1).Resize(r) = MyName
sh.Cells(lr, 2).Resize(r) = sht.Name
sht.[a1].CurrentRegion.Offset(2).Copy sh.Cells(lr, 3)
End If
Next
.Close False
End With
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok"
End Sub

复制代码

zhaogang1960 · 发表于 2013-9-17 23:10

请看附件

把文件夹中多个工作簿中的多个工作表合并到一张工作表中.rar (26.23 KB, 下载次数: 894)

w学无止境 · 发表于 2013-9-18 09:13

谢谢，先学习一下，不懂的再请教zhaogang1960 老师。

w学无止境 · 发表于 2013-9-18 09:58

zhaogang1960 老师你好，
能把汇总表中自动加入的簿名和表名放在“备注”的后面吗，
如果每个工作簿都设有密码，能不能在汇总表中加入自动识别密码，
汇总表能不能指定汇总某个表名的工作表（比如01号工作簿中表名分2012小孙，2013小孙，2014小孙，02号中2012A公司，2013A公司，现在我只想把所有的表名带2013的合并，所有工作簿中都是这种格式），
我VBA懂得不多，麻烦老师再帮我修改一下，谢谢！

490483577 · 发表于 2013-9-18 10:06

建议你去数据透视表版块用SQL实现

zhaogang1960 · 发表于 2013-9-18 11:06

w学无止境发表于 2013-9-18 09:58
zhaogang1960 老师你好，
能把汇总表中自动加入的簿名和表名放在“备注”的后面吗，
如果每个工作簿都设有 ...

说了这么多，不是很理解，请模拟效果说明
如果每个工作簿都设有密码，一定要一致，使用Open方法，在已知密码的情况下是可以打开工作簿的

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

[已解决] 如何把文件夹中多个工作簿中的多个工作表合并到一张工作表中

评分

评分

评分