excel - 使用 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")。