如何将EXCEL工作薄按工作表拆分为多个工作薄

工作中需要把一个工作薄里的若干工作表拆分为单独的工作薄，表多复制粘贴都麻烦，有没有比复制粘贴更简单的办法呢？
步骤如下：
1、打开有需要拆分的工作表；
2、右击任意工作表名称；

3、在弹出的对话框中点击查看代码；

4、在空白的代码框中粘贴下列代码（红色部分）：
Sub 工作薄拆分()
'将工作薄按工作表拆分成多个工作薄
Dim PATH As String
PATH = Application.ActiveWorkbook.PATH
Dim sht As Worksheet
Application.ScreenUpdating = False
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs PATH & '\' & sht.NAME & '.xls' '(工作表名称为文件名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub
Sub UnhideAllSheets()
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Visible = True
Next
End Sub
5、保存这个代码

6、按F5或者点击上图中那个绿色三尖角按键运行Sheet1.工作薄拆分

7、等待执行一会儿表格就拆分好了。