Question

我想将2 Access次查询导出到同一Excel WorkBook，因此查询1转到Sheet1，查询2转到Sheet2。我正在使用Access＆amp; Excel 2010

我正在使用以下代码

'------------------------------------------------------------
' ExportToExcel
'
'------------------------------------------------------------
Function ExportToExcel()
On Error GoTo ExportToExcel_Err

    DoCmd.OutputTo acOutputQuery, "TRERequired_Summary", "Excel97-Excel2003Workbook(*.xls)", "C:\Users\OWNER\Desktop\Test\TRERequired_Summary.xls", False, "", , acExportQualityScreen
    DoCmd.OutputTo acOutputQuery, "TRERequired", "Excel97-Excel2003Workbook(*.xls)", "C:\Users\OWNER\Desktop\Test\TRERequired_Summary.xls", False, "", , acExportQualityScreen


ExportToExcel_Exit:
    Exit Function

ExportToExcel_Err:
    MsgBox Error$
    Resume ExportToExcel_Exit

End Function

Answer 1

问题是什么？我没有尝试你的代码;只是眼睛盯着它。似乎应该做你想做的事。

Answer 2

一个覆盖另一个。试试这个：

DoCmd.TransferSpreadsheet acExport, , "TRERequired_Summary", "C:\Users\OWNER\Desktop\Test\TRERequired_Summary.xls", True
DoCmd.TransferSpreadsheet acExport, , "TRERequired", "C:\Users\OWNER\Desktop\Test\TRERequired_Summary.xls", True

2在相同的Excel WorkBook上访问查询不同的表格

2 个答案: