首先我们新建一个文件夹，将excel文件放进去，打开excel点击开发工具，点击visual basic，然后在插入找选择模块，将代码直接粘贴进去，随后直接将他们关闭掉就好了，然后点击宏，找到拆分工作簿，点击运行，随后将所有的excel都关掉就好了。
 
将一个工作薄中的多个sheet拆分为工作表的方法
 
　　Sub 拆分工作薄()
 
　　Dim xpath As String
 
　　xpath = ActiveWorkbook.Path
 
　　Dim sht As Worksheet
 
　　For Each sht In ActiveWorkbook.Sheets
 
　　sht.Copy
 
　　ActiveWorkbook.SaveAs Filename:=xpath & "\" & sht.Name & ".xlsx"
 
　　Next
 
　　End Sub