虽然使用Office Access可以生成数百个Office Excel电子表格,但将宏添加到生成的工作簿中将是非常好的。
我想在生成每个电子表格时将函数添加到VBA项目中的对象"ThisWorkbook“中。我们该怎么做呢?
提前谢谢你!
发布于 2013-06-05 15:25:24
在所有生成的工作簿中的宏都相同的假设下,
Excel
as
示例
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在Excel2007/2010中,不要忘记将模板保存为启用宏的模板(*.xltm")。
https://stackoverflow.com/questions/16931178
复制相似问题