Excel VBA用ADODB连接SQL遇‘找不到ISAM文件’错误的解决方法

核心问题分析 #

你的连接字符串缺少关键的Extended Properties参数，且字符串拼接存在语法问题，这是触发该错误的主要原因。

修正后的完整连接代码 #

以下是适配32位Excel 2019的正确实现：

Sub ConnectToExcelWithADODB()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim PWRQRYFilePath As String
    Dim strConn As String
    Dim strSQL As String
    
    ' 替换为你的目标Excel文件路径
    PWRQRYFilePath = "C:\YourTargetFile.xlsx"
    
    ' 构建正确的连接字符串
    strConn = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
              "Data Source=" & PWRQRYFilePath & ";" & _
              "Extended Properties=""Excel 12.0 Xml;HDR=YES;"""
    
    ' 初始化并打开连接
    Set conn = New ADODB.Connection
    conn.Open strConn
    
    ' 示例：两个工作表内连接的SQL查询
    strSQL = "SELECT t1.*, t2.TargetColumn " & _
             "FROM [Sheet1$] t1 " & _
             "INNER JOIN [Sheet2$] t2 ON t1.ID = t2.ID"
    
    ' 执行查询并获取结果
    Set rs = conn.Execute(strSQL)
    
    ' 将查询结果输出到新工作表（可选操作）
    ThisWorkbook.Sheets.Add.Name = "QueryResult"
    ThisWorkbook.Sheets("QueryResult").Range("A1").CopyFromRecordset rs
    
    ' 清理资源
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

关键修正点说明 #

• 补全连接参数：添加Extended Properties配置，其中：
  • Excel 12.0 Xml：适配.xlsx格式文件（若为.xls格式，改为Excel 8.0）
  • HDR=YES：表示工作表第一行是表头（无表头时设为HDR=NO）
• 修复字符串拼接：用& _实现换行拼接，避免引号、换行导致的语法错误
• 规范工作表引用：SQL中引用工作表必须使用[工作表名$]的格式

额外注意事项 #

• 确保目标Excel文件未被其他程序锁定（如已在另一窗口打开）
• 32位Excel需匹配使用32位ACE驱动（Excel 2019默认已预装）
• 若文件路径包含空格或特殊字符，需用双引号包裹路径

内容的提问来源于stack exchange，提问作者Ernesto De Luna