Kiểm tra xem giá trị có thể lặp lại vba

Question

Trong nhiều ngôn ngữ có thể kiểm tra xem một đối tượng có thể lặp lại hay không, làm cách nào để thực hiện điều này cho VBA?

tôi có thể thử:

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 

Nhưng tôi tự hỏi, nếu có một dựng sẵn hoặc một cách tiếp cận tốt hơn?

Answer 1

Có một built-in chức năng: số

Có một cách tiếp cận tốt hơn?:

tôi sẽ thực hiện nó như thế này:

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 

Bởi vì đặt hai lần = trên cùng một dòng là một chút quá nhiều.

Answer 2

Tôi không nghĩ rằng đó là bất kỳ tốt hơn so với chức năng Vityata, nhưng cũng giống như một sự thay thế:

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