判断数组为空

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 来判断数组是否为空