一、問題:
公司做一個項目,給的用戶上報文是一個包含多個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的名字命名新文件