VBA: 判断动态数组是否为空

文章背景：在VBA代码中，有时需要创建动态数组，然后对该动态数组进行操作。如果该数组为空，在使用一些函数（如Lbound，Ubound等）时，代码会报错。因此，需要事先判断动态数组是否为空。下面介绍一个判断动态数组是否为空的自定义函数。

Function EmptyArr(ByRef x() As String) As Boolean

    '判断数组是否为空的自定义函数
    '若是空数组，结果为 True
    '若不是空数据，结果为False
    
    Dim tempStr As String
    
    tempStr = Join(x, ",")
    
    EmptyArr = LenB(tempStr) <= 0
    
End Function

示例：http://mpvideo.qpic.cn/0b78wuaacaaa5qacnyr2qrqvbnodag2qaaia.f10002.mp4?dis_k=2d78c6d67d9a3cc8167137356bf1f3ad&dis_t=1663655942&vid=wxv_2040257817898549249&format_id=10002&support_redirect=0&mmversion=false

参考资料：

[1] 关于Excel VBA判断数组为空的问题（https://www.debugease.com/vb/764940.html）