工作簿汇总，工作表汇总合并，多文件汇总合并通用代码支持多层子文件夹

fhqlrwgss · 发表于 2020-11-4 23:12

感谢。。。。。。。

ph378 · 发表于 2020-11-6 22:01

学习了

suory234 · 发表于 2020-11-9 10:46

感谢大神无私分享————

marshmaple · 发表于 2020-11-9 12:41

下面的代码如何改成粘帖的时候是粘帖值

Sub 按钮7_Click()
Application.ScreenUpdating = False
Dim wb As Workbook
Set wb = Workbooks.Open(ThisWorkbook.Path & "(已自动还原).xlsx")
wb.Sheets("云数据").Range("A1：L1500").Copy ThisWorkbook.Sheets("S1").Range("A1")
wb.Saved = True
wb.Close
Application.ScreenUpdating = True
MsgBox "已自动更新计划表!"
End Sub

linweisheng · 发表于 2020-11-11 16:46

你好老师，请问多个工作簿里面有多个工作表的固定几个位置单元格数据需要汇总，请问怎么写程序，我是对编程不懂，想学习一下。能否帮忙指导一下。比如附件中《01桩检验批1# - o》工作簿里面的”钻孔桩施工记录”工作表，黄色底纹的三处想要汇总，请问要怎么写程序

因为只能上传2M，所以只发了几个工作簿内容。

opiona · 发表于 2020-11-11 21:28

linweisheng 发表于 2020-11-11 16:46
你好老师，请问多个工作簿里面有多个工作表的固定几个位置单元格数据需要汇总，请问怎么写程序，我是对编程 ...

2_多工作簿指定工作表，指定几个位置的数据汇总
数据在多个工作簿内，每个工作簿有一个相同格式和标题的工作表
需要这个工作表，几个固定位置的数据

linweisheng · 发表于 2020-11-11 23:10

谢谢老师，解决了，太神奇了

linweisheng · 发表于 2020-11-11 23:12

谢谢老师，问题解决了

inryleung · 发表于 2020-11-12 10:25

太好咯，很实用

王洪岩 · 发表于 2020-11-14 22:11

运行失败了,不知道为什么

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

[原创] 工作簿汇总，工作表汇总合并，多文件汇总合并 通用代码 支持多层子文件夹

[原创] 工作簿汇总，工作表汇总合并，多文件汇总合并通用代码支持多层子文件夹