如何合并不同工作簿中的同名工作表

poppy_005

zhaogang1960 发表于 2011-8-25 16:14
短信收到，没有看懂，试试看吧：
Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, d As Object ...

不同工作薄里相同工作表名的合并(3).rar (25.23 KB, 下载次数: 79)

2015-7-14 14:20 上传

点击文件名下载附件

您好！老师，我看不懂VBA，我把你的VBA复制粘贴过来了，但是不能满足我的要求，你能帮我修改一下吗？我的是合并过来的数据，只要一个表头（1-5行为表头）就可以了，表头下面是有序号才需要合并过来，没有序号的不需要合并过来，

kuang_kuang

zhaogang1960 发表于 2011-8-25 16:14
短信收到，没有看懂，试试看吧：
Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, d As Object ...

请问运行这段代码合并文件夹下多个excel文件（文件夹名为book1，book2，book3。。。book14），合并的时候是按什么顺序合并文件的？发现好像不是按文件名book1，book2，book3，。。。，book14的顺序排列合并的。

kuang_kuang

zhaogang1960 发表于 2011-8-25 16:14
短信收到，没有看懂，试试看吧：
Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, d As Object ...

请问运行这段代码合并文件夹下多个excel文件（如，文件夹名为book1，book2，book3。。。book14），合并的时候是按什么顺序合并文件的？发现好像不是按文件名book1，book2，book3，。。。，book14的顺序排列的。

cqcbc

学习一下。

suxuan0720

zhaogang1960 发表于 2011-8-25 19:33
看来你需要合并所有工作簿中共有的工作表，打开工作簿时计算出它们，你需要选择工作表1中组合框中的工 ...

大神，如果我希望‘合并效果’这个工作表与源文件不在同一文件夹，可以自由选择要合并的文件，那代码应该怎么改呢？

twtsa

zhaogang1960 发表于 2011-8-25 16:14
短信收到，没有看懂，试试看吧：
Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, d As Object ...

666谢谢，代码很有帮助

zycaibin

zhaogang1960 发表于 2011-8-25 16:14
短信收到，没有看懂，试试看吧：
Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, d As Object ...

谢谢，这段代码太好了，帮了大忙，虽然没看懂

LMY123

合并同名工作表

l_hl2008

作个记号，学习一下

绝世梦想

zhaogang1960 发表于 2011-8-25 16:14
短信收到，没有看懂，试试看吧：
Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, d As Object ...

老师，代码能进一步改进吗？把合并后的每个工作表再进一步合并成一个表表