【急！】如何从一个Excel表中提取数据，自动填入指定模板，生成多个Excel文件？

peter-chen

留个记号，学习

peter-chen

z9bhd 发表于 2021-3-24 13:53
原代码是一个通用模板，要一个一个去点选单元格，比较麻烦，所以就重新写了个代码，前提是你要修改你的模板 ...

您好！老师，请教下26楼的通用版本能否改成：
1.选字段时是从弹出的窗口里选，或者同一个文件夹里自动检索“数据”文件夹里的文件。
2.选字段目前是一个文件，能否从2个文件里选字段名并取数，2个文件里的某一列有相同的数值；
满足以上的2个要求，能否实现按模板批量生成按指定字段为名的EXCEL 表？类似26楼的通用程序能否改实现这2个要求？谢谢

最后：如果选定的要取数的某个字段名下某一行对应的数据行有多行时（每行另外的某个字段下的列的数据不同，对应的另外列数据也不同），比如：A列的字段名一样，在A.xls和 B.xls数据文件里都存在，但对应的其他列某些数据或字段不同。在A3、A4、A5的数据里是C客户，对应的D3,D4,D5分别是不同的值，那么这个都会添加到新生成模板的（比如以A字段来命名的文件）：C客户.XLS, 那么A3,A4,A5对应的这些行的D3,D4,D5数据也按模板位置自动往后添加在第一个自定位置下面。谢谢

peter-chen

z9bhd 发表于 2021-3-21 13:13
不知能不能用
Sub lx()
    Dim ar, br, i%, j%, d As Object, wb1 As Workbook, wb As Workbook

请问老师，能否看看这个行里和列里取字段，能否按选定位置去自动填入指定模板，生成多个EXCEL文件？或者其他方法实现？谢谢指导！


本表字段下的数据自动填入模板相应的位置（位置不固定，可选最好）

此数据表里的颜色对应的字段相对应的值填写入模板中的同样颜色字段下的行或者列里！
注意此数据表每月的每行是不固定的！

难题是：1、有些字段在开头的列里，有些字段在行里！
2、每一个时间对应的数据填入模板的一行或一列（不同模板是不同的0

具体查看结果样例，谢谢各位的指导！


正常每天有1~2次，一个月下来有很多次，其他的数据行隐藏了。麻烦老师了，谢谢！

************************************************************************
已经自己解决

Aone2021

学习学习。寻找合适的方案。谢谢分享。

毛毛虫2014

各位大神们，如果我有重名的，重名的详细要放在同一张表中该怎么办呢

天道酬勤y

z9bhd 发表于 2021-4-15 15:33

需求没大看懂