将工作簿里的工作表另存为一个单独的工作簿，一般操作都是将工作表移至新工作簿，然后进行保存。
但是当工作表有很多的时候，一个一个手动操作就比较麻烦，这时就可以考虑使用VBA来批量将工作表另外保存为一个单独的工作簿。
如图，现在一个工作簿里有五个工作表，要将这些工作表全都另存为单独的工作簿。
VBA代码如下：
Sub 分拆工作表()
Application.ScreenUpdating = False
For Each sht In Worksheets
sht.Copy
ActiveWorkbook.SaveAs Filename:="C:UsersAdministratorDesktop" & "" & sht.Name, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
ActiveWorkbook.Close
Next
End Sub
运行以后，在指定路径里面就有对应名称的工作簿了。
- 需要注意的是，其中的C:UsersAdministratorDesktop是存储工作表的位置，可以自行修改。
- 想知道如何运行VBA代码可以关注我学习，或者咨询我。
