Function to return Number of Dimensions to an Array?

[HedgePig]

I thought Excel VBA had a built in function which returned the number of dimensions to an array - but I can't find it in the online help. Is there such a function?

HedgePig

P.S. I wrote a little function myself but I really want to find the name of that built-in function!

Sub TestDimensionsCount()
Dim testarray(1, 2, 3)
MsgBox NumDims(testarray)
End Sub

'Returns the number of dimensions of the array parameter
Function NumDims(a As Variant) As Integer

If Not IsArray(a) Then
NumDims = 0
Exit Function
End If

NumDims = 1
On Error GoTo NoMoreDimsErr
Do
ub = UBound(a, NumDims)
NumDims = NumDims + 1
Loop

NoMoreDimsErr:
NumDims = NumDims - 1
On Error GoTo 0
End Function

 

[Juan Pablo González]

There's no builtin function to do that.

 

[NateO]

Hello,

See the following:

http://www.mrexcel.com/board2/viewtopic.php?t=60437&start=2

 

[HedgePig]

Juan

Thanks for the reply, Juan. I would have sworn that I'd used that missing built-in function before. Maybe I ended up writing same little function myself and had forgotten about it! Anyhow thanks for confirming that I'm suffering from a memory leak and that there is indeed no such function

Yours forgetfully
HedgePig

 

[NateO]

There isn't a native VB function per se, but a udf will work, see my link. :wink:

 

[HedgePig]

Thanks for your reply, Nate

Actually I had come across your post when searching the board but was convinced that there was an internal function. By the way, what's a udf?

Yours in a random dimension
HedgePig

 

[NateO]

Nope, there is no native functionality of this nature to be found. This api trickery should be pretty quick-like though.

UDF = User Defined Function.

Bon chance.