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


一、问题:

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


免责声明!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系本站邮箱yoyou2525@163.com删除。



 
粤ICP备18138465号  © 2018-2025 CODEPRJ.COM