【SolidWorks宏】VBA 获取数组的长度

最新推荐文章于 2022-05-21 09:47:54 发布

少莫千华

最新推荐文章于 2022-05-21 09:47:54 发布

阅读量2.9w

点赞数

分类专栏：语言-VBA

本文链接：https://blog.csdn.net/chenlu5201314/article/details/80287293

版权

语言-VBA 专栏收录该内容

7 篇文章 2 订阅

订阅专栏

REM "获取数组长度"
Public Function ArrayLength(ByVal ary) As Integer
    ArrayLength = UBound(ary) - LBound(ary) + 1
End Function

REM "调用示例"
Sub SplitSample()
    '声明
    Dim temp() As String
    Dim EgStr As String

    '执行过程
    EgStr = "str1   str2    str3"
    temp = Split(EgStr, " ")
    MsgBox(ArrayLength(temp))
End Sub