Excel 创建新工作表代码不再工作

我不久前为工作创建了一个vba宏。对我来说，它一直在运行，但最近其他人发现，我的代码在创建具有特定名称的新工作表时出错。错误是“ActiveX组件无法创建对象”

---

哪一行产生错误？

错误是“ActiveX组件无法创建对象”。

您最近是否在现有版本上安装了新的ms office版本？确定为我检查两件事[1]如果在现有版本上安装了新版本[2]如果Excel（您作为用户）具有足够的

权限

。试试这个。让IT人员右键单击excel.exe，然后单击“以管理员身份运行”，现在尝试编写代码。如果你没有得到同样的错误，那就是“权利”问题。不管你用什么名字都会出错吗？是否将事件处理程序附加到工作簿\新闻纸事件？是在该工作簿中还是在外接程序中？尝试将错误处理首选项设置为“中断类模块”，并查看是否有任何更改。请将其分解。在即时窗格（Ctrl+G）中运行

？ThisWorkbook.Sheets.Count

，然后尝试

ThisWorkbook.Sheets.Add

（仍在即时窗格中）-是否有效？下一步请尝试设置ws=thiswoolk.Sheets.Add（3），其中

3

是从

.Count

测试中获得的硬编码值。它有用吗？如果工作簿中有正在创建或激活的工作表的事件处理程序，请在添加工作表之前尝试

Application.EnableEvents=False

，在添加工作表之后尝试

Application.EnableEvents=True

，它是否仍会爆炸？

Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets.Add(After:= _
             ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ws.Name = "Assessment Stats"