arrays - 在 VBA 中，如何将字符串拆分为数组，然后将其作为参数传递给 Sub 或 Function

Question

我的问题:

有没有办法将字符串拆分为数组，然后将其作为参数传递给需要数组的 Sub 或 Function？

<小时/>

详细信息:

下面有两个简单的 VBA Sub。 Sub foo() 将字符串拆分为数组，然后尝试将其传递给 Sub bar()。

Sub foo()
    aTest = Split("1,2,3", ",")
    bar (aTest)
End Sub

Sub bar(ByRef aArray())
    ' Do something
End Sub

但是，它们不会编译；在 bar (aTest) 行中，参数未被识别为数组。错误如下:

Compile error:
Type mismatch: array or user-defined type expected

我认为发生错误是因为编译器不会将 Split 命令解释为将变量放入数组中。 (如果这是错误的假设，请告诉我!)

Answer 1

由于您似乎不喜欢使用变体，因此您可以根据需要提供更具体的信息:

Sub foo()
    Dim aTest() As String
    aTest = Split("1,2,3", ",")
    Debug.Print TypeName(aTest) 'String()
    bar aTest
End Sub

Sub bar(ByRef aArray() As String)
    ' Do something
End Sub