用VBA合并多个工作簿的第一个表，并在新合并的汇总表上带上原工作簿名称

驭今

用VBA合并多个工作簿的第一个表，并在新合并的汇总表上带上原工作簿名称。
示例：

在网上找了很多代码，有些不能运行，有些运行了，没有带原合并工作簿名称，求大神写下代码。
测试内容，请看附件

半百

请测试。。。。。

ykcbf1100

附件供参考。。。

驭今

ykcbf1100 发表于 2023-4-24 15:58
附件供参考。。。

大神，非常感谢您百忙之中回复我的求助，回复的非常适合我的要求，非常感谢！我能不能再请您帮忙下，就是这个表格吧，这一套就这么几列，我想挪到其他的地方用用，表格列数多了几列，能不能帮忙弄个通用的？有几列就帮我拷贝几列，我刚用其他的数据测试了下，汇总表只拷贝了前两列

驭今

半百 发表于 2023-4-24 15:49
请测试。。。。。

大神，非常感谢您百忙之中回复我的求助，回复的非常适合我的要求，非常感谢！我能不能再请您帮忙下，就是这个表格吧，这一套就这么几列，我想挪到其他的地方用用，表格列数多了几列，能不能帮忙弄个通用的？有几列就帮我拷贝几列，我刚用其他的数据测试了下，汇总表只拷贝了前两列

半百

驭今 发表于 2023-4-24 16:20
大神，非常感谢您百忙之中回复我的求助，回复的非常适合我的要求，非常感谢！我能不能再请您帮忙下，就是 ...

ykcbf1100

驭今 发表于 2023-4-24 16:20
大神，非常感谢您百忙之中回复我的求助，回复的非常适合我的要求，非常感谢！我能不能再请您帮忙下，就是 ...

如果要做成通用，那文件名调整到A列吧。

驭今

ykcbf1100 发表于 2023-4-24 16:53
如果要做成通用，那文件名调整到A列吧。

亲人，文件名可以调整到A列，这真是个好主意，但是合并后的表，没有表头，而且遇到长串数字时，变成了科学计数法，我调整后，后面尾数就变成0000，不正确，能劳烦您再帮忙调整下么

fanyoulin

我给你做了比较另类的，这是在我自己实际使用的代码基础上稍微修改了下。

比较特别的地方是：要读取的字段可以自定义（字段模板表中定义），可以是不连续的字段，字段顺序无所谓，读取数据完全按照定义的模板顺序来读取，也可以是重复的字段（意思是一个字段可以被提取多次）。

驭今

ykcbf1100 发表于 2023-4-24 16:53
如果要做成通用，那文件名调整到A列吧。

大神，把文件名调整到A列真是个好主意，太聪明了。还有点小问题，想请您再调整下，就是合并后的表，没有表头，需要有表头，还有就是遇到长串数字时，合并后的表就变成了科学计数法，我调整后，尾数就变成0000，不正确，能劳烦您在调整下么？