VBA函数接收工作簿返回类数组时出现ByRef类型不匹配错误求助

核心问题分析 #

1. 数组声明方式错误：Dim ship() As New Shipped 和 Dim lineShipped() As New Shipped 这种声明属于「自动实例化数组」，每个元素会在首次访问时自动创建对象，但这类数组的类型和普通对象数组不兼容，直接赋值会触发类型不匹配错误。
2. 函数返回赋值写法问题：importRawData = lineShipped() 多了括号，会被VBA解析为取数组第一个元素，而非整个数组。
3. 对象数组初始化逻辑缺失：VBA中对象数组不能通过As New直接批量实例化，必须手动逐个创建对象实例。

修改后的代码 #

主过程代码 #

Dim rawData As Workbook
Dim ship() As Shipped ' 去掉New，声明为Shipped对象类型的数组
Dim x As String

x = "path to raw data file" ' 修正字符串引号格式
Set rawData = Workbooks.Open(x)
ship = importRawData(rawData)

函数代码 #

Function importRawData(rd As Workbook) As Shipped() ' 直接返回Shipped对象数组，替代Variant

    Dim lineShipped() As Shipped ' 去掉New，声明为对象数组
    Dim lastRow As Long
    Dim i As Long ' 新增循环变量用于实例化对象

    ' 示例：获取数据工作表的最后一行（根据实际需求修改）
    lastRow = rd.Sheets(1).Cells(rd.Sheets(1).Rows.Count, "A").End(xlUp).Row

    ReDim lineShipped(1 To lastRow) ' 使用1-based索引，符合Excel数据习惯
    ' 循环实例化每个Shipped对象并赋值属性
    For i = 1 To lastRow
        Set lineShipped(i) = New Shipped ' 手动创建每个对象实例
        ' 示例：为Shipped类属性赋值（根据你的类结构修改）
        ' lineShipped(i).OrderNumber = rd.Sheets(1).Cells(i, "A").Value
        ' lineShipped(i).ShipDate = rd.Sheets(1).Cells(i, "B").Value
    Next i

    importRawData = lineShipped ' 直接赋值数组名，无需括号
End Function

关键修改点说明 #

• 移除数组声明中的New关键字，避免自动实例化导致的类型冲突；
• 函数返回类型改为Shipped()，比Variant更明确，减少类型匹配风险；
• 对象数组必须手动逐个实例化：通过Set lineShipped(i) = New Shipped创建每个对象实例后，再赋值属性；
• 数组赋值时直接使用数组名，不要加括号，否则会被解析为单个元素而非整个数组。

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