一、在窗体上做一个按钮,在按钮单击事件写入:\x0d\x0aPrivate Sub 按扭名称_Click()\x0d\x0aDoCmd.OutputTo acOutputQuery, "查询名称", "Excel97-Excel2003Workbook(*.xls)", "新EXCEL表的名称.xls", True, "", , acExportQualityPrint\x0d\x0aEnd Sub\x0d\x0a\x0d\x0a就是说,你从ACCESS中导出的查询名称是"查询名称",导出后成为EXCEL2003表中,然后把这个表打开。\x0d\x0a二、在ACCESS中查询功能是很强大的,无论你怎么做,执行程序以后,都会将你的查询结果导出去。
一、在窗体上做一个按钮,在按钮单击事件写入:
Private Sub 按扭名称_Click()
DoCmd.OutputTo acOutputQuery, "查询名称", "Excel97-Excel2003Workbook(*.xls)", "新EXCEL表的名称.xls", True, "", , acExportQualityPrint
End Sub
就是说,你从ACCESS中导出的查询名称是"查询名称",导出后成为EXCEL2003表中,然后把这个表打开。
二、在ACCESS中查询功能是很强大的,无论你怎么做,执行程序以后,都会将你的查询结果导出去。