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

z9bhd

紫寒100 发表于 2021-3-28 13:53
效果很好，但是拆分出来的表，不想保留前面的几个，只是拆分出来的表另存为工作簿。帮我修改一下可以吗? ...

z9bhd 发表于 2021-3-27 13:23
附件下载看了一下，没搞懂你的意思，建议单发一贴让高手帮你看看

单发我担心没人看就沉下去了，我的意思就是只拆分04表，把04表按项目名称按模板格式拆分成单独的工作簿，一个项目一个工作簿，其他的表不能删除，我找到的代码，会删除其他表，
你在75楼回复说“其他的表不能删除”我才给你加进来的，没事，我改一下

紫寒100

z9bhd 发表于 2021-3-28 15:13
z9bhd 发表于 2021-3-27 13:23
附件下载看了一下，没搞懂你的意思，建议单发一贴让高手帮你看看

哦，不好意思，就是其他的表在数据源这个表不能删除，拆分出来的表只保留拆分出来的那个。是我没有表达清楚，不好意思啦。

紫寒100

z9bhd 发表于 2021-3-28 15:13
z9bhd 发表于 2021-3-27 13:23
附件下载看了一下，没搞懂你的意思，建议单发一贴让高手帮你看看

能帮我改一下吗？我确实不会

z9bhd

2020分配表-修改.zip (37.88 KB, 下载次数: 53)

2021-3-28 15:37 上传

点击文件名下载附件

xl6403

z9bhd 发表于 2021-3-26 16:43
修改了一下，不用修改模板了，一键ok,我这里测试没发现问题，你再看看

今天上班才看到你的回复，下载测试了一下，能运行完成，谢谢！

xl6403

z9bhd 发表于 2021-3-26 16:45
Sub 批量导出到模板3()
Dim ar, br, cr, i%, j%, wb1 As Workbook, wb2 As Workbook, wb As Workbook, d A ...

如果保存的文件名是学号+姓名，要怎样修改？

z9bhd

xl6403 发表于 2021-3-29 10:44
如果保存的文件名是学号+姓名，要怎样修改？

倒数第6行：wb.SaveAs (wb1.Path & "\" & ar(m, 2) & ".xlsx")
修改为：     wb.SaveAs (wb1.Path & "\" & ar(m,1) & ar(m, 2) & ".xlsx")

紫寒100

z9bhd 发表于 2021-3-28 15:37

谢谢你啦。

紫寒100

z9bhd 发表于 2021-3-28 15:37

谢谢你，拆分出来的效果很好，真的是帮了我一个大忙，我想再咨询一个问题，如果模板放在04表后面，另外在当前文件夹下再自动新建一个文件夹，专门存放拆分出来的工作簿，能帮忙再改一下吗？谢谢。

z9bhd

紫寒100 发表于 2021-3-29 15:26
谢谢你，拆分出来的效果很好，真的是帮了我一个大忙，我想再咨询一个问题，如果模板放在04表后面，另外在 ...

新建文件夹怎么命名？