gpt4 book ai didi

vba - 检查空数组的大小

转载 作者:行者123 更新时间:2023-12-01 16:11:09 26 4
gpt4 key购买 nike

Possible Duplicate:
How do I determine if an array is initialized in VB6?

我最初将数组声明为空:

Dim ArrayVar() as Variant


'May add some data, may not
if something then
Redim Preserve ArrayVar(ubound(ArrayVar,1)+1)
ArrayVar(ubound(ArrayVar,1)) = "something"
end if


'Always check size of array
if ubound(ArrayVar,1) > x

问题是有时当我检查大小时,没有添加任何内容 - 数组为空,并且出现运行时错误。我确实尝试用 Dim ArrayVar(0) as Variant 声明数组但 redim 语句无法编译。

最好的方法是什么?

最佳答案

您可以使用 IsEmpty() 函数。

请尝试以下代码:

Dim ArrayVar() As Variant

Sub x()
If IsEmpty(arrvar) Then
ReDim ArrayVar(0)
Else
ReDim Preserve ArrayVar(UBound(ArrayVar, 1) + 1)
ArrayVar(UBound(ArrayVar, 1)) = "something"
End If

MsgBox UBound(ArrayVar, 1)
End Sub

关于vba - 检查空数组的大小,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/12355460/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com