上一篇:例07-3-合并多个工作簿
本篇为Excel工作簿高级操作实例之一:
拆分工作簿指的是将工作簿中的多个工作表单独拆分为工作簿文件。
在工作中,若我们需要将工作簿中的工作表以文件的形式发送给老板、同事或客户,在工作表数量少,报表中数据量小的情况下,可以使用Ctrl+C、Ctrl+V的方法将表格复制在新的工作簿中,实现对工作簿内容的拆分。但如果工作簿中需要拆分的工作表太多,工作表中保存的数据量太大、太复杂,我们就需要借助VBA来实现对工作簿的拆分。
使用VBA拆分工作簿
以下图所示的工作簿为例,工作簿中包含一月、二月和三月等三个工作表。
要将这3个工作表拆分成独立的工作簿文件,可以执行以下操作。
<1>右击任意工作表标签,从弹出的菜单中选择【查看代码】命令。
<2>打开VBA窗口,输入以下代码:
Sub 拆分工作簿()Dim wk As Workbook, ss$, k%Application.DisplayAlerts = FalseFor Each sht In ThisWorkbook.SheetsSet wk = Workbooks.Addk = k + 1ThisWorkbook.Sheets(k).Copy Workbooks(2).Sheets(1)ss = ThisWorkbook.Path & "" & sht.Name & ".xlsx"wk.SaveAs sswk.CloseNextApplication.DisplayAlerts = TrueMsgBox "拆分工作簿完成!"End Sub
<3>按下F5键,运行以上代码,在弹出的菜单中单击【确定】按钮。
<4>关闭VBA界面,选择【文件】选项卡,在弹出的菜单中选择【信息】选项,在显示的选项卡中单击【打开文件位置】选项。
<5>在打开的文件夹中,即可找到拆分的工作表文件。
上一篇:例07-3-合并多个工作簿
下一篇:批量制作工作簿