2 在同一个 Excel 工作簿不同的工作表上访问查询

Question

我想将 2 个Access查询导出到同一个Excel WorkBook因此查询 1 转到Sheet1 ，查询 2 转到Sheet2 。 我正在使用Access & 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