typename可以获取一个变量的类型,然后判断是否以( )结尾可以确定是不是数组
Sub Initialize
Dim values(33) As Integer
Dim valueType As String
valueType = Typename(values)
Msgbox valueType
If ( Right(valuetype, 3) = "( )" )Then
Msgbox "Array"
End If
End Sub
typename可以获取一个变量的类型,然后判断是否以( )结尾可以确定是不是数组
Sub Initialize
Dim values(33) As Integer
Dim valueType As String
valueType = Typename(values)
Msgbox valueType
If ( Right(valuetype, 3) = "( )" )Then
Msgbox "Array"
End If
End Sub