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