含复杂列名的Excel表VBA查询报错，求不改列名的解决方案

问题原因 #

你的代码存在两个关键问题导致报错：

1. 连接字符串引号转义错误：VBA中字符串内的双引号需用两个双引号""转义，而非反斜杠\，原代码里的\"\"写法不符合VBA语法，会导致连接参数解析失败。
2. 特殊列名引用方式不当：对于以数字开头、包含点号或括号的列名，仅用方括号[]包裹在部分OLEDB版本中无法正确识别，需要调整引用格式。

修正后的代码 #

Sub processPatientInformation()
    '--- 声明变量存储连接、结果和SQL查询语句
    Dim connection As Object, result As Object, sql As String, recordCount As Integer
    
    '--- 连接当前Excel文件数据源
    Set connection = CreateObject("ADODB.Connection")
    
    With connection
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        ' 修正连接字符串的引号转义，使用VBA标准双引号转义方式
        .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";" & _
                            "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
        .Open
    End With
    
    ' 对特殊列名使用反引号包裹，确保OLEDB能正确解析
    sql = "SELECT [Club ID], [Last Name], [First Name], [`6. Date of birth`], [`Region (by Zip code)`] FROM [players$A1:V184]"
    
    '--- 执行SQL查询
    Set result = connection.Execute(sql)
    
    Call Module1.createCSVfile(result, "C:\resultados.csv")
    
    ' 关闭连接释放资源
    connection.Close
    Set connection = Nothing
    Set result = Nothing
End Sub

备选兼容方案 #

如果反引号写法仍不生效，可尝试将列名改用方括号嵌套双引号的格式，适配部分旧版OLEDB驱动：

sql = "SELECT [Club ID], [Last Name], [First Name], [""6. Date of birth""], [""Region (by Zip code)""] FROM [players$A1:V184]"

注意事项 #

• 确保players$A1:V184范围包含所有目标列，且表头行的列名与SQL中引用的完全一致（包括空格、标点符号）。

内容的提问来源于stack exchange，提问作者Jose Cabrera Zuniga