宏应从每个查询仅导出2列，并将所有内容粘贴到一张纸sheet1中

问题描述

下面的代码将在3个不同的选项卡中导出查询，并且还会更改不需要的选项卡名称。但是，我希望将所有3个查询都粘贴到工作表1中，并且只有所有查询中的列都显示粘贴到工作表1中，请提供帮助。我无法提供要从每个查询中导出的列名... AGP，CBC和qdAGC是查询名称。.求救，我希望每个查询仅将2列导出到1张纸中，即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,"CBC","qdAGC","C:\path .xlsx",True



End Sub

解决方法

从基本查询中创建一个 UNION查询，其中包含要导出的确切列和行。

然后DoCmd.TransferSpreadsheet个UNION查询。

例如

SELECT foo AS col1,bar AS col2
FROM AGP

UNION ALL

SELECT floo AS col1,stuff AS col2
FROM CBC

等