本文共 1681 字，大约阅读时间需要 5 分钟。

字典是VBA中经常使用的对象，有时需要将字典对象中保存数据转为数组，然后做进一步处理，在使用过程中经常会遇到数组下标越界之类的问题，下面就讲讲字典到数组的转换。

Sub Demo()    Dim arr1, arr2, arr3    Set objDic = CreateObject("Scripting.Dictionary")    For i = 1 To 5        objDic(i) = i    Next i    Debug.Print "> items直接赋值给数组："    arr1 = objDic.items    Call GetArrBound(arr1)    Debug.Print "> 数组第一次转置："    arr2 = Application.Transpose(arr1)    Call GetArrBound(arr2)    Debug.Print "> 数组第二次转置："    arr3 = Application.Transpose(arr2)    Call GetArrBound(arr3)    Set objDic = NothingEnd SubSub GetArrBound(arr)    Dim intArrDim As Integer, n    intArrDim = fnGetArrayDimension(arr)    Debug.Print ">>数组维度:" & intArrDim    For n = 1 To intArrDim        Debug.Print ">>>第" & n & "维下界:" & LBound(arr, n) & ", 上界:" & UBound(arr, n)    Next    Debug.Print Application.Rept("=", 20)End SubFunction fnGetArrayDimension(arr) As Integer    Dim tmp, i    On Error Resume Next    For i = 1 To 60        Err.Clear        tmp = UBound(arr, i)        If Err.Number = 9 Then            fnGetArrayDimension = i - 1            Exit Function        End If    Next iEnd Function

运行Demo过程立即窗口中的输出如下：

> items直接赋值给数组：>>数组维度:1>>>第1维下界:0, 上界:4

第11行代码将数组进行一次转置，此时生成的数组arr2变为二维数组，对应立即窗口的输出如下。

> 数组第一次转置：>>数组维度:2>>>第1维下界:1, 上界:5>>>第2维下界:1, 上界:1

第14行代码将数组再进行一次转置，此时生成的数组arr3为一维数组，对应立即窗口的输出如下。虽然经过两次转置，数组变回一维数组，但是数组的下届和上界都发生了变化，在代码中引用数组时需要注意下标的范围。

> 数组第二次转置：>>数组维度:1>>>第1维下界:1, 上界:5

第18~26行代码为GetArrBound过程用于获取并输出数组每个维度的上界和下届。