Excel多sheet拆分

Excel多sheet拆分

---

前言

---

由于一个Excel的sheet页过多，不方便查找对应资料，于是领导让我把sheet页拆分成单个Excel方便查找，但是我一看一个excel居然有40多个sheet页，如果一个个复制出来，可能半小时就过去了，效率太低了，于是我就上网查找了一下，发现可以通过脚本的方式实现sheet页的拆分，现将脚本和过程分享出来

实现方法

---

Excel版本: 2010

首先，打开要拆分的Excel下任意一个sheet页,选择查看代码

进入VB代码界面后，选择插入->模块

将以下脚本输入后，选择执行，就可以实现拆分了,记得要修改路径

Sub 拆分工作簿()

Dim mybook As Workbook

Dim i As Integer

Set mybook = ActiveWorkbook

For i = 1 To mybook.Worksheets.Count

mybook.Worksheets(i).Copy

ActiveWorkbook.SaveAs Filename:="D:\Users\Desktop\测试拆分\" & mybook.Worksheets(i).Name & ".xlsx"

ActiveWindow.Close

Next i

End Sub

这样桌面上创建的文件夹里面就有我们需要拆分的Excel文件了