我收到这个错误
运行时错误'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