Access导出查询结果到Excel后无法操作，如何适配多文件打开场景？

你当前代码的核心错误点如下：

• 变量w未做任何定义赋值，直接调用xlapp.workbooks(w)无法定位到目标工作簿
• Excel对象拼写错误：操作工作簿集合的关键字为Workbooks（复数），而非Workbook
• Range对象未绑定Excel工作表实例，Access VBA无法识别无所属对象的Range定义，会直接报错
• 无参调用GetObject只能抓取系统中最先启动的Excel实例，用户多开Excel窗口时必然找不到你刚导出的查询结果文件

你可以直接使用下方代码，天然适配多Excel文件同时打开的场景：

Dim xlapp As Object
Dim wb As Object
Dim ws As Object
Dim outputPath As String

' 定义导出文件的临时路径，可根据需求修改为指定路径
outputPath = Environ("TEMP") & "\Query1_Export.xlsx"

' 导出查询到指定路径，自动打开参数设为False，后续自己控制打开逻辑
DoCmd.OutputTo acOutputQuery, "Query1", acFormatXLSX, outputPath, False

' 创建Excel实例，避免和用户已打开的Excel实例冲突
On Error Resume Next
Set xlapp = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
    Set xlapp = CreateObject("Excel.Application")
End If
On Error GoTo 0

' 显式打开我们刚导出的目标文件，完全不需要遍历找文件
Set wb = xlapp.Workbooks.Open(outputPath)
Set ws = wb.Worksheets(1)

' 后续所有操作都绑定到ws对象，不会操作到其他Excel文件
' 示例1：选中A1单元格
ws.Cells(1, 1).Select
' 示例2：全表自动适配列宽
ws.UsedRange.EntireColumn.AutoFit
' 示例3：表头字段加粗
ws.Rows(1).Font.Bold = True

' 操作完成后让Excel窗口可见，用户可直接查看编辑
xlapp.Visible = True

' 释放对象（可选，好习惯）
Set ws = Nothing
Set wb = Nothing
Set xlapp = Nothing

• 导出时直接指定输出路径，后续按路径打开目标文件，完全避免了在多个打开的Excel文件/实例中查找目标文件的逻辑，不会出现误操作其他文件的问题
• 所有Excel对象操作都显式绑定到你定义的xlapp、wb、ws实例，不要使用不带前缀的全局ActiveSheet、Range等对象，从根源上避免操作错文件
• 加入了Excel实例的容错逻辑，用户机器上没有已打开的Excel时也能正常运行

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