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

半百

l988x511f 发表于 2024-4-2 16:04
老师，报错了

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.2
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set ws = ThisWorkbook
   
5.     r = ws.Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row
   
6.     arr = ws.Sheets("Sheet1").[a1].Resize(r, 1)
   
7.     p = ws.Path & ""
   
8.     f = p & "模版.xls"
   
9.     Set wb = Workbooks.Open(f, 0)
   
10.     For i = 2 To UBound(arr)
    
11.         fn = arr(i, 1)
    
12.         wb.SaveAs p & fn & ".xls"
    
13.     Next
    
14.     wb.Close
    
15.     Application.ScreenUpdating = True
    
16.     Application.DisplayAlerts = True
    
17.     MsgBox "OK！"
    
18. End Sub
    

复制代码

chengyunpan

我觉得楼主的案例和这个类似

万能批量软件软件简介：   
     真正的软件级别，VBA通用软件，用于批量打印、拆分，用于特殊需求的录入、打印等等。不需改代码，就可以万能套用。复杂的数据引用、格式要求都能简单解决。
      单个、少量、批量操作（打印、拆分等）或者选择性操作都一样方便。
      核心很简单，就是用“=”号引用对应数据列，并作简单设置，一学就会，很容易套用到工作中遇到的实际案例。
       界面超级简单，千篇一律，傻瓜式操作。
      每个案例都仅是此软件的一个小应用，学会一个案例作参考就能一里通百里用，欢迎大家测试使用，更期待能提出宝贵意见。
     软件免费，并附简易教程，需要做简单设计才能吻合到实际案例。也可以联系作者提供设计服务，能为你提供完美的整体解决方案。
      文件就是软件！！！

LIUZHU

l988x511f 发表于 2024-4-2 15:56
老师，不行额

我这里测试没有任何问题。

l988x511f

ykcbf1100 发表于 2024-4-2 16:50
参与一下。。。

fn = arr(i, 1)
老师，这句报错424，要求对象错误。

l988x511f

q3698995 发表于 2024-4-2 14:56
已完成，请查收！

运行非常快，老师，你这个代码横着的好长，试着回车感觉不太行

l988x511f

chengyunpan 发表于 2024-4-2 17:47
我觉得楼主的案例和这个类似

万能批量软件软件简介：   

感谢老师的回复，还是不太一样吧，不过你这个也值得学习学习呢