[Renat]

Как сделать границы?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

begin    try      XLApp := CreateOleObject('Excel.Application');      XLApp.WorkBooks.Add(GetCurrentDir+'\xls\Отчет.xls');     except      raise Exception.Create('not Excel');    end;   Sheet:=XLApp.Workbooks[1].Worksheets['Отчет']; index:=3; DataModule2.ADOQuery1.First; for i:=0 to DataModule2.ADOQuery1.RecordCount-1 do begin Sheet.Cells[index,1]:=DataModule2.ADOQuery1.Fields.Fields[1].AsString; Sheet.Cells[index,2]:=DataModule2.ADOQuery1.Fields.Fields[2].AsString; Sheet.Cells[index,3]:=DataModule2.ADOQuery1.Fields.Fields[3].AsString; Sheet.Cells[index,4]:=DataModule2.ADOQuery1.Fields.Fields[4].AsString; Sheet.Cells[index,5]:=DataModule2.ADOQuery1.Fields.Fields[7].AsString; Sheet.Cells[index,6]:=DataModule2.ADOQuery1.Fields.Fields[8].AsString; Sheet.Cells[index,7]:=DataModule2.ADOQuery1.Fields.Fields[9].AsString; Sheet.Cells[index,8]:=DataModule2.ADOQuery1.Fields.Fields[10].AsString; Sheet.Cells[index,9]:=DataModule2.ADOQuery1.Fields.Fields[11].AsString; Inc(index); DataModule2.ADOQuery1.Next; XLApp.Visible := true; end;

[Aristarh Dark]

Запиши в экселе макрос, посмотри его код. Перепиши этот код себе.

[Renat]

сделал! Тема закрыта!