Excel多sheet拆分

文章目录

前言

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

实现方法

Excel版本:

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

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

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

Sub 拆分工作簿()Dim mybook As WorkbookDim i As IntegerSet mybook = ActiveWorkbookFor i = 1 To mybook.Worksheets.Countmybook.Worksheets(i).CopyActiveWorkbook.SaveAs Filename:="D:\Users\Desktop\测试拆分\" & mybook.Worksheets(i).Name & ".xlsx"ActiveWindow.CloseNext iEnd Sub

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