合并不同文件夹下相同名称的工作簿内的工作表到同一工作表

renne_yo · 发表于 2017-2-23 11:55

乐乐2006201505 发表于 2017-2-23 10:07
第一个问题，是完成汇总时间，你可以去掉，也可以作为代码速度的测试；
第二个问题，我试了一下，模糊匹 ...

嗯，代码确实很不错。我提到的局限性问题主要是指运用性。若遇到同类问题，比如在不同文件夹有名为“XXX超速数据”的工作簿，也要将这些表格合并。若用这个代码，需对程序大量变动，改变程序中文件名，可能不一定能成功。理想的VBA使用效果是不只针对这个文件，而是能够解决同类问题的程序。总之试验效果不错，我已经很满足了。如能解决文件名不统一的问题，那就更好了。

乐乐2006201505 · 发表于 2017-2-23 12:14

要汇总其他名称工作簿的数据，在汇总表中再添加具体名称工作表，然后修改中间数据即可，不用大量修改，我正准备做可以实现动态化统计工作簿的代码。

乐乐2006201505 · 发表于 2017-2-23 22:36

renne_yo 发表于 2017-2-23 11:55
嗯，代码确实很不错。我提到的局限性问题主要是指运用性。若遇到同类问题，比如在不同文件夹有名为“XXX ...

已解决不能汇总其他名称工作簿的问题（如有新的工作簿出现，可以增加父子代码中相同部分的代码，修改比较容易），统一文件名的问题也得到了解决（比如德州市……和德州……的问题）。
现在是我能想到的最佳解决方法了。毕竟VBA和其他语言不一样，没那么智能，也没有无限制的通用性。再说呢，人都不一定有多智能呢，呵呵！

jjmysjg · 发表于 2017-2-24 07:18

留下记号，谢谢大侠

renne_yo · 发表于 2017-2-24 09:54

乐乐2006201505 发表于 2017-2-23 22:36
已解决不能汇总其他名称工作簿的问题（如有新的工作簿出现，可以增加父子代码中相同部分的代码，修改比较 ...

首先谢谢你孜孜不倦的参与，我有好好测试你研发的数据。现将测试结果告之，有兴趣可研究。替换增加一个17号文件，得到表格如图所示，多出一个空白表格，对比发现还是文件名不统一的问题，“报警统计报表”与“报警报表”的差别，可参考附件。
QQ截图20170224093535.jpg

测试文件数据.rar (767.77 KB, 下载次数: 14)

乐乐2006201505 · 发表于 2017-2-24 10:10

你把修改文件名代码中原来文件名修改为现在要修改的就可以了，“宁德市超速报警报表”“宁德市超速报警统计报表”，前面一个文件名是要修改的，后边一个文件名是新文件名。其余的一样，这个以我现在的能力再无法更智能了。你自己试试。

renne_yo · 发表于 2017-2-24 10:27

乐乐2006201505 发表于 2017-2-24 10:10
你把修改文件名代码中原来文件名修改为现在要修改的就可以了，“宁德市超速报警报表”“宁德市超速报警统计 ...

好的，试试。

renne_yo · 发表于 2017-2-28 10:27

kldxlb 发表于 2017-2-22 15:10
直接运行宏就可以了

To kldxlb:你的程序我测验多次很是好用，可以灵活运用于其他同类型需求中。原来这程序也具有删除标题行的功能，主要是对第一栏。之前测试的数据开头都是空白行，误以为是产生空白行。总言之就是很好很强大，想给你鲜花可无奈发现不大懂弄，也不知是不是因为新人没有权限赠鲜花。

现有三个问题求教，你若有兴趣可看看，强化程序更实用，研究素材见附件。

材料.rar (22.03 KB, 下载次数: 9)

1.试验好几次，发现这程序主要是合并sheet1表格。若表格有sheet2，sheet3……许多个工作表。问是否可实现同名工作簿下各个单独表格合并，sheet1合并sheet1，sheet2合并sheet2，sheet3合并sheet3等等，如何实现各个同名工作簿下各个同名工作表单独合并。

2.是否可实现同名工作簿下所有工作表合并，即所有sheet1，sheet2，sheet3……合并。

3.合并不同文件夹内的工作簿。工作簿名不同但有相同部分，例如“A报表”，“B报表，“C车档文件”，“D车档文件”，现要求将同部分名工作簿合并，即A和B合并，C和D合并，这又该如何修改程序，以实现工作簿内所有sheet1的合并，所有sheet2合并，所有sheet3合并。

kldxlb · 发表于 2017-2-28 16:18

renne_yo 发表于 2017-2-28 10:27
To kldxlb:你的程序我测验多次很是好用，可以灵活运用于其他同类型需求中。原来这程序也具有删除标题行的 ...

你这个想法是可以实现的，但有个问题。例如“A车报表”，“B车报表，“C车档文件”，“D车档文件”，这四个文件都含有“车”字，算不算一类呢？VBA不可能像人脑一样明白什么样的算一类，必须由你实现指定什么样的算一类。比如，你可以先指定所有含有“车报表”的算一类，所有含有“车档文件”的算一类，然后再交给VBA去运行
另外，不会送花发个红包我也不介意-_-

kldxlb · 发表于 2017-2-28 18:09

renne_yo 发表于 2017-2-28 10:27
To kldxlb:你的程序我测验多次很是好用，可以灵活运用于其他同类型需求中。原来这程序也具有删除标题行的 ...

还有一个问题，你想挨着每个Sheet都进行汇总，那起码每个工作簿Sheet数目得相同吧？文件1中的测试数据.xls有3个Sheet,而到了文件2中的测试数据就成了2个Sheet了这个你想怎么处理？

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

[求助] 合并不同文件夹下相同名称的工作簿内的工作表到同一工作表