Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long

dim bytData() as byte
debug.print SafeArrayGetDim(bytdata) '些时 = 0       '数组为空
redim bytdata(任一数)
debug.print  SafeArrayGetDim(bytdata)  '些时= -1  数组有元素，用ubounD不会出错
Erase   bytData
debug.print SafeArrayGetDim(bytdata)  '些时= 0       '些时数组又为空了

所以用if SafeArrayGetDim(bytdata)=0 来判断数组是否为空
---------------------
【转载，仅作分享，侵删】
作者：蔡健常熟
原文：https://blog.csdn.net/Athoncj/article/details/1459812

奈斯