批量生成工作簿

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

2、alt+f11快捷键，或者【开发工具】-【visual basic】-【插入】-【模块】见到如下界面；如果电脑里没看到【开发工具】选项卡，请参考其他百度经验。

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

4、然后选择【运行】，如图所示，进行操作，你可看到电脑运行的窗口，快慢就看你电脑的配置了。

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