vba - 用户定义类型的 VarType

Question

我的 VBA 代码中有一些用户定义的对象，想知道是否有办法检查对象类型。有些东西像

Dim myObject as Variant
Set myObject= New Employee

     If(myObject isType Employee)
           Do Something
      Else
           Do something else

我在考虑 VarType() 函数，但它显然不适用于用户定义的类型。还有什么我可以使用的吗？

Answer 1

这样做有两种可能性。下面的代码应该解释了一切。请参阅里面的一些其他评论:

Sub qTest()

    Dim myObject As Variant
    Set myObject = New Employee

    'return results to Immediate
    Debug.Print TypeName(myObject) '>> will return class name
    Debug.Print TypeOf myObject Is Employee '>>will return true

    'using with 'if statements', both will return true 
    If TypeName(myObject) = "Employee" Then
        MsgBox "OK"
    End If

    If TypeOf myObject Is Employee Then
        MsgBox "OK"
    End If

End Sub