Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=274845&view=findpost&p=2286508 Tue, 09 Jun 2009 10:00:44 +0000 Как границы нарисовать в Excel из Delphi https://forum.sources.ru/index.php?showtopic=274845&view=findpost&p=2286508 Цитата Marriage @
Советую копать в сторону Макросов
  • Начать запись макроса
  • Сделать необходимые действия
  • Остановить запись макроса
  • Открыть код макроса
  • Втыкать
]]> Domino Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=274845&view=findpost&p=2286388 Tue, 09 Jun 2009 06:47:44 +0000 Как границы нарисовать в Excel из Delphi https://forum.sources.ru/index.php?showtopic=274845&view=findpost&p=2286388 Marriage Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=274845&view=findpost&p=2286371 Tue, 09 Jun 2009 06:09:48 +0000 Как границы нарисовать в Excel из Delphi https://forum.sources.ru/index.php?showtopic=274845&view=findpost&p=2286371
      // Устанавливаем толщину линии границы ячейки
      Sheet.Range['A1:C1'].Border.Weight:=2;
      
      // Устанавливаем тип линии границы ячейки
      Sheet.Range['A1:C1'].Border.LineStyle:=-4119;
]]> Light13 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=274845&view=findpost&p=2286337 Tue, 09 Jun 2009 05:12:34 +0000 Как границы нарисовать в Excel из Delphi https://forum.sources.ru/index.php?showtopic=274845&view=findpost&p=2286337
    procedure TForm1.Button5Click(Sender: TObject);
    var EAPP: Variant;
        Sheet: Variant;
    begin
    EAPP:=CreateOleObject('Excel.Application');
    EAPP.Visible:=true;
    EAPP.WorkBooks.Add;
    Sheet:=EAPP.Sheets.Item[1];
    Sheet.Cells(4,5):='sdfsdf';
    //Sheet.Range['A1:C1'].; <- здесь обрисовать границы
    EAPP.ActiveWorkBook.SaveAs('C:\et.xls');
    end;

Корнякова смотрел, там ничего не нашёл наглядного, хотя есть раздел границы и заливка.]]> Continental Delphi: Общие вопросы