[UlarSoft]

Экспортирую из Дельфи в Excel из таблицы, вот код программы:
procedure TfmSprRni.tPrintExecute(Sender: TObject);
begin
with dm do
BEGIN
{не забудьте включить ComObj в список используемых модулей}
// Создаем массив элементов, полученных в результате запроса
XArr:=VarArrayCreate([1,qSprRni.FieldCount],varVariant);
XL:=CreateOLEObject('Excel.Application'); {Создание OLE объекта}
XL.WorkBooks.add;
XL.visible:=true;

j := 4;

XL.Range['A1','B1'].MergeCells:=True; {Объединение ячеек}
XL.Range['A1','A1'].Value :='Справочник РНИ';
XL.Range['A1','A1'].Font.Bold:=True;
XL.Range['A1','A1'].Font.Color:=clRed;
XL.Range['A3','A3'].Value :='Наименование';
XL.Range['A3','A3'].Font.Bold:=True;
XL.Range['B3','B3'].Value :='Код';
XL.Range['B3','B3'].Font.Bold:=True;

qSprRni.First;
while not qSprRni.Eof do
begin
i:=1;
while i<=qSprRni.FieldCount do
begin
XArr[i] := qSprRni.Fields[i-1].Value;
i := i+1;
end;
XL.Range['A'+IntToStr(j),
CHR(64+qSprRni.FieldCount)+IntToStr(j)].Value := XArr;
qSprRni.Next;
j:=j+1;
end;
XL.Range['A1',CHR(64+qSprRni.FieldCount)+IntToStr(j)].select;
XL.Selection.Font.Name:='Arial cur';
XL.Selection.Font.Size:=10;
XL.selection.Columns.AutoFit;
XL.Range['A1','A1'].select;
End;


end;

Вопрос: Как из Delphi нарисовать границу ячеек в Excel?

[limur]

стиль линии границы
Range['A4','l'+inttostr(_str-1)].Borders.LineStyle:=xlContinuous;
ширина линии
Range['A4','l'+inttostr(_str-1)].Borders.Weight:=xlHairline;
обводим табличку
Range['A4','l'+inttostr(_str-1)].BorderAround(xlContinuous,
xlThin,
xlAutomatic,
xlAutomatic);

Удачи!

[UlarSoft]

Дорогой, limur.

У меня ошибки:
_str, xlContinuous, xlHairline, xlContinuous, xlThin, xlAutomatic - undeclared identifier.

Вы можете по подробнее, если можно, помогите плииииз...

[Aristarh Dark]

константы описаны в excel*.pas

[UlarSoft]

Огромное Вам спасибо ребята... Вы мне очень помогли... У меня все получилась...