对象'表'的方法'复制'失败

重新安装Office 2013后,我得到这个错误:

运行时错误“-21474178848(80010108)”:
对象'表'的方法'复制'失败

在这个代码块中:

Set ThisWork = ActiveWorkbook strExt = ThisWork.Sheets("Catalog1").Cells(2, 4).Value & "_" & Format(Now, "yyyy_mm_dd_hhmmss") strSaveName = ThisWork.Path & "\" & strExt & ".xlsx" ThisWork.Sheets(Array("Catalog1", "Catalog2", "Translations")).Copy With ActiveWorkbook ... 

按下debugging并按继续( F5 )后,Excel崩溃。

为什么会这样呢?

检查VBA Windows中的表格名称

在你的情况下,可能错误的名称(名称)部分取决于Excel本地化。 尝试更改(名称)值,您可能有sheet1或sheet2,并将其更改为Catalog1或Catalog2,因此乳清必须多名称部分。

所以,现在你可能有

 Sheet1 (Catalog1) Sheet2 (Catalog2) 

你必须重命名为

 Catalog1 (Catalog1) Catalog2 (Catalog2)