将EXCEL工作簿按工作表名称拆分成单独文件的一种方法记录

最近经常碰到需要把工作簿拆分成单独文件的工作，以前都是在工作表上右击-复制来实现。
但架不住工作表太多的时候，效率真心低。
懒癌晚期的人干活怎么可以这么繁琐？
于是搜索一番，找到一种VBA宏实现的方法，记录在这里，希望可以帮到别人。

1. 新建一个文件夹，把需要拆分的工作簿（xlsx文件）放进去。
2. 打开需要拆分的工作簿（xlsx文件）转到开发工具标签，然后从功能区中选择“Visual Basic”选项，或按Alt + F11 。
3. 在打开的Visual Basic窗口双击左边的“ThisWorkbook”，在右边窗口粘贴一下代码。

Sub EXCEL工作簿拆分()
Dim FilePath As String
FilePath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Sheet In ThisWorkbook.Sheets
Sheet.Copy
Application.ActiveWorkbook.SaveAs Filename:=FilePath & "\" & Sheet.Name & ".xlsx"
Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. 单击运行按钮或按F5 键运行代码。
5. 大功告成！