一键将总表按工作表拆分为多个工作簿文件

跟李锐学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)

>>推荐阅读 <<

(点击蓝字可直接跳转)

2016合集 丨vlookupsumif条件计数条件求和

快捷键格式转换秘技sumproduct计算日期间隔

多表汇总工资条批量导出图片频率统计lookup

批量创建文件夹智能填充合并单元格更新报表必备

不重复值快捷插入或编辑批注报表快速定位和跳转

妙用序列填充批量插入标题行对部分报表加密

批量汇总小计行按万元显示批量提取文件名

(0)

相关推荐