[5分]讲查询结果导入EXCEL

Option Compare Database

'------------------------------------------------------------
' 导出查询数据宏
'
'------------------------------------------------------------
Function 导出查询数据宏()
On Error GoTo 导出查询数据宏_Err

    ' 把存书查询导出到EXCEL文件。
    DoCmd.OutputTo acQuery, "存书查询", "MicrosoftExcel(*.xls)", "", True, ""

导出查询数据宏_Exit:
    Exit Function

导出查询数据宏_Err:
    MsgBox Error$
    Resume 导出查询数据宏_Exit

End Function

将宏导出为VBA代码，然后修改代码达到你满意为止