在许多语言中都可以检查对象是否可迭代,我该如何在 VBA 中执行此操作?
我可以尝试:
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
但我想知道是否有内置或更好的方法?
最佳答案
是否有内置函数: 没有。
有更好的方法吗?:
我会这样做:
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
因为在同一行上放置两次 =
有点太多了。
关于vba - 检查值是否可迭代vba,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/47597138/