嘿，很高兴你第一次在StackOverflow提问！我之前也经常折腾Access和Excel的联动，刚好能给你一套可落地的步骤，完美匹配你的需求流程：

第一步：Excel端VBA代码（按钮触发用） #

先在你的xlsm/xlsb工作簿里，给按钮绑定这段VBA代码——它负责调用Access的导出逻辑，这里用后期绑定（不用手动加Access对象库引用，兼容性更强）：

Sub RefreshFromAccess()
    Dim accApp As Object
    Dim dbPath As String
    Dim targetWBPath As String
    
    ' 填写你的Access数据库路径（放和Excel同目录用相对路径更省心）
    dbPath = ThisWorkbook.Path & "\你的数据库名.accdb"
    ' 当前Excel工作簿的完整路径，传给Access用
    targetWBPath = ThisWorkbook.FullName
    
    On Error GoTo Cleanup
    ' 创建Access应用实例
    Set accApp = CreateObject("Access.Application")
    ' 后台打开数据库（隐藏Access窗口，不打扰用户操作）
    accApp.OpenCurrentDatabase dbPath, False
    ' 调用Access里的导出函数，把Excel路径传进去
    accApp.Run "ExportQueryToExcel", targetWBPath
    
    MsgBox "数据刷新完成！", vbInformation
    
Cleanup:
    ' 关闭Access并释放资源
    If Not accApp Is Nothing Then
        accApp.CloseCurrentDatabase
        accApp.Quit
        Set accApp = Nothing
    End If
    If Err.Number <> 0 Then
        MsgBox "出错了：" & Err.Description, vbCritical
    End If
End Sub

第二步：Access端VBA代码（处理导出逻辑） #

在你的Access数据库里新建一个标准模块，添加这段导出函数（名字要和Excel里调用的ExportQueryToExcel完全一致）：

Public Sub ExportQueryToExcel(targetWBPath As String)
    Dim qryName As String
    Dim targetWSName As String
    
    ' 填写你要导出的查询名称
    qryName = "你的目标查询名"
    ' 填写Excel里要接收数据的工作表名（不存在会自动创建，存在则覆盖原有内容）
    targetWSName = "数据刷新表"
    
    On Error GoTo ErrorHandler
    ' 用TransferSpreadsheet导出查询到指定Excel工作簿
    DoCmd.TransferSpreadsheet _
        TransferType:=acExport, _
        SpreadsheetType:=acSpreadsheetTypeExcel12Xml, ' 完美兼容xlsm/xlsb格式
        TableName:=qryName, _
        FileName:=targetWBPath, _
        HasFieldNames:=True, ' 把查询字段名作为Excel表头导出
        Range:=targetWSName & "!" ' 指定工作表，感叹号不能省略
    
    Exit Sub
    
ErrorHandler:
    MsgBox "Access导出出错：" & Err.Description, vbCritical
    Err.Raise Err.Number, Err.Source, Err.Description ' 把错误抛回Excel提示用户
End Sub

第三步：可选：用Access宏触发导出（如果坚持用宏） #

如果你不想直接调用VBA函数，非要通过Access宏触发，可以这么配置：

• 在Access里新建宏，添加RunCode操作，选择刚才写的ExportQueryToExcel函数
• 注意：宏没法直接接收参数，你得修改Access函数，让它通过临时文本文件/注册表读取Excel路径——但还是更推荐前面的VBA直接调用方式，灵活度高太多

关键注意事项 #

• 尽量把Access数据库和Excel工作簿放在同一个目录，用相对路径避免硬编码路径的麻烦
• Access 2010里acSpreadsheetTypeExcel12Xml完全兼容xlsm/xlsb，不用改参数
• 导出前确保Excel的目标工作表没被保护，否则会报错
• 给Excel和Access文件添加信任位置，或者开启宏权限，不然代码会被禁用

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