Текущий архив: 2003.10.02;
Скачать: CL | DM;

Вниз

передача данных из grid в excel   Найти похожие ветки 

← →
asdf   (2003-09-11 02:32) [0]

Уважаемые МАСТЕРА!!!
При передаче данных из grid в excel получается разное кол-во строк. Как мне вставить сумму поля. например
1 1
2 3
1 2
итог 6
но строк може быть и больше и меньше

---

← →
Lgz   (2003-09-11 10:00) [1]

Excel := CreateOleObject("Excel.Application");
......................................

Top:=DBGrid1.DataSource.DataSet.RecordCount+1;
Excel.Cells[Top,1].Value := "итог";
Excel.Cells[Top,2].Formula := "=sum(B1:B"+IntToStr(Top-1)+")";

---

← →
Deniz ©   (2003-09-11 10:08) [2]

У меня так работает:

s:="=SUM(R["+IntToStr(CurrY-StartY)+"]C:R[-1]C)";
Sheet.Cells[y, 2]:=s;

Где CurrY - текущая строка, StartY - первая строка

---

Страницы: 1 вся ветка

Текущий архив: 2003.10.02;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.022 c