excel软件中如何根据模板批量建立工作簿，高效办公不加班！

废话少说，先看效果图：

要求：根据预先制作好的模板工作簿，按《目录表.xlsm》中的A列的公司名批量复制工作薄。

excel按照模板批量生成表格（快速批量按模板建立工作簿的小技巧）-天天办公网

批量复制工作薄

制作步骤：

1、插入模块，写入宏代码；

Sub newbooks()

Dim i&, p$, temp$

On Error Resume Next

Application.ScreenUpdating = False

p = ThisWorkbook.Path & “”

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

temp = Cells(i, 1) & “.xlsx”

VBA.FileCopy p & “模板.xlsx”, p & temp

Next

Application.ScreenUpdating = True

End Sub

excel按照模板批量生成表格（快速批量按模板建立工作簿的小技巧）-天天办公网

插入模块，写入宏代码

2、运行宏名称：newbooks，即可瞬间完成按模板批量建立工作簿的工作任务。具体见图1演示；

结语：今天的这个小技巧在实际工作中非常实用，可以大幅节约我们的时间。请点赞并分享给其他更多的小伙伴吧！