如何获取数组的维数

在Excel VBA编程中，我们知道可以利用UBound函数来获取数组各纬度的上标。但是当超过该数组的上标时就会发生错误，所以可以利用Excel的出错来获取数组的维数。代码如下：

Function DofArray(arr) As Integer On Error Resume Next '判断是否数组 If Not IsArray(arr) Then DofArray = -1 Exit Function End If '利用出错来判断 For i = 1 To 60 aa = UBound(arr, i) If Err.Number <> 0 Then DofArray = i - 1 Exit Function End If Next End Function

用以下代码测试一下：

Sub Test() Dim A(5, 5, 4, 3, 6) MsgBox DofArray(A) End Sub