对象 'Sheets' 的方法 'Copy' 失败

Question

重新安装 Office 2013 后出现此错误：

Run-time error '-21474178848 (80010108)':
Method 'Copy' of object 'Sheets' failed

在此代码块中：

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
...

在按调试并按继续 (F5) 后，Excel 崩溃。

为什么会这样？

Answer 1

检查 VBA Windows

中的工作表名称

在您的情况下，（名称）部分中的名称可能有误，这取决于 Excel 本地化。尝试更改您可能有 sheet1 或 sheet2 的（名称）值并将其更改为 Catalog1 或 Catalog2，因此乳清必须有很多名称部分。

所以现在你可能有

Sheet1 (Catalog1)
Sheet2 (Catalog2)

您必须重命名为

Catalog1 (Catalog1)
Catalog2 (Catalog2)

对象 'Sheets' 的方法 'Copy' 失败

Method 'Copy' of object 'Sheets' failed

excel

vba

copy

excel-2013