VBA使用ADODB记录集跨Excel多工作表查询报类型不匹配错误

你遇到的「类型不匹配」错误由两个明确问题触发，附带一个隐藏的关联字段类型兼容隐患：

• 最直接的触发原因：你的两条SQL语句都只查询了[Sheet1$].EMPLOYEEID这1个字段，但弹窗代码尝试读取mrs.Fields(1)。ADODB记录集的字段索引从0开始计数，索引1对应查询结果的第二个字段，读取不存在的字段会直接抛出类型不匹配/下标越界错误。
• 连接字符串存在语法错误：你写的连接字符串末尾多了一个冗余单引号，会导致连接初始化行为异常。
• 隐藏的类型兼容隐患：默认的Excel ODBC驱动会根据列前8行数据推断数据类型，如果关联条件里的两列（EMPLOYEEID和PPTID、UNION_CD和UNID）被推断为不同类型（比如一列是数值、一列是文本），JOIN关联时也会触发类型不匹配。

修复后完整代码 #

Dim sSQLQry As String
Dim conn As New ADODB.Connection
Dim mrs As New ADODB.Recordset
Dim DBpath As String
Dim sconnect As String

Private Sub Generate_Testcase_Click()
    DBpath = ThisWorkbook.FullName
    ' 替换为更稳定的ACE OLEDB驱动，加IMEX=1强制混合类型列按文本读取，避免类型推断不一致
    sconnect = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBpath & ";Extended Properties=""Excel 12.0 Xml;HDR=Yes;IMEX=1"";"
    conn.Open sconnect

    ' 表加别名简化写法，需要返回的字段全部写在SELECT后，示例返回员工ID和匹配的PPTID
    sSQLQry = "SELECT TOP 1 s1.EMPLOYEEID, s2.PPTID FROM [Sheet1$] s1 INNER JOIN [Sheet2$] s2 ON s1.EMPLOYEEID = s2.PPTID AND s2.UNION_CD = s1.UNID"

    mrs.Open sSQLQry, conn, adOpenStatic, adLockReadOnly
    ' 字段索引和SELECT后写的字段顺序一一对应，从0开始计数
    MsgBox mrs.Fields(0).Value & " , " & mrs.Fields(1).Value
    
    ' 增加状态判断，避免对象未打开时执行Close报错
    If mrs.State = adStateOpen Then mrs.Close
    If conn.State = adStateOpen Then conn.Close
    ' 释放对象占用
    Set mrs = Nothing
    Set conn = Nothing
End Sub

补充说明 #

• 如果你使用64位Office且未安装ACE OLEDB驱动，也可以换回MSDASQL连接方式，但必须在连接参数里加上IMEX=1，强制混合数据类型统一按文本处理，避免关联字段类型不匹配。
• 写查询时SELECT后声明了多少个字段，才能读取对应数量的Fields索引，不要超出范围读取。
• 多表关联时给工作表起短别名，能减少长表名重复书写导致的拼写错误。

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