一、问题:
公司做一个项目,给的用户上报文是一个包含多个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的名字命名新文件