Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

DBGrid vs Excel

DelAlanPhi © (2003-05-06 20:39:00)
У меня есть файл excel в нем храниться бланк.
Как из определенных ячеек в DBGrid-е запихать данные в определенные ячейки в Excel-е.

sniknik (2003-05-11 23:12:00) [1]
вот тут есть пример (правда не ExcelXP а OLE Excel)
http://delphi.vitpc.com/helloworld/excel3.htm

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

Tolik_tmp (2003-05-11 23:11:00) [2]
Приме, который берет из текмтового файла и пихает в 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);

АТ (2003-05-11 20:40:00) [3]
Да-да, и мне пожалуйста...

DelAlanPhi (2003-05-07 15:37:00) [4]
up

DelAlanPhi (2003-05-07 06:34:00) [5]
>Ich Hasse ©
Хорошо бы было...

Kirill_S (2003-05-06 23:28:00) [6]
Если можно, дай мне тоже примерчик плиз!

Ich Hasse (2003-05-06 23:07:00) [7]
с помощью компонента ExcelXP или Excel2000 коннектишься и передаешь...
Надо поконкретнее могу дать пример

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »