使用Microsoft Access生成使用宏的Excel電子表格

Question

使用Office Access生成數百個Office Excel電子表格當然是可能的，但將宏添加到生成的工作簿會很好。

我想將函數添加到每個電子表格生成的VBA項目中的「ThisWorkbook」對象。如何去做這件事？

預先感謝您！

Answer 1

在假設在所有生成的工作簿的宏的是相同的，

• 創建包含所有VBA代碼（和任選的恆定文本等頁眉，頁腳，打印範圍定義等的模板 - 即「除了數據「）
• 一切從模板創建任何新的工作簿
• 將您的數據到WB對象
• 另存爲宏啓用工作表（Excel的2007/2010）
• 關閉它

例如

Sub CreateWB() 
Dim WB As Workbook 

    Set WB = Workbooks.Add("MacroTemp.xltm") ' contains VBA, ActiveX, etc. 
    WB.Worksheets("Sheet1").[A1] = "co-cooo!" ' adding data 
    WB.SaveAs "MyGenWB", xlOpenXMLWorkbookMacroEnabled 
    WB.Close 
End Sub 

在Excel 2007/2010不要忘了模板保存爲宏觀啓用模板（* .xltm「）。