Question

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

Answer 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是您想要的文件的路径。这将在同一Worksheets中创建两个Workbook，每个查询一个。

编辑：

使用示例：

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

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

将两个访问查询导出到一个excel文件到自己的工作表中

1 个答案: