如何解决宏应从每个查询仅导出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
等
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。