使用UserForm导出Excel工作表为PDF时数组类型不匹配报错排查

错误核心原因 #

你遇到的「类型不匹配：需要数组或用户定义类型」错误，大概率是以下两种情况：

1. 调用ConcatenateArrays时，传入的参数不是有效数组（比如是单个工作表名称/对象，或是未初始化的空变量）
2. 两个待拼接的数组类型不兼容（比如一个是字符串数组，一个是变体数组）

修正步骤与代码示例 #

1. 正确初始化导出列表数组 #

在UserForm模块顶部声明并初始化空数组，避免后续拼接时传入非数组参数：

' 声明用于存储选中工作表名称的数组
Private exportSheets() As Variant

' 在窗体初始化时创建空数组
Private Sub UserForm_Initialize()
    ReDim exportSheets(0 To -1) ' 初始化长度为0的空数组
End Sub

2. 复选框点击事件的数组操作 #

直接用ReDim Preserve实现元素添加/移除，比调用拼接函数更直观，也避免类型问题：

' 示例：Sheet1对应的复选框点击事件
Private Sub CheckBox1_Click()
    Dim targetSheetName As String
    targetSheetName = "Sheet1" ' 替换为对应工作表的名称
    
    If CheckBox1.Value = True Then
        ' 勾选时添加到数组
        ReDim Preserve exportSheets(UBound(exportSheets) + 1)
        exportSheets(UBound(exportSheets)) = targetSheetName
    Else
        ' 取消勾选时从数组移除
        Dim i As Integer, tempArr() As Variant, newIndex As Integer
        newIndex = 0
        ReDim tempArr(0 To UBound(exportSheets))
        
        For i = LBound(exportSheets) To UBound(exportSheets)
            If exportSheets(i) <> targetSheetName Then
                tempArr(newIndex) = exportSheets(i)
                newIndex = newIndex + 1
            End If
        Next i
        
        ReDim Preserve tempArr(0 To newIndex - 1)
        exportSheets = tempArr
    End If
End Sub

其他复选框的事件代码直接复制上述逻辑，修改targetSheetName为对应工作表名称即可。

3. 导出PDF的核心代码 #

确保导出时数组不为空，再转换为工作表集合执行导出：

Private Sub cmdExportPDF_Click()
    ' 检查是否选中了工作表
    If UBound(exportSheets) < 0 Then
        MsgBox "请至少选择一个工作表"
        Exit Sub
    End If
    
    ' 将数组转换为工作表集合
    Dim sheetsToExport As Sheets
    Set sheetsToExport = ThisWorkbook.Sheets(exportSheets)
    
    ' 执行PDF导出
    sheetsToExport.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\导出结果.pdf", _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True
End Sub

4. 若仍需使用ConcatenateArrays函数的修正版 #

如果一定要保留拼接函数，需先做数组有效性校验：

Function ConcatenateArrays(arr1 As Variant, arr2 As Variant) As Variant
    ' 先校验参数是否为数组
    If Not IsArray(arr1) Or Not IsArray(arr2) Then
        Err.Raise vbObjectError + 1001, , "参数必须为有效数组"
    End If
    
    Dim result() As Variant
    Dim i As Integer, j As Integer
    
    ' 初始化结果数组长度
    ReDim result(LBound(arr1) To UBound(arr1) + UBound(arr2) - LBound(arr2) + 1)
    
    ' 复制第一个数组元素
    For i = LBound(arr1) To UBound(arr1)
        result(i) = arr1(i)
    Next i
    
    ' 复制第二个数组元素
    For j = LBound(arr2) To UBound(arr2)
        result(i) = arr2(j)
        i = i + 1
    Next j
    
    ConcatenateArrays = result
End Function

内容的提问来源于stack exchange，提问作者Víctor Eduardo Avilés Romo