excel多个sheet表拆分成独立的excel文件

Posted 2020-11-01 hackxiyu

一、问题：

　　公司做一个项目，给的用户上报文是一个包含多个sheet页的excel文件，

　　但是在实际处理报文数据的时候需要拆分excel文件为多个独立的报文excel文件

 

二、解决：

　　（1）一个一个的复制，新建文件，生成新的sheet文件，sheet多的时候很麻烦

　　（2）使用office的宏工具来自动化拆分文件

 

三、操作步骤：　　

　　注意：本操作以wps为例，其它的请自行测试

　　（1）下载【wps vba宏插件】

　　（2）点击 【开发工具】--》【vba编辑器】--》【插入】--》【模块】

　　（3）复制以下代码：

Private Sub 分拆工作表()

Dim sht As Worksheet

Dim MyBook As Workbook

Set MyBook = ActiveWorkbook

For Each sht In MyBook.Sheets

sht.Copy

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\\" & sht.Name, FileFormat:=xlNormal \'将工作簿另存为EXCEL默认格式

ActiveWorkbook.Close

Next

MsgBox "文件已经被分拆完毕!"

End Sub

　　（4）点击运行即可拆分文件到改报文的同级目录下，并以sheet的名字命名新文件