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

我想将2个

Access

查询导出到相同的

Excel

工作簿

，因此查询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

---

一个写另一个。试试这个：

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

---

当您运行它时会发生什么？您可以尝试使用transferspreadsheet而不是output to方法。我认为它有一个可选的工作表名称参数