Subtotales de Excel
 

Hola gente.
Estoy intentando usar desde un programa hecho en Delphi 7 la función subtotal de Excel.

Código Delphi [-]
excel.range['a2:g50'].Subtotal(1,-4157,4,false,false,true);

Una macro de excel al grabarla haciendo los subtotales hace esto:

Este tema por lo que vi fue tratado en este post.
21959
Si bien la solución encontrada por tutuk es funcional me gustaria poder hacerla un poco más elegante (sobre todo porque no es tan sencillo para mi aplicacion el ir recorriendo las celdas para pegar la formula).

El problema radica en el parametro "TotalList" de la funcion que segun la ayuda del Excel recibe un Variant con una matriz adentro.
Si ejecuto el programa tal cual la sentencia que esta arriba funciona, pero no le he encontrado la vuelta para poder totalizar más de una columna.

He provado usar la funcion varArrayOf([4,6]) por ejemplo para totalizar esas 2 columnas pero no he tenido suerte, hay un tema con los tipos y no me doy cuenta que es.

Alguien tiene como hacerlo funcionar.

Saludos

Bueno, me contesto yo :) :)
Eso que yo hacia; lo hacia creando un objeto con:

Código Delphi [-]
var
   excel: Variant;
   excel  := CreateOleObject('Excel.Application');
//varias escrituras en celdas
   excel.selection.Subtotal(1,-4157,varArrayOf([4]),false, false,true);

Bien, esto funciona de maravilla.
Ahora esto no funciona, da un error el Excel.

Código Delphi [-]
var
   excel: Variant;
   excel  := CreateOleObject('Excel.Application');
//varias escrituras en celdas
   excel.selection.Subtotal(1,-4157,varArrayOf([4,5]),false, false,true);

Hice la prueba con los componentes de la paleta server.

Código Delphi [-]
var
   hoja : _WORKSHEET;
   libro : _WORKBOOK;
   i: integer;
begin
   libro := ExcelApplication1.Workbooks.Add(NULL, 0);
   Hoja := Libro.Sheets[1] as WORKSHEET;
//varias escrituras en celdas
hoja.Range[hoja.Cells.Item[1,1],hoja.Cells.Item[4,3]].Subtotal(1,xlSum,varArrayOf([4,5]),false,false,xlSummaryBelow);
  ExcelApplication1.Visible[0] := true;

Esto funciona perfecto, ahora bien encontre la solución pero tengo que reescribir casi toda la aplicación para usar los componentes de la solapa server. :(
Pero bueno lo hago, no me da pereza aunque me falta el tiempo.
Lo que no me gusta es quedarme con la intriga, alguien puede decirme porque el varArrayOf en un caso funciona y en otro no??

Saludos y gracias