Sprawdź, czy wartość jest iterowalna vba

Question

W wielu językach możliwe jest sprawdzenie, czy obiekt jest możliwy do sprawdzenia, jak to zrobić dla VBA?

mogę spróbować:

Function isIterable(obj As Variant) As Boolean 
    On Error Resume Next 
    Dim iterator As Variant 
    For Each iterator In obj 
     Exit For 
    Next 
    isIterable = Err.Number = 0 
End Function 

Ale zastanawiam się, czy istnieje wbudowane lub lepsze podejście?

Answer 1

Czy istnieje wbudowaną funkcję: nr

Czy istnieje lepsze podejście?:

bym zrobił to tak:

Function isIterable(obj As Variant) As Boolean 

    On Error GoTo isIterable_Error 

    Dim iterator As Variant 

    For Each iterator In obj 
     isIterable = True 
     Exit Function 
    Next 

isIterable_Error: 

End Function 

Ponieważ oddanie dwukrotnie = na tej samej linii jest nieco zbyt wiele.

Answer 2

Nie sądzę, że to lepiej niż funkcja Vityata, ale tylko jako alternatywę:

Function isIterable(obj As Object) As Boolean 

    On Error Resume Next 

    isIterable = TypeName(CallByName(obj, "_NewEnum", VbGet)) = "Unknown" 
    If Not isIterable Then isIterable = TypeName(CallByName(obj, "_NewEnum", VbMethod)) = "Unknown" 

End Function