使用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“）。