批量生成工作簿

1、新建一个Excel表格，输入需要新建的各工作簿名称，如图所示，慢慢来，不要心急。

3、在VBE界面中输入以下代码：Subnewbooks()Dimi&,p$,temp$OnErrorResumeNextApplication.ScreenUpdating=Falsep=ThisWorkbook.Path&"\"Fori=2ToCells(Rows.Count,1).End(3).Rowtemp=Cells(i,1)&".xlsx"WithWorkbooks.Add.SaveAsp&temp.CloseFalseEndWithNextApplication.ScreenUpdating=TrueEndSub

5、即可查看到你所完成的新建的工作簿，记住是在你新建的（指定工作簿名称）表的同一个文件夹下：我的电脑是显示在电脑桌面的！