WPS 2019 多个sheet表拆分成独立的excel文件

onekone

场景：将多个sheet表拆分成独立的excel文件


一、安装VB工具：
默认情况下：wps -- 开发工具 --- VB 编辑器是灰选状态(即不可用状态)，此时需要先安装vb工具：VBA For WPS 2019

安装步骤依次为：vcredist_x86.exe、Vba71.msi、Vba71_1033.MSI、Vba71_2052.msi

二、操作步骤：

点击 【开发工具】--》【vba编辑器】--》【插入】--》【模块】，输入如下代码：

1. Private Sub 分拆工作表()
   
2. 
   
3. Dim sht As Worksheet
   
4. 
   
5. Dim MyBook As Workbook
   
6. 
   
7. Set MyBook = ActiveWorkbook
   
8. 
   
9. For Each sht In MyBook.Sheets
   
10. 
    
11. sht.Copy
    
12. 
    
13. ActiveWorkbook.SaveAs Filename:=MyBook.Path & "" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
    
14. 
    
15. ActiveWorkbook.Close
    
16. 
    
17. Next
    
18. 
    
19. MsgBox "文件已经被分拆完毕!"
    
20. 
    
21. End Sub

复制代码

上述代码粘贴后，不用保存，直接点击运行即可拆分文件到该报文的同级目录下，并以sheet的名字命名新文件