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]

← →
АТ (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

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

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