常用批量处理文件技巧（二）--批量生成工作薄

1、打开任意一个文档，输入代码备用Subne嘛术铹砾wbooks()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

3、在当前插页名称sheet1上面点击右键找到查看代码并进入

5、点击上方的类似播放的按键