从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宏记录器可以帮助您起步。

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