Execute VBA statement for active workbook

[apeso]

A cleaner way:
 

Code:

Copy      Help

 
typelib Excel
Excel.Application a._create
Excel.Workbook b=a.Workbooks.Add()
ExcelSheet es.ws=b.Worksheets.Item(1)
es.Activate(4) ;;activate Excel
es.ws.Application.Sheets.Item(1).Name = "Plan de Trabajo y Retorno del C"
int w=win("" "XLMAIN")
max w
str f.expandpath("$desktop$\test45.xls")
del f; err
b.SaveAs(f @ @ @ @ @ 1)
es.ws.Application.ActiveWindow.Zoom=85


  Hoja 1
es.ws.Application.ActiveSheet.Range("A1:A5").Value = "XXX YYY ZZZ"
es.ws.Application.ActiveSheet.Range("A1:A5").TextToColumns(es.ws.Application.Range("A1"),1,1,1,0,0,0,0,1," ")