Скачать: CL | DM;

DBGrid vs Excel   Найти похожие ветки 

← →
DelAlanPhi ©   (2003-05-06 20:39) [0]

У меня есть файл excel в нем храниться бланк.
Как из определенных ячеек в DBGrid-е запихать данные в определенные ячейки в Excel-е.

---

← →
Ich Hasse ©   (2003-05-06 23:07) [1]

с помощью компонента ExcelXP или Excel2000 коннектишься и передаешь...
Надо поконкретнее могу дать пример

---

← →
Kirill_S ©   (2003-05-06 23:28) [2]

Если можно, дай мне тоже примерчик плиз!

---

← →
DelAlanPhi ©   (2003-05-07 06:34) [3]

>Ich Hasse ©
Хорошо бы было...

---

← →
DelAlanPhi ©   (2003-05-07 15:37) [4]

up

---

← →
АТ   (2003-05-11 20:40) [5]

Да-да, и мне пожалуйста...

---

← →
Tolik_tmp   (2003-05-11 23:11) [6]

Приме, который берет из текмтового файла и пихает в Excell

ExcelRow := 2; // со второй строки
RangeE := ExcelApplication1.Range["A"+IntToStr(ExcelRow),"A"+IntToStr(ExcelRow)]; // Переходим к ячейке A2
repeat // можно через While
if EOF(UsrFile) then Break;

BuffSize := 6;
s := "";
for i:= 1 to BuffSize do begin // читаем
Read(UsrFile,c);
s := s+c;
end;
RangeE.Value := s; RangeE := RangeE.next; // пихаем и переходим к след. ячейке

BuffSize := 5;
s := "";
for i:= 1 to BuffSize do begin
Read(UsrFile,c);
s := s+c;
end;
RangeE.Value := s; RangeE := RangeE.next;
...
ReadLn(UsrFile,s);
ps := pchar(s);
OemToChar(ps,ps); // попалась строка в дос-кодировке
s := ps;
RangeE.Value := s; RangeE := RangeE.next;

ExcelRow := ExcelRow + 1;
RangeE := ExcelApplication1.Range["A"+IntToStr(ExcelRow),"A"+IntToStr(ExcelRow)];
until Eof(usrFile);

---

← →
sniknik ©   (2003-05-11 23:12) [7]

вот тут есть пример (правда не ExcelXP а OLE Excel)
http://delphi.vitpc.com/helloworld/excel3.htm

там же есть еще статьи на эту тему.

---

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

Скачать: CL | DM;



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