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

发表于 2025年03月31日 | 更新于 2025-03-31 | excel 技巧 VBA

| 字数总计: 914 | 阅读时长: 1分钟 | 阅读量: 2101

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

新建一个文件夹，把需要拆分的工作簿（xlsx文件）放进去。
打开需要拆分的工作簿（xlsx文件）转到开发工具标签，然后从功能区中选择“Visual Basic”选项，或按Alt + F11 。
在打开的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