根据文件名表A2:A的名称按照模版批量创建Excel工作簿

l988x511f

各位老师，我想根据文件名表A2:A的名称按照模版批量创建Excel工作簿，用VBA代码如何处理？代码写在文件名表中，选择模板工作簿后批量创建。需要创建1000多个，谢谢。


感谢各位老师的帮助，经测试已找到我能使用的，测试有问题的应该是我电脑office版本问题或设置问题。努力向各位老师学习，谢谢！

LIUZHU

模板里面也没有什么实际的内容啊，和文件名表的A列关联度不大，难道仅仅是将模板表简单复制多个吗？

q3698995

已完成，请查收！

1. Sub b(): r = Cells(Rows.Count, 1).End(3).Row: arr = Cells(1, 1).Resize(r).Value2: pth = ThisWorkbook.Path & "": For i = 2 To r: FileCopy pth & "模版.xls", pth & arr(i, 1) & ".xls": Next: End Sub

复制代码

l988x511f

LIUZHU 发表于 2024-4-2 14:51
模板里面也没有什么实际的内容啊，和文件名表的A列关联度不大，难道仅仅是将模板表简单复制多个吗？

老师，是的，原始模板表比较复杂的，做了一个简单的，只是按照文件名表批量复制改名的意思。

LIUZHU

这个效果吗？

LIUZHU

JSA代码，你的WPS应该是支持的

1. function 批量复制(){
   
2.         Range("a1").CurrentRegion.Value2.slice(1).forEach(([x])=>{
   
3.                 FileCopy(`${ThisWorkbook.Path}\\模版.xls`,`${ThisWorkbook.Path}\\${x}.xls`);
   
4.         });
   
5. }

复制代码

LIUZHU

附件在此，请测试

半百

上千个会不会搞死机，我试了100个用时近40秒

l988x511f

LIUZHU 发表于 2024-4-2 15:10
附件在此，请测试

老师，不行额

l988x511f

半百 发表于 2024-4-2 15:19
上千个会不会搞死机，我试了100个用时近40秒

老师，报错了