Excel VBA运行时错误3265 rs.Fields字段取值报错问题求助

错误根因 #

触发报错的核心原因是表头写入的循环逻辑存在索引越界问题：

• ADODB.Recordset的Fields集合索引从0开始，合法取值范围为0 到 rs.Fields.Count - 1。你原代码中循环变量i从0开始时，i-3 = -3属于非法索引，后续i超过rs.Fields.Count -1 +3后也会超出Fields集合的有效范围，直接触发3265错误。
• 你后续数据是从E列（第5列）开始写入，原循环从第1列就开始写表头，和数据写入位置不匹配。

修复方案 #

直接替换原代码中'Copy the recordset headers.下方的循环代码即可：

'Copy the recordset headers. 从E列（第5列）开始写入表头，和后续E12写入的数据位置对应
For i = 0 To rs.Fields.Count - 1
    Sheets("Extracted Logs").Cells(11, 5 + i) = rs.Fields(i).Name
Next i

可选校验项（替换后仍报错可排查） #

• 检查SQL语句中的字段名是否和Access表INC_CRM的字段名完全一致，无拼写错误、多余空格
• 可在rs.Open strQuery1, con后添加一行Debug.Print rs.Fields.Count，在VBA编辑器立即窗口查看返回的字段数是否符合预期（你当前的SQL应该返回7个字段）
• 确认你使用的Windows账号对Access数据库所在的共享路径有读取权限

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