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