将一个工作簿中多个工作表拆分成独立的文件方法

　　作用是将一个工作簿中多个工作表拆分成独立的文件。

原图如下

　　然后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了。

效果图：