Question

Excel2007 运行时错误'1004' 方法'copy'作用于对象'worksheet'时失败

平时工作一直使用

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

这个宏来拆分一个工作表内多个工作薄，分成一个个新的个工作表，好做账单发给公司。
今天使用，分到第五个工作簿提示这个错误

就终止了，请问是什么原因呢？
其实本人并不懂宏…只是想工作方便百度发现个这个方法…现在用得不顺了，希望能处理
不知哪位大神可以帮忙解决问题~在此谢过~~~

Answer 1

有可能是工作簿内有隐藏的sheet没有显示。
我用excel2016，用同样的代码拆表，在VB窗口左边发现有在表中看不到的sheet。
解决办法：右键中任意表单——显示隐藏的表。去掉不需要的表。
搞定。
我拆好几十个表都OK的。

Answer 2

代码没问题啊

用EXCEL2003正常拆分同一工作簿下的6个工作表为6个单独的工作簿

追问

我之前10来个都可以分呢