如何在Excel VBA的SQL查询中引用通过「格式化为表格」创建的ListObject？

嗨，我之前也折腾过这个问题，其实ACE OLEDB驱动对Excel里的ListObject（就是你用「格式化为表格」创建的那个）支持得很好，有两种实用的引用方式，给你详细说下：

两种引用方式 #

• 直接用表格名称引用
  当你把单元格区域格式化为表格后，这个表格的名称本身就可以作为SQL里的表名使用，不需要像普通工作表那样加$后缀。比如你的表格名叫MyTableName，SQL语句可以这么写：

  SELECT MyFirstLineHeader FROM [MyTableName]
  

  这里的方括号是用来规避名称里有空格、特殊字符或者和SQL关键字冲突的情况，如果你的表格名称规范（比如纯英文无空格），也可以省略方括号直接用。

• 指定工作表的表格（避免重名）
  如果工作簿里存在多个同名表格（虽然不推荐这么做），或者你想明确指定某张工作表里的表格，可以用[工作表名!表格名]的格式来精准引用：

  SELECT MyFirstLineHeader FROM [MyWorksheet!MyTableName]
  

完整VBA示例代码 #

把你原来的代码改成引用ListObject的版本，大概是这样：

Dim relConn As ADODB.Connection
Dim rs As ADODB.Recordset
Set relConn = CreateObject("ADODB.Connection")
relConn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
& ThisWorkbook.FullName _
& ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";;"
Set rs = CreateObject("ADODB.Recordset")

' 这里直接使用ListObject的名称作为SQL中的表
rs.Open "SELECT MyFirstLineHeader FROM [MyTableName]", relConn

While (Not rs.EOF)
    ' 这里添加你的数据处理逻辑，比如打印数据
    Debug.Print rs("MyFirstLineHeader").Value
    rs.MoveNext
Wend

' 记得清理资源
rs.Close
relConn.Close
Set rs = Nothing
Set relConn = Nothing

小提醒 #

• 确保连接字符串里的HDR=Yes设置正确，这样ListObject的表头行会被识别为列名；如果设为HDR=No，表头会被当作普通数据行，列名会变成F1、F2这类默认名称。
• 表格名称尽量避免特殊字符（除了下划线、空格这类常见的），如果必须用，一定要用方括号把名称括起来，否则SQL可能解析失败。

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