分享给大家一个VBA的代码，对于VBA的事，，我表示还在学，而且也不怎么懂，VBA对于很多新手来说还是很不错的，因为拿来就可以用，。。。。。
作用是将一个工作簿中多个工作表拆分成独立的文件。
原图如下，
然后Alt+F11，F7调出窗口，输入下面代码，F5运行就好。
Private Sub 分拆工作表
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
然后就会看到屏幕闪烁（可能叫刷新，，，反正就是在保存的意思吧）然后等到“文件已经被拆分完毕”的弹窗出现，事情就OK了。
效果图：
之前有个用bat指令批量创建文件夹的可以回顾下：Excel批量创建文件夹
