求助：Excel宏SQL查询含回车开头表头字段的解决方案

我之前也碰到过类似的棘手情况，尤其是面对这种没法修改的奇葩表头时，确实头疼。针对你遇到的表头以回车开头的问题，这里有几个可行的解决方案，你可以逐一尝试：

• 直接在VBA中拼接回车符到字段名里
  因为表头开头的回车本质是换行符（对应VBA里的vbLf，也就是ASCII的CHAR(10)），你可以直接把这个字符拼接到SQL的方括号内字段名开头，让SQL引擎准确识别这个字段：

  sSQL = "SELECT " & _
         "[" & vbLf & "Dependant Name* (LastName, FirstName (Type))]" & _
         " FROM [YourSheet$] " & _
         " WHERE ..."
  

  如果回车是回车换行（vbCrLf），就换成vbCrLf试试，根据实际表头的换行类型调整。

• 给字段加别名简化调用
  既然字段名本身很复杂，不如给它起个简洁的别名，后续处理也更方便，同时确保原字段名被正确识别：

  sSQL = "SELECT " & _
         "[" & vbLf & "Dependant Name* (LastName, FirstName (Type))] AS DependantName" & _
         " FROM [YourSheet$] " & _
         " WHERE ..."
  

  之后你就可以用DependantName来引用这个字段，不用再反复写冗长的原字段名。

• 通过系统表获取准确的字段名
  如果上面的方法都不生效，你可以先通过ADODB连接查询工作表的字段元数据，拿到包含开头回车的准确字段名，再动态拼接到SQL里：

  Dim conn As Object
  Dim rs As Object
  Dim targetFieldName As String
  
  Set conn = CreateObject("ADODB.Connection")
  ' 替换成你的目标工作簿路径
  conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\TargetFile.xlsx;Extended Properties=""Excel 12.0 Xml;HDR=YES"""
  
  ' 替换成你的工作表名称
  Set rs = conn.OpenSchema(adSchemaColumns, Array(Empty, Empty, "YourSheetName"))
  
  Do While Not rs.EOF
      ' 打印所有字段名，找到你需要的那个（开头带回车的）
      Debug.Print rs("COLUMN_NAME")
      ' 如果匹配到目标字段，保存下来
      If InStr(rs("COLUMN_NAME"), "Dependant Name") > 0 Then
          targetFieldName = rs("COLUMN_NAME")
          Exit Do
      End If
      rs.MoveNext
  Loop
  
  ' 用拿到的准确字段名拼接SQL
  sSQL = "SELECT [" & targetFieldName & "] FROM [YourSheet$] WHERE ..."
  
  rs.Close
  conn.Close
  

  运行这段代码后，你可以在VBA的即时窗口（Ctrl+G）看到带回车的字段名，直接复制这个值来用也可以。

重要注意事项 #

确保你的ADODB连接字符串里设置了HDR=YES，这个参数告诉引擎第一行是表头，否则会把表头当成普通数据行，自然找不到对应的字段。

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