Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

24th
Фев

Сохранить stringGrid в Excel

Posted by Chas under Delphi

kta87

ExcelApp:= CreateOleObject('Excel.Application');

   try

    ExcelApp.Visible:= False;

    ExcelApp.Workbooks.Add;

    Sheet:= ExcelApp.ActiveWorkBook.WorkSheets[1];

    for Col:= 0 to StringGrid1.ColCount -1 do

     for Row:= 0 to StringGrid1.RowCount -1 do

      Sheet.Cells[Row + 1, Col +1]:= StringGrid1.Cells[Col, Row];

    ExcelApp.ActiveWorkbook.SaveAs(GetExcelFileName);

    ShowMessage('OK!');

   finally

    ExcelApp.Application.Quit;

    ExcelApp:= unassigned;

   end;

тема на форуме