VBA中字符串数组传参出现类型不匹配问题的原因求解

问题场景 #

开发VBA程序时，返回字符串数组的函数makeArray()调用子过程useArray()时触发编译错误：Type mismatch: Array or user-defined type expected。简化复现代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    useArray (makeArray(4)) ' 此处触发编译错误
End Sub

Function makeArray(ByVal numRows As Integer) As String()
    Dim rtnArray() As String
    ReDim rtnArray(numRows - 1) As String
    Dim i As Integer, rowCount As Integer, currentContent As String

    rowCount = 1
    i = 0
    currentContent = Worksheets("Sheet1").Cells(rowCount, 1).Value

    While currentContent <> ""
        rtnArray(i) = currentContent
        i = i + 1
        rowCount = rowCount + 1
        currentContent = Worksheets("Sheet1").Cells(rowCount, 1).Value
    Wend
    
    makeArray = rtnArray
End Function

Sub useArray(ByRef inArray() As String)
    Dim i As Integer
    For i = LBound(inArray) To UBound(inArray)
        MsgBox "INDEX: " & i & vbLf & "CONTENT: " & inArray(i)
    Next i
End Sub

将useArray的参数改为ByRef inArray As Variant后程序恢复正常，核心原因如下：

原因解析 #

1. 括号触发的强制按值传递 #

VBA中调用子过程时，加括号会强制参数按值（ByVal）传递，而非默认的按引用（ByRef）。(makeArray(4))的写法会把函数返回的字符串数组包装成临时的Variant表达式，而非直接传递数组变量。

但原useArray的参数ByRef inArray() As String要求接收的是可按引用传递的字符串数组变量，临时表达式不符合该要求，因此触发类型不匹配错误。

2. Variant类型的兼容性 #

Variant是VBA的万能数据类型，可容纳包括数组在内的任意数据类型。当参数改为ByRef inArray As Variant时，它能接收被括号强制转换后的临时表达式结果，自然不会出现类型不匹配问题。

替代解决方式（无需改用Variant参数） #

• 去掉调用时的括号，让参数按引用传递：

  useArray makeArray(4)
  

• 先将函数结果赋值给字符串数组变量，再传递变量：

  Dim tempArr() As String
  tempArr = makeArray(4)
  useArray tempArr
  

内容的提问来源于stack exchange，提问作者jsgv