添加表头后，如何让SQL Select从Excel第8行开始读取数据？

核心问题原因 #

OLEDB驱动默认从工作表第一行开始识别数据，而你的实际数据（含字段名）从第8行才开始，前面1-7行的表头干扰了驱动对数据区域的识别，导致查询异常。

直接解决方案 #

1. 明确指定SQL查询的数据范围 #

在SQL语句的工作表名称后，加上数据起始行的范围，告诉驱动从第8行开始读取数据。把原来的[InboundOutbound$]改成[InboundOutbound$A8:ZZ]（ZZ是足够大的列范围，覆盖所有数据列），同时用IN语句简化多个OR的条件，让代码更简洁。

修改后的查询语句：

sortQuery = "Select [vrid],[route],[schedule_date],[vehicle_carrier],[actual_vehicle],[carrier_name],[orig_planned_yard_checkin_time],[orig_planned_yard_checkout_time],[dest_node],[orig_node] from [InboundOutbound$A8:ZZ] where [orig_node] in ('Birmingham','Bristol','London','Newcastle','Exeter')"

2. 确认连接字符串的HDR设置 #

因为第8行是你数据的字段名（表头），保持连接字符串里的HDR=YES即可，这样驱动会把第8行当作字段名，后续行作为数据内容。如果第8行开始是纯数据无字段名，才需要改成HDR=NO，此时SQL会用F1、F2这类默认字段名，你要对应调整Select中的字段名。

3. 完整修改后的VBA代码 #

Sub SortSchedule()
    Dim conn As New ADODB.Connection
    
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & _
    ";Extended Properties=""Excel 12.0;HDR=YES;"";"
    
    Dim sortQuery As String
    ' 指定从A8开始的数据范围，用IN简化多条件判断
    sortQuery = "Select [vrid],[route],[schedule_date],[vehicle_carrier],[actual_vehicle],[carrier_name],[orig_planned_yard_checkin_time],[orig_planned_yard_checkout_time],[dest_node],[orig_node] from [InboundOutbound$A8:ZZ] where [orig_node] in ('Birmingham','Bristol','London','Newcastle','Exeter')"        
       
    Dim nrs As New ADODB.Recordset
    nrs.Open sortQuery, conn
    
    Dim wSht As Worksheet
    Set wSht = ThisWorkbook.Worksheets("Sort")
    
    With wSht
        .Cells.ClearContents
        ' 将字段名写入第7行
        For i = 0 To nrs.Fields.Count - 1
            .Cells(7, i + 1).Value = nrs.Fields(i).Name
        Next i
        ' 从第8行开始写入查询结果
        .Range("A8").CopyFromRecordset nrs
    End With
    
    conn.Close
End Sub

额外提示 #

• 如果数据列数固定，可把ZZ改成具体的列号，比如[InboundOutbound$A8:J]（假设数据到J列），避免读取多余空列。
• 检查工作表名InboundOutbound是否和实际完全一致，包括大小写和空格。
• 确保第8行的字段名和SQL中Select的字段名完全匹配，不要有拼写错误或空格差异。

内容的提问来源于stack exchange，提问作者F.OLeary