上一篇：例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-合并多个工作簿
下一篇：批量制作工作簿
