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

0202零贰

0202零贰 发表于 2020-7-1 11:17
大神，你好，我弄了很久代码都无法达到5_多工作簿指定工作表，全部数据汇总的效果。
多个工作簿，但是SHEE ...

大神，你好，我弄了很久代码都无法达到5_多工作簿指定工作表，全部数据汇总的效果。
多个工作簿，但是SHEET123的命名都未必一致的，我要汇总多个工作簿的指定的SHEET1或者SHEET2,SHEET3的数据
sub 合并当前目录下所有工作簿的全部工作表()
dim mypath, myname, awbname
dim wb as workbook, wbn as string
dim g as long
dim num as long
dim box as string
application.screenupdating = false
mypath = activeworkbook.path
myname = dir(mypath & "\" & "*.xls")
awbname = activeworkbook.name
num = 0
do while myname <> ""
if myname <> awbname then
set wb = workbooks.open(mypath & "\" & myname)
num = num + 1
with workbooks(1).activesheet
.cells(.range("a65536").end(xlup).row + 2, 1) = left(myname, len(myname) - 4)
for g = 1 to sheets.count
wb.sheets(1).usedrange.copy .cells(.range("a65536").end(xlup).row + 1, 1)
next
wbn = wbn & chr(13) & wb.name
wb.close false
end with
end if
myname = dir
loop
range("a1").select
application.screenupdating = true
msgbox "共合并了" & num & "个工作薄下的全部工作表。如下：" & chr(13) & wbn, vbinformation, "提示"
end sub

例如以上代码，我运行后，却全部合并了sheet1的内容三次，但是我只要合并以此一次就够了。
请问大神指教和改编代码，谢谢谢谢

sking168

膜拜大神，如果能加上注释 或者加上窗体条件格式就更加完美了

yybwq

实用，好用！感谢楼主无私分享，给我们这些小白以巨大帮助！

cvc2004

mark太强了。留着学习

nuxingxp

好全，好强大。现在需要汇总多个工作簿某个特定类型工作表的数据。

kugiel

大神你好，我用了7这个模板，一直提示错误，不知道应该怎么调试，求指点

exp13579

感谢大佬分享，学习中

opiona

kugiel 发表于 2020-7-6 21:13
大神你好，我用了7这个模板，一直提示错误，不知道应该怎么调试，求指点

分表标题 有换行符号 要去掉!

踏破拖鞋

太强大了  自动拆分工作表为工作簿  可否设置为人为筛选的列来进行拆分，这样就更灵活些。

celexcel2017

占个位置，后续使用