如何判断数组是几维的？

Question

呵呵！  
Function Dimension(ByRef Variable As Variant) As Integer
  Dim Ptr As Long
  If IsArray(Variable) Then
    Ptr = VarPtr(Variable) + 8      'VB-Array
    CopyMemory Ptr, ByVal Ptr, 4 'SafeArrayDescriptor
    CopyMemory Ptr, ByVal Ptr, 4 'SafeArray-Struktur
    If Ptr Then CopyMemory Dimension, ByVal Ptr, 2
  Else
    Err.Raise 13 'Type mismatch
  End If
End Function

Answer 1

呵
忘了。。还API
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)