DoCmd.OutputTo 如何将多个查询导入到同一个EXCEL工作簿的多个sheet中

乱纪元

你好：
     DoCmd.OutputTo是ACCESS VBA导出表、查询等导出命令，请问，如何将多个查询导出到同一张EXCEL工作薄中的多个sheet里

疑问：使用下面代码，最后结果显示，导出的表格只有查询2的数据，查询1被查询2覆盖了，不能同时存在在同一个工作簿的不同sheet里。请问还有其他函数可以实现吗？
DoCmd.OutputTo acOutputQuery, "查询1", acFormatXLSB, "D:\结果输出.xlsb", False
DoCmd.OutputTo acOutputQuery, "查询2", acFormatXLSB, "D:\结果输出.xlsb", False

乱纪元

已解决：使用DoCmd.TransferSpreadsheet acExport。

Private Sub Command11_Click()
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "查询1", "D:\结果输出.xls", True
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "查询2", "D:\结果输出.xls", True
End Sub

补充：如果acSpreadsheetTypeExcel9这个项目为空，则不管导出的是xls、xlsx还是xlsb都会提示一个错误框。只能使用acSpreadsheetTypeExcel9，然后导出EXCEL后缀用xls