鲁达 前言：
excel软件中如何根据模板批量建立工作簿，高效办公不加班！
废话少说，先看效果图：
要求：根据预先制作好的模板工作簿，按《目录表.xlsm》中的A列的公司名批量复制工作薄。
批量复制工作薄
制作步骤：
1、插入模块，写入宏代码；
Sub newbooks()
Dim i&, p$, temp$
On Error Resume Next
A = False
p = T & "\"
For i = 2 To Cell, 1).End(xlUp).Row
temp = Cells(i, 1) & ".xlsx"
VBA.FileCopy p & "模板.xlsx", p & temp
Next
A = True
End Sub
插入模块，写入宏代码
2、运行宏名称：newbooks，即可瞬间完成按模板批量建立工作簿的工作任务。具体见图1演示；
结语：今天的这个小技巧在实际工作中非常实用，可以大幅节约我们的时间。请点赞并分享给其他更多的小伙伴吧！