excel文件的多个sheet拆分成多个excel文件

Sub SplitWorkBook() '拆分工作簿

Dim ws As Worksheet

 Application.ScreenUpdating = False
 For Each ws In ThisWorkbook.Worksheets
 ws.Copy
 Workbooks(Workbooks.Count).SaveAs ThisWorkbook.Path & "\" & "用你想要的文件名前缀替换此处" & ws.Name
 ActiveWorkbook.Close
 Next
 Application.ScreenUpdating = True
End Sub

使用方法：打开excel，在视图下应该有宏菜单，点击查看宏，随便输入一个宏名就可以创建宏，把这段代码复制粘贴进去，然后点击执行或者运行即可，拆分的文件和原文件在同一个文件夹中。