我明白你折腾了好几个小时的挫败感——明明用SELECT *能正常跑，指定列名就报错找不到，确实挺闹心的。咱们来一步步排查解决这个问题：

可能的原因与解决方案 #

1. 先确认Excel表的实际列名 #

有时候Excel里的列标题看起来是ShopCode，但可能藏着看不见的空格（开头/结尾），或者大小写有细微差异（虽然ACE OLEDB通常不区分，但偶尔会有例外）。你可以先跑一段代码打印出所有字段的真实名称：

' 在执行查询后添加这段代码
Dim i As Integer
For i = 0 To rs.Fields.Count - 1
    Debug.Print "实际字段名：" & rs.Fields(i).Name
Next i

把打印出来的字段名原封不动复制到你的SQL语句里，避免手动输入带来的误差。

2. 简化SQL的列引用方式 #

当只查询单张表的列时，完全不需要加上表名前缀[Shops$].，直接写列名就行。试试把SQL改成：

sql = "SELECT ShopCode FROM [Shops$] WHERE ShopCode > 6000"

Excel作为数据源时，额外的表名前缀反而可能让驱动解析出错。

3. 检查HDR参数与标题行的有效性 #

你的连接字符串里设置了HDR=YES，这表示驱动会把工作表第一行当作列标题。如果你的Shops表第一行不是标准标题（比如有合并单元格、空标题列，或者第一行就是数据），驱动会错误地把数据行当成列名，自然找不到你要的ShopCode。

4. 用方括号包裹列名（兜底方案） #

如果列名里有空格、特殊字符，或者刚好和SQL关键字冲突，必须用方括号包裹。你的ShopCode看起来是正常的，但也可以试试：

sql = "SELECT [ShopCode] FROM [Shops$] WHERE [ShopCode] > 6000"

修改后的完整示例代码 #

Sub RunSELECT()
    Dim cn As Object, rs As Object, output As String, sql As String
    '---连接数据源---
    Set cn = CreateObject("ADODB.Connection")
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";" & _
            "Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
        .Open
    End With
    '---执行SQL SELECT查询---
    sql = "SELECT ShopCode FROM [Shops$] WHERE ShopCode > 6000"
    Set rs = cn.Execute(sql)
    
    ' 打印真实字段名，用于排查
    Dim i As Integer
    For i = 0 To rs.Fields.Count - 1
        Debug.Print "真实字段名：" & rs.Fields(i).Name
    Next i
    
    Do
        output = output & rs(0) & vbNewLine
        Debug.Print rs(0)
        rs.MoveNext
    Loop Until rs.EOF
    MsgBox output
    '---清理资源---
    rs.Close
    cn.Close
    Set cn = Nothing
    Set rs = Nothing
End Sub

先试试打印字段名的方法，确认实际的列名是什么，再对应调整SQL语句，应该就能解决问题了。

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