大家好，又见面了，我是你们的朋友全栈君。
参考：
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
转载于:https://www.cnblogs.com/onelikeone/p/10131337.html
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
发布者：全栈程序员-用户IM，转载请注明出处：https://javaforall.cn/107138.html原文链接：https://javaforall.cn
【正版授权，激活自己账号】： Jetbrains全家桶Ide使用，1年售后保障，每天仅需1毛
【官方授权 正版激活】： 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...
