将两个访问查询导出到一个 excel 文件到各自的工作表上答案

【问题标题】：Export two Access Queries to one excel file onto their own sheets将两个访问查询导出到一个 excel 文件到各自的工作表上
【发布时间】：2018-08-01 02:57:45
【问题描述】：

我有两个要导出到同一个工作簿但在不同工作表上的访问查询。 Query1 和 Query2 需要放在一个名为“QueryOverall”的 excel 文件中，并放在单独的工作表上。到目前为止，它只允许我将一个查询导出到一个 Excel 文件。

【问题讨论】：

Access + VBA + SQL - How to export multiple queries into one excel Workbook, but, multiple Worksheet using the criteria from a table的可能重复

标签： vba ms-access ms-access-2010

【解决方案1】：

试试：

DoCmd.TransferSpreadSheet acExport, acSpreadSheetTypeExcel12Xml, "Query1", "C:\Users\me\Desktop\Email\QueryOverall.xlsx", True
DoCmd.TransferSpreadSheet acExport, acSpreadSheetTypeExcel12Xml, "Query2", "C:\Users\me\Desktop\Email\QueryOverall.xlsx", True

strFilePath 是您想要的文件的路径。这将在同一个Workbook 中创建两个Worksheets，每个查询一个。

编辑：

使用示例：

Sub go()
    Dim strFilePath as String
    strFilePath = "C:\Users\me\Desktop\Email\"

    DoCmd.TransferSpreadSheet acExport, acSpreadSheetTypeExcel12Xml, "Query1", strFilePath + "QueryOverall.xlsx", True
    DoCmd.TransferSpreadSheet acExport, acSpreadSheetTypeExcel12Xml, "Query2", strFilePath + "QueryOverall.xlsx", True

End sub

您也可以手动导出它们：右键单击查询 > 导出 > 选择位置 > 导出到同一个文件

【讨论】：

通过VBA“插入”模块运行这个对吗？还有对于 strFilePath，我是否将工作簿包括在最后？
您的查询是如何运行的？他们只是从表格中运行，还是在子中被调用？是的，对于strFilePath，您可以将其设置为文件所在的位置（例如`strFilePath = C:\users\me\desktop`），然后确保您具有相同的文件名，否则它将创建一个新文件（单独的工作簿）
Sub go() DoCmd.TransferSpreadsheet acExport, acSpreadSheetTypeExcell12Xml, "Query1", "strFilePath = C:\Users\me\Desktop\Email" + "QueryOverall.xlsx", True DoCmd.TransferSpreadsheet acExport, acSpreadSheetTypeExcell12Xml, "Query2", "strFilePath = C:\Users\me\Desktop\Email" + "QueryOverall.xlsx", True End Sub