VBA报错ByRef参数类型不匹配：多工作簿数据导入故障求助

问题定位 #

你遇到的错误出现在IsWorkbookOpen(tlNames(i))调用处，核心原因是参数类型的按引用传递不匹配。

错误原因 #

• tlNames被声明为Variant类型数组，数组中元素本质是字符串，但传递时仍保持Variant类型
• IsWorkbookOpen函数的参数wbName As String默认采用**ByRef（按引用传递）**规则，VBA对ByRef参数的类型匹配要求严格，Variant与String类型不兼容，因此触发类型不匹配错误

解决方案（三种任选其一） #

方案1：修改函数参数为ByVal（推荐） #

由于IsWorkbookOpen和SheetExists仅读取参数值、无需修改原变量，将参数改为按值传递（ByVal）可彻底避免类型匹配问题，同时提升函数封装性：

' 修改后的SheetExists函数
Function SheetExists(ByVal sheetName As String) As Boolean
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(sheetName)
    On Error GoTo 0
    SheetExists = Not ws Is Nothing
End Function

' 修改后的IsWorkbookOpen函数
Function IsWorkbookOpen(ByVal wbName As String) As Boolean
    Dim wb As Workbook
    On Error Resume Next
    Set wb = Workbooks(wbName)
    On Error GoTo 0
    IsWorkbookOpen = Not wb Is Nothing
End Function

方案2：调用时显式转换类型 #

在调用函数时，将tlNames(i)强制转换为String类型：

' 替换原调用行
If IsWorkbookOpen(CStr(tlNames(i))) Then

方案3：直接声明String类型数组 #

将tlNames从Variant数组改为String数组，从根源上保证类型一致：

' 替换原声明和初始化代码
Dim tlNames() As String
tlNames = Split("Josh_TL.xlsm,Sandra_TL.xlsm", ",")

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