在 Access 中使用 VBA 导出选择查询答案

【问题标题】：Export select query with VBA in Access在 Access 中使用 VBA 导出选择查询
【发布时间】：2020-07-03 18:58:20
【问题描述】：

我的应用是使用 Access 开发的。

我正在尝试：

生成选择查询
将结果导出到 Outlook 邮件中（或至少在 Excel 中）
在最后销毁查询，以免重复

我的代码：

Private Sub Commande24_Click()
Dim db As Database
Dim Qdf As QueryDef

Dim strSQL As String    
Dim matr As Double

matr = DLookup("Matricule", "Employée", "Nom = '" & Me.Nom & "'")

strSQL = "SELECT Employée.Matricule, Employée.Département, Employée.Nom, Employée.Prénom, Employée.Grade, Employée.Silo, Entree.date_entree_g, Sortie.Date_sortie_e, Sortie.Type_s FROM (Employée INNER JOIN Entree ON Employée.N° = Entree.N_emp) INNER JOIN Sortie ON Employée.N° = Sortie.N_emp WHERE Employée.Matricule = '" & matr & "'"

Debug.Print sql

【问题讨论】：

这能回答你的问题吗？ Exporting Recordset to Spreadsheet。如果不循环记录并构建要包含在电子邮件正文中的字符串，则无法将记录集导出到 Outlook。电子邮件的替代方法是将报告附加为 PDF 的 SendObject 方法。
为什么会有“重复”——重复什么？

标签： sql vba ms-access

【解决方案1】：

您不必编写一行代码即可实现此目的。 ms访问使用宏就可以了。

创建将从表中删除所有值的删除查询
为要导出到 excel 的值创建一个选择查询
使用选择查询作为记录源创建报表
创建包含两个操作的宏 A. 格式化导出（使用上面3中的报表名称作为对象名称，报表作为对象类型，输出格式-选择excel B 打开查询，选择删除查询

然后在单击事件时将宏附加到命令按钮。

【讨论】：