将查询从 Access 导出到 Excel 模板

Question

我有一个在一周中的指定日期运行的查询。在那一天，如果任何记录被标记为“需要订购”，那么将打开一个带有命令按钮的订单窗口。命令按钮应该将查询数据导出到一个 excel 模板（已经格式化为它应该看起来的样子），然后附加到一个电子邮件模板以发送。我可以将查询附加到电子邮件中，但我似乎无法弄清楚如何让它使用 excel 模板，而不是每次都创建一个新的 excel 工作簿。有什么建议可以尝试吗？

Dim myolapp As Object 
Dim myitem As Object 

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "BoxOrder", "C:\Users\Database Design\Desktop\BoxOrder.xlsx", True 

Set myolapp = CreateObject("Outlook.Application") myolapp.Session.Logon 
Set myitem = myolapp.CreateItemFromTemplate("F:\BOX ORDER FOR PC CONNECTION.oft") 
Set myAttachments = myitem.attachments 

myAttachments.Add "C:\Users\Database Design\Desktop\BoxOrder.xlsx"
myitem.Display 'or send 
DoCmd.Close acForm, "OrderForm"

BoxOrder 查询：

SELECT '' AS [Quantity Needed], [BoxOrder].[Box Size], [BoxOrder].Comments, 
       [BoxOrder].[Certified/Stamped Boxes], [BoxOrder].[Box Type] 
FROM BoxOrder; 

Answer 1

你不能。 DoCmd.OutputTo 的 TemplateFile 参数仅用于 HTML（和类似）导出。

使用DoCmd.OutputTo或DoCmd.TransferSpreadsheet后有两种可能。这一切都可以通过 VBA 完成：

• 打开导出文件和模板文件，将导出的数据复制粘贴到模板中，另存为新文件。
• 打开导出的文件，使用 VBA 应用格式。
  使用 Excel 宏记录器为您提供一个良好的开端。

这取决于你的模板的复杂程度，哪个更好。