VBA没有直接提供函数获取数组的维度，一般的做法是通过错误捕获来得到：

'获取数组的维度Function GetArrayDimsByErr(v As Variant) As Long    If Not VBA.IsArray(v) Then        GetArrayDimsByErr = 0        Exit Function    End If        On Error Resume Next    Dim tmp As Long    GetArrayDimsByErr = -1    Do Until Err.Number <> 0        GetArrayDimsByErr = GetArrayDimsByErr + 1        tmp = UBound(v, GetArrayDimsByErr + 1)    Loop    On Error GoTo 0End Function

在数据类型Array中，我们知道了数组的底层结构，其中cDims就是指明数组维度的，那么，我们只需要读取到cDims的值就可以了：

Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)Private Type SafeArrayBound    cElements As Long '// 该维的长度    lLbound   As Long ' // 该维的数组存取的下限，一般为0End TypePrivate Type SafeArray    cDims      As Integer ' // 数组的维度    fFeatures  As Integer '    cbElements As Long ' // 数组元素的字节大小    cLocksas   As Long '    pvDataas   As Long ' // 数组的数据指针    rgsabound() As SafeArrayBoundEnd Type'获取数组的维度Function GetArrayDims(v As Variant) As Long    If Not VBA.IsArray(v) Then        GetArrayDims = 0        Exit Function    End If        Dim ptr As Long    Dim sa As SafeArray        ptr = MyArrayPtr(v)        CopyMemory VarPtr(sa.cDims), ptr, 4        GetArrayDims = sa.cDimsEnd FunctionFunction MyArrayPtr(ByRef v As Variant) As Long    Dim b(16 - 1) As Byte        CopyMemory VarPtr(b(0)), VarPtr(v), 16        Dim ptr As Long    CopyMemory VarPtr(ptr), VarPtr(b(8)), 4'    - 0x20 8-11存的是数组地址'    - 0x60 8-11存的是数组地址的地址    If b(1) = &H60 Then        CopyMemory VarPtr(ptr), ptr, 4    End If        MyArrayPtr = ptrEnd Function

VBA 学习

学习使用Excel VBA

176篇原创内容 -->

公众号

本文使用 文章同步助手 同步