如何使用WPS宏编辑器实现拆分工作簿

mark0704

目前有一段VBA的代码可以实现这个功能，请大神帮忙看看如何转化成WPS的宏

Sub 拆分工作簿()
   Dim xpath As String
   xpath = ActiveWorkbook.Path
   Dim sht As Worksheet
   For Each sht In ActiveWorkbook.Sheets
     sht.Copy
     ActiveWorkbook.SaveAs Filename:=xpath & "\" & sht.Name & ".xlsx"
     ActiveWorkbook.Close
   Next
     MsgBox "工作簿拆分完毕！"
End Sub

芝麻糊@

WPS里面粘贴进去就行

芝麻糊@

Sub 拆分工作簿()    Dim xpath As String Application.ScreenUpdating = False '关闭屏幕更新    xpath = ActiveWorkbook.Path    Dim sht As Worksheet    For Each sht In ActiveWorkbook.Sheets      sht.Copy      ActiveWorkbook.SaveAs Filename:=xpath & "\" & sht.Name & ".xlsx"      ActiveWorkbook.Close    Next Application.ScreenUpdating = True '开启屏幕更新      MsgBox "工作簿拆分完毕！" End Sub  关了提示,不然另存时会提示

芝麻糊@

Sub 拆分工作簿()
   Dim xpath As String
Application.ScreenUpdating = False '关闭屏幕更新
   xpath = ActiveWorkbook.Path
   Dim sht As Worksheet
   For Each sht In ActiveWorkbook.Sheets
     sht.Copy
     ActiveWorkbook.SaveAs Filename:=xpath & "\" & sht.Name & ".xlsx"
     ActiveWorkbook.Close
   Next
Application.ScreenUpdating = True '开启屏幕更新
     MsgBox "工作簿拆分完毕！"
End Sub

zmj9151

wps js宏
function SplitSheet(){
       
        var fn = ActiveWorkbook.Path
       
        for(var sh of Worksheets){
                var x = sh.Name
                sh.Copy()
                ActiveWorkbook.SaveAs(fn+ "\\"+ x)
        }       
}