Excel PivotTables

[Lucas]

Thanks a lot.

It works for me with this code:

Code:

Copy      Help

typelib Excel
ExcelSheet es.Init
Excel.Application a=es.ws.Application

a.ActiveWorkbook.PivotCaches.Add(xlDatabase, "Hoja1!A:C").CreatePivotTable("", "PivotTable2", @, xlPivotTableVersion10)
Excel.Worksheet ws=a.ActiveSheet
Range r=ws.Cells.Item(3, 1)
ws.PivotTableWizard(@ @ r)
r.Select
Excel.PivotTable t=ws.PivotTables("PivotTable2")
t.AddFields("nombre" "fecha")
t.AddDataField(t.PivotFields("puntuacion"), "Suma de Puntuacion", xlSum)

How can I add a Chart?
in my macro:
Charts.Add
ActiveChart.Location Where:=xlLocationAsNewSheet