一、問題：

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

excel多個sheet表拆分成獨立的excel文件