怎麼才能知道是不是空數組呢？

[luckit]

Dim aEmptyArray() As Long
iUBound = UBound(aEmptyArray)===>報錯

[null1027]

Dim aEmptyArray() As Long

on error goto error

iUBound = UBound(aEmptyArray)

error:
msgbox "数组为空"

可以用这个办法作一个函数检查数组是否为空

[null1027]

Dim aEmptyArray() As Long

on error goto error

iUBound = UBound(aEmptyArray)

error:
msgbox "数组为空"