求点击下宏按钮，将其他几个表中的数据汇总到一个表

o0star0o

就是在汇总表里面，点击下宏按钮，就读取另外几个表中的数据汇总复制到一起
汇总表样子：

分表样子：

详情见附件，希望有高手能看看怎么实现 数据汇总.zip (47.45 KB, 下载次数: 30)

2018-7-29 02:28 上传

点击文件名下载附件

jjmysjg

合并子文件夹内的工作表

o0star0o

朱荣兴 发表于 2018-7-29 11:53
看得一头雾水，不明所以
比如：每个接单人的*.xlsm文件路径都不一样
那么路径究竟是什么？？？

路径是绝对值，到时候可以修改的，每个接单人的*.xlsm文件路径不一样，这个到时候可以自己改吧

o0star0o

jjmysjg 发表于 2018-7-29 12:40
合并子文件夹内的工作表

不是子文件夹哈，每个文件夹路径都不一样的，你可以弄吗？

不知道为什么

多文件夹遍历多簿汇总。论坛代码巨多。

LMY123

ado指定路径，指定薄名合并或汇总

o0star0o

不知道为什么 发表于 2018-8-2 02:03
多文件夹遍历多簿汇总。论坛代码巨多。

就是不会，求附件加上代码实现

o0star0o

LMY123 发表于 2018-8-2 07:28
ado指定路径，指定薄名合并或汇总

嗯，对的，求下帮忙在附件中加入代码下

qnzxjly

根据你的表结构，设计了如下vba：若还有需求，联系我qq571563425

Sub 数据汇总()
Dim rng As Range, rng1 As Range, rng2 As Range, wb As Workbook
'关闭屏幕更新
Application.ScreenUpdating = False
'打开需要汇总表
Workbooks.Open ThisWorkbook.Path & "\路径\王一的路径\王一客户管理表.xlsm"
Workbooks.Open ThisWorkbook.Path & "\路径\蒋二的文件路径\蒋二客户管理表.xlsm"
Workbooks.Open ThisWorkbook.Path & "\路径\杨三的路径\杨三客户管理表.xlsm"
Workbooks.Open ThisWorkbook.Path & "\路径\赵四四的文件路径\赵四四客户管理表.xlsm"
ThisWorkbook.Activate

'获取C列汇总区域
Set rng = ThisWorkbook.Worksheets("客户").Range([c3], [c3].End(xlDown))

'循环汇总
For Each rng1 In rng
Set rng2 = Workbooks(rng1.Value & "客户管理表.xlsm").Worksheets("客户管理").[e:e].Find(rng1.Offset(0, 3))
rng2.Offset(0, -4).Resize(1, 52).Copy rng1.Offset(0, 50)
Next rng1

'关闭各个数据表
For Each wb In Workbooks
If wb.Name <> "汇总表.xlsm" Then wb.Close 0
Next wb
'恢复屏幕更新
Application.ScreenUpdating = True
'完成提示
MsgBox "汇总完成"
End Sub