Работа с Excel

← →
Denizzz (2003-09-20 07:50) [0]

Добрых выходных всем!
Имеем:
Подгружаем Excel -
Exl:=CreateOLEObject("Excel.Application"); Exl.WorkBooks.add(ExtractFilePath(ParamStr(0))+"ExcelForm\torg12.xls");
Вставляем данные -
...Exl.Cells[50,61].Value:=DataModule1.Esc.FieldByName("NoDov").AsInteger; Exl.Cells[50,77].Value:=DataModule1.Esc.FieldByName("DateDov").AsDateTime;...
Вопрос:
А как определенному диапазону задать границы ячеек (то есть расчертить)?
Что-то вроде через Range; ...упс, запарился:)

← →
Leran2002 (2003-09-20 08:56) [1]

uses ActiveX, ComObj, ShlObj, Excel97;

var
ExcelApp:OleVariant;
...

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

ExcelApp.Range[ExcelApp.Cells[1, 1], ExcelApp.Cells[NumRow, 8]].Borders.LineStyle := xlContinuous;

← →
Leran2002 (2003-09-20 08:57) [2]

ExcelApp.Range[ExcelApp.Cells[1, 1], ExcelApp.Cells[10, 10]].Borders.LineStyle := xlContinuous; :)

← →
Denizzz (2003-09-20 08:59) [3]

Пасиба.
Разберусь.

Работа с Excel Найти похожие ветки