este es el codigo de la tabla.
el error me dice lo siguiente
EOleException whith message 'OLE error 800A03EC'.
Código Delphi
[-]
Hoja.Range['A' + inttostr(i+5),'A' + inttostr(i+5)].Activate;
Hoja.PivotTableWizard(EmptyParam, 'A5:AL' + inttostr(i-4),'REPORTE',
'Tabla1', EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, 0);
GD := Hoja.PivotTables('TablaDin', 0) as PivotTable;
GD.AddFields('A','C','AL', EmptyParam);
(GD.PivotFields('AVERAGE(AL)') as PivotField).Orientation := xlDatafield;