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