Subtotalizar varias columnas en clase TExcelScript

[artu0407]

Hola gente vengo usando la clase TExcelScript para generar reportes a excel uso el metodo subtotal para sumar una columna pero como hacer
para subtotalizar mas de una columna

la sintaxis que uso es:

obj := TExcelScript():New()
obj : Say(1,1,datos)
obj : Say(2,1,datos)
....
...

obj:Subtotal(cRango,1,1,14)

14= es la columna que va a subtotalizar ¿no puedo poner otra columna mas?

gracias x sus reponses
Arturo.

[mmercado]

obj:Subtotal(cRango,1,1,14)

14= es la columna que va a subtotalizar ¿no puedo poner otra columna mas?

Hola Arturo:

Prueba lo siguiente:

Code: Select all

   #define xlSum -4157
   oSheet:Range( cRange ):SubTotal( nControlCol, xlSum, { 14, 15, etc }  )

Saludos.

Manuel Mercado

[artu0407]

obj:Subtotal(cRango,1,1,14)

14= es la columna que va a subtotalizar ¿no puedo poner otra columna mas?

Hola Arturo:

Prueba lo siguiente:

Code: Select all

   #define xlSum -4157
   oSheet:Range( cRange ):SubTotal( nControlCol, xlSum, { 14, 15, etc }  )

Saludos.

Manuel Mercado

Gracias Manuel por responder modifique la clase y le puse de parametro
el arreglo pero ahora me sale " no se puede determinar que fila o que seleccion de la lista contiene los rotulos de columnas requeridas para este comando"

Intente usar la clase Repexcel pero no lo logro compilarlo
gracias