Delphi и Exsel

Помогите пожалуйста, я сохраняю поля с DataModule2, передаёт нормально в виде таблицы но вот вся проблема в том что когда я передаю данные в Exsel текст не бывает видно, нужно поля растягивать в Exsel'e, подскажите пожалуйста как вручную их прописать в Delphi чтоб они создавались под размер текста в Exel, или как заранее сделать заготовку прописанную с определённым горизонтальным размером
Код передачи в Exsel выглядит так:

procedure TForm1.sSpeedButton2Click(Sender: TObject);
var
ExcelApp, WorkBook, Range, Cell1, Cell2, ArrayData: Variant;
BeginCol,BeginRow,i,j:integer;
RowCount,ColCount:integer;
begin
sDBGrid2.Enabled:=False;
BeginCol:=1;
BeginRow:=5;
RowCount:=DataModule2.Vzisk.RecordCount;
ColCount:=DataModule2.Vzisk.FieldCount;
ExcelApp:=CreateOleObject('Excel.Applica tion');
ExcelApp.Application.EnableEvents:=false ;
WorkBook:=ExcelApp.WorkBooks.Add;
ArrayData:=VarArrayCreate([1,RowCount,1,ColCount],varVariant);
i:=1;
DataModule2.Vzisk.First;
while not DataModule2.Vzisk.Eof do
begin
for j:=1 to ColCount do
ArrayData[i,1]:=DataModule2.Vzisk.Fields[0].AsString;
ArrayData[i,2]:=DataModule2.Vzisk.Fields[1].AsString;
ArrayData[i,3]:=DataModule2.Vzisk.Fields[2].AsString;
ArrayData[i,4]:=DataModule2.Vzisk.Fields[3].AsString;
ArrayData[i,5]:=DataModule2.Vzisk.Fields[4].AsString;
ArrayData[i,6]:=DataModule2.Vzisk.Fields[5].AsString;
ArrayData[i,7]:=DataModule2.Vzisk.Fields[6].AsString;
DataModule2.Vzisk.Next;
i:=i+1;
end;
cell1:=WorkBook.WorkSheets[1].Cells[BeginRow,BeginCol];
cell2:=WorkBook.WorkSheets[1].Cells[BeginRow+RowCount-1,BeginCol+ColCount-1];
Range:=WorkBook.WorkSheets[1].Range[Cell1,Cell2];
Range.Value:=ArrayData;
sDBGrid2.Enabled:=True;
ExcelApp.Visible:=true;
end;

0

//АвтоФит
переделай под Delphi

0

Если бы я ещё знал как

0

Тут ничего сложного! захотел, уже бы сделал!

0

Я новечёк и почти в этом всём не шарю

0