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

xl6403

jjmsxr

z9bhd 发表于 2021-4-4 21:24

http://club.excelhome.net/thread-1583132-1-1.html

你好，能帮忙解决这个问题吗？？？

xl6403

cjc209 发表于 2021-1-22 17:33
结果在结果文件夹里 对应关系 你自己才知道怎么去匹配

老师，你好！
现在我发现运行到这句：
zdmhh = Val(Application.InputBox("请输入总数据源中 _字段 所处的最末行号信息 为数字型 1  2  3 4....", "默认值", "1"))
时误解了提示的意思，没有注意到“字段”以是是总数据的行数，其实是要输入字段旬所在的行数，以致程序运行不下去，这时默认的1就行了。
这个程序只能选取一个字段做文件名，就是这一句：
Set gzbm = Application.InputBox("请点选：以什么字段名来命名新工作簿", Type:=8)
我想麻烦你能不能改为可以选取两个字段（比如：学号姓名）做文件名来保存文件。
先谢谢了。

xl6403

cjc209 发表于 2021-1-22 17:33
结果在结果文件夹里 对应关系 你自己才知道怎么去匹配

老师，你好！
你发的这个通用性程序，原来问题测试运行不下去，现在才发现运行到这句：
zdmhh = Val(Application.InputBox("请输入总数据源中 _字段 所处的最末行号信息 为数字型 1  2  3 4....", "默认值", "1"))
时误解了提示的意思，以是是总数据的行数，未注意到“字段”二字，其实是要输入字段旬所在的行数，以致程序运行不下去，这时默认的1就行了。

这个程序只能选取一个字段做文件名，就是这一句：
Set gzbm = Application.InputBox("请点选：以什么字段名来命名新工作簿", Type:=8)
现在我想选取两个字段做文件名（比如：学号姓名），想麻烦你修改一下代码，能不能改为可以选取两个字段做文件名来保存文件。
先谢谢了。

xl6403

xl6403 发表于 2021-11-2 09:51
老师，你好！
现在我发现运行到这句：
zdmhh = Val(Application.InputBox("请输入总数据源中 _字段 所 ...

1.   ' Set gzbm = Application.InputBox("请点选：以什么字段名来命名新工作簿", Type:=8)
   
2.            ' bml = gzbm.Column
   
3.            '上两句改为：
   
4.             Set gzbm1 = Application.InputBox("请点选：以什么字段名1来命名新工作簿", Type:=8)
   
5.             Set gzbm2 = Application.InputBox("请点选：以什么字段名2来命名新工作簿", Type:=8)
   
6.             bml1 = gzbm1.Column
   
7.             bml2 = gzbm2.Column

复制代码

1.   ' bm = arr(i, bml)
   
2. '这句改为：
   
3.         bm = arr(i, bml1) + arr(i, bml2)

复制代码

测试可以实现目的。

千年之外

邮件合并不行吗？

微风～雨

2022年发表一下意见，工作薄对象挺好解决

together5577

各位大神，上边的帖子我都看了，但是如果数据是我附件内的，将如何填写呢？就是每一个名字对应多个课程

maywind1

留个记号，学习

AiHalo

z9bhd 发表于 2021-4-10 17:24
费了很大劲，查了不少资料，总算折腾出来了，看一下是否符合要求

老师太猛了，能加个微信吗？