合并文件夹里文件到一总表上

jiaqitang

我的文件夹 'D\transportation' 里有一些工作簿，每个工作簿的名字都是地名，里边都有一个叫 ‘statement' 的表，现在我想把每个工作簿里statement这张表都复制粘贴到一个叫summary的新工作簿，每张表都粘贴到summary工作簿的一个新sheet上，sheet的名字就用先前单个工作簿的名字就可。


我现在手动粘贴了一张作为例子，但文件夹里有几十个文件，能不能用VBA自动实现？文件每月更新，下个月想更新SUMMARY表时，如果上个月已经创建了sheet，只需要把旧数据覆盖，如果有新的表，就再加上新的。

liulang0808

https://club.excelhome.net/threa ... tml?_dsign=73cffde5
https://club.excelhome.net/threa ... tml?_dsign=c5f4544f
fso相关资料，可以先参考下

ykcbf1100

附件请参考。。。

捞屎人

这个自己看着改改吧，你这个基本上是一个小项目了，看看坛子里有没有练手的新人或者热心的大牛给你写吧

3190496160

合并工具-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/thread-1639995-1-1.html
这个应该能够解决你的问题

jiaqitang

ykcbf1100 发表于 2023-3-9 10:33
附件请参考。。。

谢谢老师，可以运行，就是有一个问题，当某个单表粘贴上后，如果这个单表数据有更新，重新运行代码，总工作簿里的对应表不会更新，代码好像是说只要主工作簿有某表了，那这个单个表就被忽略

jiaqitang

3190496160 发表于 2023-3-9 11:18
合并工具-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/thread-1639995-1-1.html
...

谢谢，看起来不错，但有个问题

一、合并多薄一表为一薄多表：
1、适合合并一个文件夹内的多个工作簿到一个工作簿内，
2、默认合并文件夹下的每个工作簿的第一个工作表
3、合并后的工作表名称用原工作薄名称命名
4、合并后自动建立目录并自动建立超链接

第3个，合并后的工作表名称用原工作薄名称命名。 如果原工作簿的名称很长，怎么办？sheet 命名有字长限制的。 假如原工作簿名称前 10个字都是无关的，后边的才是名字，怎么只取 10位后的名字？

3190496160

jiaqitang 发表于 2023-3-9 12:02
谢谢，看起来不错，但有个问题

一、合并多薄一表为一薄多表：

任何东西都不是放之四海而皆准的，可以根据自己的实际情况做些调整的呀

太极拍天雄

单纯练习一下！！！

ykcbf1100

jiaqitang 发表于 2023-3-9 11:23
谢谢老师，可以运行，就是有一个问题，当某个单表粘贴上后，如果这个单表数据有更新，重新运行代码，总工 ...

这样改一下就行了。