点击下载此附件
截 图:
源 码:
'将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