Excel Runmacro

[Gintaras]

Macro Macro1416

Code:

Copy      Help

;/exe 1
ExcelSheet es.Init
Excel.Workbook wb=es.ws.Application.ActiveWorkbook

;use IDispatch because I don't know in which type library is VBProject
IDispatch objWorkbook=wb
IDispatch xlmodule = objWorkbook.VBProject.VBComponents.Add(1)
err mes- "Failed. You probably need to change Excel security settings.[][]Click menu Tools -> Macro -> Security.[]In Publishers tab check 'Trust access to Visual Basic project'." "" "x"

str strCode =
;sub test()
;;msgbox "Inside the macro"
;end sub
;
xlmodule.CodeModule.AddFromString(strCode)

test
Macro Macro1418

Code:

Copy      Help

;/exe 1
act "Excel"
ExcelSheet es.Init
es.RunMacro("test")