Как Закрасить Слово Из Передаваемой Строки В Excel?

Тема в разделе "Delphi - СОМ", создана пользователем novachok, 23 окт 2012.

  1. novachok

    novachok New Member

    Регистрация:
    16 авг 2012
    Сообщения:
    1
    Симпатии:
    0
    Добрый день! Помогите кто знает как при передачи строки в ячейку закрасить, например, ФИО.
    Вот я передаю строку
    Код (Delphi):
    ExcelApp.WorkBooks[1].WorkSheets[1].Cells[8, 9] := '__________________ ' + ФИО;
    как мне закрасить "ФИО" красным цветом?
     
  2. sinkopa

    sinkopa Well-Known Member

    Регистрация:
    17 июн 2009
    Сообщения:
    344
    Симпатии:
    9
    Я вот так это делал в свое время:
    На форме:
    Код (Delphi):
    type
    TForm1 = class(TForm)

    //........ //
    Excel: TExcelApplication;
    Workbook: TExcelWorkbook;
    Worksheet: TExcelWorksheet;

    //........ //

    end;
    В коде:
    Код (Delphi):
    procedure TForm1.PrintToExcel;
    begin
    //........ //
    Excel.Connect;
    Workbook.ConnectTo(Excel.ActiveWorkbook);
    Workbook.Sheets.Add(Workbook.Sheets[Workbook.Sheets.Count],EmptyParam,1,EmptyParam,0);
    //........ //
    Worksheet.ConnectTo(Workbook.Sheets[1] as _Worksheet);
    Worksheet.Activate;
    Worksheet.Cells.Item[8,9].FormulaR1C1 := '__________________ ФИО';
    Worksheet.Cells.Item[8,9].Characters[21,23].Font.Color := clRed;
    //........ //
    end;
    Вот. Это работает (через TExcelApplication).
    Если Вы работаете с Экселем через OLE, я не уверен что там (у Cells) интерфейс Characters доступен... но попробуйте, чем черт не шутит... :)
     
  3. -master-

    -master- Well-Known Member

    Регистрация:
    14 янв 2012
    Сообщения:
    629
    Симпатии:
    18
    TExcelApplication это обертка над ОЛЕ.
     
Загрузка...

Поделиться этой страницей