excel - 如何返回在 VBA 中传递给它的(变体)变量的维数

Question

有谁知道如何返回在 VBA 中传递给它的(变体)变量的维数？

Answer 1

Function getDimension(var As Variant) As Long
    On Error GoTo Err
    Dim i As Long
    Dim tmp As Long
    i = 0
    Do While True
        i = i + 1
        tmp = UBound(var, i)
    Loop
Err:
    getDimension = i - 1
End Function

这是我能想到的唯一方法。不太漂亮……

看MSDN，他们基本上都是这样做的。