得到错误91

Question

我对类和对象有一般的理解问题。我想要做的很简单，但我遇到了错误。在下面的代码示例中，有时“Call tables.MethodInCTables”行运行正常，有时会产生错误91，对象未设置。在所有情况下，我都可以“看到”前面类型中的方法，所以我知道代码识别“tables”实例和“看到”MethodInCTables。但后来我得到了运行时错误。

Sub MainSub() 
Dim tables as New CTables 
Call tables.MethodInCTables 
End Sub

---- Class Module = CTables

Sub MethodInCTables()
 ...do something 
End Sub

Answer 1

您需要初始化CTables类型：

Sub MainSub()
    Dim tables As New CTables 
    Call tables.MethodInCTables
End Sub

或者：

Sub MainSub()
    Dim tables As CTables
    Set tables = New CTables
    Call tables.MethodInCTables
End Sub