Excel\WPS利用VBA將多個sheet表拆分成獨立的文件，VBA for WPS下載

問題場景

工作中整理完數據錄入系統需要生成特定格式的Excel文件
此時可選的方案可以是：手工修改，一個一個的復制，新建文件，生成新的sheet文件，sheet多的時候很麻煩；或者利用VBA直接批量生成特定格式的Excel文件。

操作步驟

• 使用微軟OFFICE辦公軟件，可以直接使用VBA，啟用步驟是：打開Excel，自定義功能區——》勾選【開發工具】，確認，【開發工具】——》【vba編輯器】——》【插入】——》【模塊】，即可。
• 若使用WPS則需要另外安裝VBA工具：VBA for WPS，提取碼：38bg，安裝完成后，打開【開發工具】——》【vba編輯器】——》【插入】——》【模塊】，即可。
  復制以下代碼：

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

在編輯好Excel文件內容后，進入VBA編輯器，直接運行上述代碼，即可批量拆分生成Excel文件。
例如：

運行上述代碼后：

參考資料：

WPS 2019 多個sheet表拆分成獨立的excel文件 （VBA工具）
excel多個sheet表拆分成獨立的excel文件