一键将总表按工作表拆分为多个工作簿文件
跟李锐学Excel， 高效工作，快乐生活。
一键将总表按工作表拆分为多个工作簿
今天我来结合一个实际案例，介绍将总表按工作表拆分为多个工作簿的方法。
比如：在下图所示数据总表中包含多个工作表，需要将每个工作表拆分为多个单独的文件。
第4步中的vba代码如下。
Sub 工作表为拆分工作簿()
On Error Resume Next
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim Sht As Worksheet, Nwb As Workbook, Owb As Workbook
Dim OPath As String, NPath As String
Set Owb = ActiveWorkbook
OPath = Owb.Path
If Len(OPath) <> 0 Then
NPath = OPath & "" & "\" & Split(Owb.Name, ".x")(0) & "-拆分"
MkDir NPath
For Each Sht In Owb.Worksheets
Sht.Copy
Set Nwb = ActiveWorkbook
Nwb.SaveAs NPath & "" & "\" & Split(Owb.Name, ".x")(0) & "-" & Sht.Name & ".xlsx"
Nwb.Close
Next
MsgBox "拆分后的文件已保存至:" & NPath
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
如果你觉得有用，就分享给朋友们看看吧~
更多的Excel应用技巧，可以点击文尾的“阅读原文”，获取更多教程。
今天就到这里，大家记得收藏此教程，明天见~
李 锐
微软全球最有价值专家MVP
新浪微博Excel垂直领域第一签约自媒体
百度名家，百度阅读认证作者
每日分享职场办公技巧原创教程
高效工作，快乐生活！
微博 @Excel_函数与公式
微信公众号（ExcelLiRui）
>>推荐阅读 <<
（点击蓝字可直接跳转）