Access VBA导出数据到Excel指定单元格出现位置偏移问题求助

核心错误为：代码中拼接结束单元格行号时，错误使用了rec.Fields.Count（返回记录集的字段总数，即列数），而非记录集的实际数据行数rec.RecordCount，直接导致Range范围异常。

现象匹配验证 #

• 异常代码对应的查询SMG 7 BL - BN 2共3个字段（BL到BN刚好3列），因此rec.Fields.Count固定返回3，你拼接的结束单元格为BN3
• 你指定的起始单元格是BL4，因此ws.Range("BL4", "BN3")属于行号倒置的非法范围，Excel会自动将其修正为行号从小到大的范围BL3:BN4，因此所有写入操作都会从修正后的起始行3开始，和你观测到的「无论指定多少起始行，都固定从第3行开始写入」的现象完全一致。
• 第一段代码看起来运行正常仅为巧合：该查询的字段数刚好大于你指定的起始行号4，拼接的结束单元格行号大于起始行号，Range未被修正，因此写入位置符合预期。

修改记录行数的获取逻辑，同时可以简化CopyFromRecordset的调用：

Set rec = db.OpenRecordset("SMG 7 BL - BN 2")
' 先移动到记录集末尾再回到开头，保证RecordCount计数准确
rec.MoveLast
rec.MoveFirst
recRowCount = rec.RecordCount ' 正确获取记录总行数
topLeft = "BL4"
With objXL
    .Visible = False
    Set wb = .Workbooks.Open(mypath)
    On Error Resume Next
    Set ws = wb.Worksheets(2)
    Err.Clear
    On Error GoTo 0
    ' 直接指定左上角单元格即可，CopyFromRecordset会自动按实际数据大小填充
    ws.Range(topLeft).CopyFromRecordset rec
End With
wb.Save

优化说明 #

CopyFromRecordset方法只要指定左上角的起始单元格，就会自动按记录集的实际行列数向下向右填充，不需要手动拼接完整的填充范围，可以避免手动计算范围出错的问题。

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