從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宏記錄器可以幫助您起步。

這取決於模板的復雜程度，哪個更好。