VBA查询Access表时EOF始终为True的问题排查求助

看起来你遇到的这个EOF/BOF异常确实有点棘手——明明有记录（getString能拿到数据，可见记录数也大于0），但指针状态不对导致数据写不进去。我之前也碰到过类似的情况，大概率是Recordset的游标设置或者指针处理逻辑出了问题，下面给你几个针对性的解决方案：

1. 检查并修正Recordset的打开参数 #

默认的游标类型（adOpenForwardOnly）有时候会出现指针位置异常的情况，尤其是在需要多次移动指针或者获取记录数的时候。建议改用静态游标（adOpenStatic），同时指定客户端游标位置，这样能更稳定地处理记录集：

Dim rs As ADODB.Recordset ' 建议提前引用ADODB库，也可以用CreateObject("ADODB.Recordset")
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient ' 客户端游标，避免服务器端游标带来的异常
rs.Open sqlQuery, conn, adOpenStatic, adLockReadOnly

2. 用CopyFromRecordset替代手动循环写入 #

手动移动指针很容易出错（比如你遇到的EOF异常导致循环直接跳过），Excel的CopyFromRecordset方法可以直接把整个Recordset的数据写入工作表，不需要关心指针位置，效率还更高：

' 先写入表头
Dim i As Integer
For i = 0 To rs.Fields.Count - 1
    ThisWorkbook.Sheets("目标工作表").Cells(1, i + 1).Value = rs.Fields(i).Name
Next i

' 直接写入数据，从A2单元格开始
If Not rs.BOF And Not rs.EOF Then
    ThisWorkbook.Sheets("目标工作表").Range("A2").CopyFromRecordset rs
End If

3. 手动循环时强制重置指针位置 #

如果你一定要用手动循环写入，试试先强制将指针移到最后再移回第一条，确保指针状态正常：

rs.MoveLast ' 先移到最后，确保RecordCount能正确统计记录数
rs.MoveFirst ' 再移回第一条记录

' 执行循环写入
Dim rowNum As Integer
rowNum = 2
Do While Not rs.EOF
    For i = 0 To rs.Fields.Count - 1
        ThisWorkbook.Sheets("目标工作表").Cells(rowNum, i + 1).Value = rs.Fields(i).Value
    Next i
    rs.MoveNext
    rowNum = rowNum + 1
Loop

4. 确认查询语句的有效性 #

有时候看起来正确的SQL，在Access里执行没问题，但通过VBA连接时可能因为字段类型、特殊字符或者别名的问题导致Recordset状态异常。建议先在Access的查询设计器里测试你的SQL语句，确保返回的记录是完整且正常的。

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