宏应该只从每个查询导出2列，并粘贴在一个工作表中(sheet1)

Question

下面的代码是在3个不同的选项卡中导出查询，并更改选项卡名，这是o不想要的。但是，我希望所有3个查询都粘贴在表1中，并且只有来自所有查询的列显示粘贴在第一页中--请帮助。我无法给出要从每个查询导出的列名.AGP、CBC和qdAGC是查询名称。我只想从每个查询中导出两个列，即sheet1

Option Compare Database
Option Explicit


Private Sub Command0_Click()
ExportToExcel
End Sub

Public Sub ExportToExcel()
  
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "AGP", "C:\path.xlsx", True

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "CBC", "C:\path.xlsx", True

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "qdAGC", "C:\path .xlsx", True



End Sub

Answer 1

从基本查询中创建一个UNION查询，该查询正好包含要导出的列和行。

然后DoCmd.TransferSpreadsheet这个UNION查询。

例如：

SELECT foo AS col1, bar AS col2
FROM AGP

UNION ALL

SELECT floo AS col1, stuff AS col2
FROM CBC

等。