hola utilizo lo siguiente para crear un archivo excel
Código:
//Crea la instancia (Abre Excel)
Excel := CreateOleObject('Excel.Application');
//Añade un Libro
Excel.WorkBooks.add;
//Pone Visible La Ventana
Excel.visible:=True;
grabe una macro de excel para ver que codigo usa para poner subtotales
es esta
Código:
Sub Macro1()
'
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(5, 6, 7, 8, _
9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 23), Replace:=True, PageBreaks:=True, _
SummaryBelowData:=True
End Sub
Sub Macro2()
y buscando en internet encontre esto :
Código:
Здрасте уважаемые!
Есть тема.
Выбираю данные из *.dbf и передаю их в Excel,
уже в доке необходимо после передачи сформировать ИТОГИ по нужным столбцам, для этого есть средство
SUBTOTAL,нап-р:
DataModule.Excel.Range[DataModule.Excel.Cells.Item[XXX,XXX],DataModule.Excel.Cells.Item[XXX,XXX]].Subtotal(2,1,7,0,0,1);
где 2-GroupBy;
1-Function;
7-TotalList(т.е. столбец по которму групп.)
0-Replace(0-false,1-True)
0-PageBreaks(0-false,1-True)
1-SummaryBelowData(0-false,1-True)
Так вот, как можно сгруппир-ть не по одному столбцу, а по нескольким.
que parece estar en ruso o algo asi
alguien me ayuda a tratar de decifrar o esto o sabe como poner los subtotales de excel