Question

Excel工作表宏拆分保存 出现运行错误'1004' 方法’Copy'作用于对象’-Worksheets'时失败

运行代码Private Sub 分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式ActiveWorkbook.CloseNextMsgBox "文件已经被分拆完毕!"End Sub出现运行错误'1004' 方法’Copy'作用于对象’-Worksheets'时失败

Answer 1

个人经验，在你编辑好这个含有 VBA 代码文件之后，肯定还没有保存。也就是说，此时 MyBook.Path 的值还是 Null。所以会出错。
建议先把文件保存以后，再测试这段代码看看结果如何。

Answer 2

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 
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub

代码没问题的。

应该是工作表本身的问题。

Answer 3

代码没问题，有隐藏的工作表吗？