数组本身就可以包含多个成员,无需定义多余变量,参考代码如下:
Sub Test()Dim strMB(1 To 2) As String
strMB(1) = "甲,乙"
strMB(2) = "丙,丁"
Dim intIndex As Integer
Dim varArray(1 To 2) As Variant
For intIndex = 1 To 2
varArray(intIndex) = Split(strMB(intIndex), ",")
Next
End Sub
将变量 varArray 添加到监视窗口后的显示结果如图所示:
此时的 varArray 数组实际上是一个嵌套数组,varArray(1) 和 varArray(2) 是 varArray 数组的两个成员,而它们本身又是一个分别嵌套了 varArray(1)(0 To 1) 和 varArray(2)(0 To 1) 这两个数组的数组!
VARIANT 获得的接口是IDiapatch接口,
c代码
VARIANT var;
IDispatch pDispatch
if(varvt==VT_BYREF|VT_DISPATCH)
{
pDispatch=varppdispVal
}
else if(varvt==VT_DISPATCH)
{
pDispatch=varpdispVal
}
以上就是关于Excel vba 数组批量赋值有其他好的表达方式达到所要的结果吗全部的内容,包括:Excel vba 数组批量赋值有其他好的表达方式达到所要的结果吗、如何转换olevariant或variant为接口类型interface、等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)