Писанец Александр

Avatar
  • обновлен
  • Отвечен

Здравствуйте. Подскажите как записать а EXSEL подряд много данных, что я делаю не так ?

Excel.OpenTemplate( Temp);

Excel.Cell['A1']:='кккк';

 Excel.Cell['Â1']:='нннн';

 Excel.Save(Temp);     
   Excel.Close;          


Avatar
СИМП Лайт (тех поддержка)
  • На рассмотрении

День добрый.


Уточните задачу, и какие сложности у Вас возникли при её реализации.

Avatar
zim
Цитата от СИМП Лайт (тех поддержка)

День добрый.


Уточните задачу, и какие сложности у Вас возникли при её реализации.

Разобрался , может кому пригодится решение, все оказалось просто )

 

 Var 
       Stpoka:Integer;
   //-------------------//

     Excel.OpenTemplate('D:\Данные.xlsx');          
     Excel.Cell['C'+ IntToStr( Stpoka )]:= ReadValue('имя канала с которого берем данные');
     Excel.Cell['D'+ IntToStr( Stpoka )]:= ReadValue('имя канала с которого берем данные');
     Excel.Cell['E'+ IntToStr( Stpoka )]:= ReadValue('имя канала с которого берем данные');    

     Excel.Cell['F'+ IntToStr( Stpoka )]:= ReadValue('имя канала с которого берем данные');
     Excel.Cell['G'+ IntToStr( Stpoka )]:= ReadValue('имя канала с которого берем данные');
     Excel.Cell['H'+ IntToStr( Stpoka )]:= ReadValue('имя канала с которого берем данные');
     Excel.Cell['I'+ IntToStr( Stpoka )]:= ReadValue('имя канала с которого берем данные');
     Excel.Cell['J'+ IntToStr( Stpoka )]:= ReadValue('имя канала с которого берем данные');

     Stpoka:= Stpoka + 1;  //при повторном захоже запись происходит в другие ячейки эксель файла
     Excel.Save(' D:\Данные.xlsx'); 
     Excel.Close;