点击下载此附件

截   图:

源   码:

'将Access的数据导入Excel表格
Private Sub cmd_导出_Click()
    Dim xlPath As String
    '设置导出Excel工作簿的每次
    xlPath = CurrentProject.Path & "\示例工作簿" & Int(Rnd * 1000) & ".xlsx"
    '将“Q_员工工资核算”查询中的数据导出到Excel中
    DoCmd.TransferSpreadsheet acExport, , "Q_员工工资核算", xlPath, True
End Sub