arrays - 将字符串从数组传递给函数的类型不匹配错误(在 VBA 中)

Question

我有这样的代码

Sub Test()
    Dim ArrayStrings()
    Dim T As String, myResult As String

    ArrayStrings = Array("String1", "String2", "String3", "String4", "String5", "StringN")
    T = "myString"

    myResult = myFunction(T, ArrayStrings(1))
End Sub

Function myFunction(Tx1 As String, Tx2 As String) As String
    'myCode
End Function

这会在“ArrayStrings(1)”上出现错误“类型不匹配”

我尝试了不同的方法，但唯一的工作似乎是:

    myResult = myFunction(T, CStr(ArrayStrings(1)))

但是将字符串转换为字符串似乎很奇怪......不是吗？
还有其他方法吗？

Answer 1

尝试将您的数组转换为变体，然后将其传递给函数。

Option Explicit

Sub Test()
    Dim arr() As Variant
    Dim str As String

    arr = Array("1", "2", "3")
    str = "Hello, world!"

    MsgBox myFunction(str, arr)
End Sub

Function myFunction(str As String, arr As Variant) As String
    Dim var As Variant
    Dim strOutput As String

    For Each var In arr
        strOutput = strOutput & " " & var
    Next var

    myFunction = strOutput
End Function