Question

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

运行时错误＆＃39; -21474178848（80010108）＆＃39;：
方法＆＃39;复制＆＃39;对象＆＃39;表格＆＃39;失败

在此代码块中：

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)

方法＆＃39;复制＆＃39;对象＆＃39;表格＆＃39;失败

1 个答案: