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

參考：

https://www.cnblogs.com/hackxiyu/p/8945975.html

 

場景：將多個sheet表拆分成獨立的excel文件

 

一、安裝VB工具：

默認情況下：wps -- 開發工具 --- VB 編輯器是灰選狀態(即不可用狀態)，此時需要先安裝vb工具：VBA For WPS 2019

 

安裝步驟依次為：vcredist_x86.exe、Vba71.msi、Vba71_1033.MSI、Vba71_2052.msi

 

二、操作步驟：

點擊 【開發工具】--》【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

 

 

 

上述代碼粘貼后，不用保存，直接點擊運行即可拆分文件到該報文的同級目錄下，並以sheet的名字命名新文件

 

 源表：

 

 

最后效果：

 

 

---

 創建文件夾，然后保存文件

Option Explicit
Option Compare Text
Private Sub 分拆工作表()

Dim sht As Worksheet

Dim MyBook As Workbook

Set MyBook = ActiveWorkbook

For Each sht In MyBook.Sheets
sht.Copy

On Error Resume Next
VBA.MkDir (MyBook.Path & "\" & sht.Name)

ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name & "\" & sht.Name, FileFormat:=xlNormal '將工作簿另存為EXCEL默認格式

ActiveWorkbook.Close

Next

MsgBox "文件已經被分拆完畢!"

End Sub