最佳答案废话少说，先看效果图：要求：根据预先制作好的模板工作簿，按《目录表.xlsm》中的A列的公司名批量复制工作薄。批量复制工作薄制作步骤：1、插入模块，写入宏代码；Sub newbooks()Dim i&, p$, temp$On Error Resume NextApplication.Scr......
废话少说，先看效果图：
要求：根据预先制作好的模板工作簿，按《目录表.xlsm》中的A列的公司名批量复制工作薄。
批量复制工作薄
制作步骤：
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
插入模块，写入宏代码
2、运行宏名称：newbooks，即可瞬间完成按模板批量建立工作簿的工作任务。具体见图1演示；
版权声明：本文内容/及图片/由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭/侵权/违法违规的内容，
请发送邮件至 ks13@qq.com 举报，一经查实，本站将立刻删除。
