Excel VBA 7.1错误'430'：在设置X=新工作表时。

Posted 2021-03-19

我收到这个错误

运行时错误'430'。类不支持自动化或不支持预期的接口。

在这行代码上，我把它改成了Set GetSheetByName = Nothing。

Set GetSheetByName = New Worksheet

我把它改为Set GetSheetByName = Nothing。然而，我收到错误'91'，就在

GetSheetByName.Name = "GetSheetByName::Default"

据我所知，没有遗漏的参考资料。这些都是我所包含的参考资料。如果你需要更多信息，请告诉我。

答案

你不能 New 拥有 Worksheet 物：喜欢 Workbook 对象，这些是供Excel创建、管理和销毁的。

创建工作表的唯一方法是通过Excel的对象模型，使用 Worksheets.Add 工厂方法来为你创建它们--你可以得到一个叫做 Worksheets 收藏品 Workbook，包括 ThisWorkbook VBA项目自己的主机文件）和 ActiveWorkbook:

Dim ws As Worksheet
Set ws = SomeWorkbook.Worksheets.Add