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

最新推荐文章于 2025-07-21 14:47:06 发布

原创最新推荐文章于 2025-07-21 14:47:06 发布 · 2.9w 阅读

6 ·

CC 4.0 BY-SA版权

语言-VBA 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一种使用VBA编写的公共函数来获取数组长度的方法。通过定义Public Function ArrayLength，该函数接受一个数组参数，并返回数组的有效元素数量。示例展示了如何声明数组并使用Split函数分割字符串为数组，然后调用ArrayLength函数获取并显示数组长度。

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