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

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(3).Row        temp = Cells(i, 1) & ".xlsx"        With Workbooks.Add            .SaveAs p & temp            .Close False        End With    Next    Application.ScreenUpdating = TrueEnd Sub 

2、在excel中输入你要生成的工作薄的名字

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

4、将之前备用的代码粘贴到对话框

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

6、完成，你就看到你要的文件名的excel生成啦