文件翻译方案

欧宝下载安卓版--欢迎您!

3295847016@qq.comq.com    13714579223  全球站点 

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

 翻译技巧     |      2018-11-22 17:15:28
注意:本操作以wps为例,其它的请自行测试
(1)下载【wps vba宏插件】
(2)点击 【开发工具】--》【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
合作伙伴 :站长工具 - 欧宝电竞娱乐_欧宝app官方_欧宝下载安卓版