请教一下分拆工作薄时报错 ‘1004’ 是什么原因

sherryshaw

我想要将一个工作薄中的多个sheet，分拆成独立的工作薄，使用
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:=xlOpenXMLWorkbook     '将工作薄另存为xlsx格式
           ActiveWorkbook.Close
       Next
       MsgBox "文件已经被分拆完毕"
   End Sub

   运行后提示

运行时错误 '1004’:
方法'Copy'作用于对象’_Worksheet'时失败

请问是什么原因，怎么解决呢

chxw68

1. Private Sub 分拆工作薄()
   
2.   Dim sht As Worksheet
   
3.   Dim MyBook As Workbook
   
4.   Application.ScreenUpdating = False
   
5.   Application.DisplayAlerts = False
   
6.   Set MyBook = ThisWorkbook
   
7.   For Each sht In MyBook.Worksheets
   
8.       sht.Copy
   
9.       ActiveWorkbook.SaveAs Filename:=MyBook.Path & "" & sht.Name, FileFormat:=xlOpenXMLWorkbook     '将工作薄另存为xlsx格式
   
10.       ActiveWorkbook.Close
    
11.   Next
    
12.   MsgBox "文件已经被分拆完毕"
    
13. End Sub
    
14. 
    

复制代码

sherryshaw

还是不行，一样的报错