Public Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long
dim a() as byte
if SafeArrayGetDim (a)>0 then
'非空
else
'空
end if
Public Declare Function SafeArrayGetDim Lib "oleaut32.dll" (ByRef saArray() As Any) As Long
dim a() as byte
if SafeArrayGetDim (a)>0 then
'非空
else
'空
end if