VarType函数-杨雪专栏

语法:

VarType (varname)

必需的 varname 参数是一个 Variant，其中包含除用户定义类型的变量之外的任何变量。

返回值:
返回下列常量之一或其中一个常量的和。

常量                    值         说明
vbEmpty   0 空（未初始化）
vbNull   1 Null（不是有效数据）
vbInteger   2 Integer
vbLong   3 长整数
vbSingle   4 单精度浮点数
vbDouble   5 双精度浮点数
vbCurrency  6 货币值
vbDate   7 日期值
vbString   8 String
vbObject   9 Object
vbError   10 错误值
vbBoolean  11 布尔值
vbVariant   12 Variant（仅与变量的数组一起使用）
vbDataObject  13 数据访问对象
vbDecimal  14 小数值
vbByte   17 字节值
vbLongLong  20 LongLong 整数 (仅在 64 位平台上)
vbUserDefinedType 36 包含用户定义类型的变量
vbArray   8192 数组 (函数返回时始终添加到另一个)

这些常量由 Visual Basic for Applications 指定。这些名称可在代码中的任何位置使用来代替实际值。

备注:
如果传递对象并且具有默认属性，则 VarType (属性) 返回对象的默认属性的类型。

VarType 函数本身绝不返回 vbArray 的值。总是将其添加到一些其他值以指示特定类型的数组。例如，为整数数组返回的值的计算方式为 vbInteger + vbArray ，或 8194。

常量 vbVariant 仅与 vbArray 一起使用以指示 VarType 函数的参数是类型 Variant 的数组。

示例:
此示例使用 VarType 函数确定不同变量的子类型，在一种情况下，确定对象的默认属性的类型。

Dim MyCheck
Dim IntVar, StrVar, DateVar, AppVar, ArrayVar
' 初始化变量
IntVar = 459: StrVar = "Hello World": DateVar = #2/12/1969#
Set AppVar = Excel.Application
ArrayVar = Array("1st Element", "2nd Element")
' 在不同的类型上运行VarType函数.
MyCheck = VarType(IntVar)   ' 返回 2.
MyCheck = VarType(DateVar)  ' 返回 7.
MyCheck = VarType(StrVar)   ' 返回 8.
MyCheck = VarType(AppVar)   ' 返回 8 (vbString)
                            ' 即使AppVar是一个对象.
MyCheck = VarType(ArrayVar) ' 返回 8204 这是
                            ' `8192 + 12`, 的计算
                            ' `vbArray + vbVariant`.