怎样判断数组为空值？

babawu

就像C语言中判断一个数组是否为空
if（a==null）
vba中用什么方法来判断呢？
dim a() as integer
使用边界函数ubound和lbound都报越界错误
谁有办法？

y3231057

Sub y3231057()
Dim a() As Integer
On Error Resume Next
If UBound(a()) < 1 Then
    MsgBox "数组为空"
End If
End Sub

babawu

如果有其它错误处理的情况下，这种方法不太方便，
期待其它方法！

johnny05

二楼的方法就是不错的

linpansheng

学习一下，以前没遇过

northwolves

参考：
http://blog.csdn.net/northwolves/archive/2006/04/24/674545.aspx

johnny05

谢谢狼版的分享

y3231057

直接把狼版的代码贴过来，方便大家查阅
Sub diag()
Dim msg As String
Dim arr1() As String, arr2() As String, arr3() As Date, arr4() As Date, arr5() As Range, arr6() As Range
msg = "arr1 " & IIf(SafeArrayGetDim(arr1) > 0, "数组不为空!", "数组为空!")
arr2 = Split("一、二、三、四、五、六", "、")
msg = msg & vbCrLf & "arr2 " & IIf(SafeArrayGetDim(arr2) > 0, "数组不为空!", "数组为空!")
msg = msg & vbCrLf & "arr3 " & IIf(SafeArrayGetDim(arr3) > 0, "数组不为空!", "数组为空!")
ReDim arr4(1 To 100)
msg = msg & vbCrLf & "arr4 " & IIf(SafeArrayGetDim(arr4) > 0, "数组不为空!", "数组为空!")
ReDim arr6(1 To 256, 1 To 65536)
msg = msg & vbCrLf & "arr5 " & IIf(SafeArrayGetDim(arr5) > 0, "数组不为空!", "数组为空!")
msg = msg & vbCrLf & "arr6 " & IIf(SafeArrayGetDim(arr6) > 0, "数组不为空!", "数组为空!")
MsgBox msg
End Sub

Flush

学习~~~~~~~~~~~~

yagi2008

DIM A() AS INTEGER
该语句声明了一个动态数组，必须在过程级别中使用；同时，在使用前，必须用REDIM为动态数组变量重新分配存储空间