怎样才能为生成的Excel文件添加一个启动宏?

Question

用代码生成一个Excel文件，想用宏来设置其中的样式，怎么做才能为这个生成的Excel文件设置宏，并且是启动宏，谢谢

Answer 1

将宏定义为AUTO_OPEN的名称Private Sub Form_Load()
    Dim xls As Object
    Set xls = CreateObject("excel.application")
    xls.Visible = True
    xls.AutomationSecurity = 2 'msoAutomationSecurityByUI
    xls.EnableEvents = True
    xls.DisplayAlerts = False
    xls.workbooks.open "c:\test.xls"
    xls.ActiveWorkbook.RunAutoMacros (1)
    Set xls = Nothing
End Sub