StrngGrid Excel Не полностью экспортирует

[armrock]

ЕСть код экспорта из stringrid в excel, но он переносит только данные таблицы. А КАК СДЕЛАТЬ ЧТО Б ПЕРЕНОСИЛ ДАННЫЕ С ШАПКОЙ,кароче точно так как есть!!!!

procedure TForm4.BitBtn5Click(Sender: TObject);
var
     ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData  : Variant;
     BeginCol, BeginRow, RowCount, ColCount, i, j : integer;
 begin
     BeginCol := 1;
     BeginRow := 1;
     ExcelApp := CreateOleObject('Excel.Application');
     ExcelApp.Application.EnableEvents := false;
     Workbook := ExcelApp.WorkBooks.Add;
     RowCount := stringgrid1.RowCount;
     ColCount := stringgrid1.ColCount;
     ArrayData := VarArrayCreate([0, RowCount+1, 0, ColCount+1], varVariant);
     for I := 0 to RowCount-1 do
     for j := 0 to ColCount-1 do
     ArrayData[I+1, j+1] := stringgrid1.Cells[j,i+1];
     ExcelApp.cells[1,1].select;
     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;
     ExcelApp.Visible := true;
end;

[Базиля]

Так а вы эту шапку не забираете из стринггрида

   for I := 0 to RowCount-1 do
     for j := 0 to ColCount-1 do
     ArrayData[I+1, j+1] := stringgrid1.Cells[j,i+1];

Измените на:

   for I := 0 to RowCount-1 do
     for j := 0 to ColCount-1 do
     ArrayData[I+1, j+1] := stringgrid1.Cells[j,i];

[armrock]

Блин.. Вот я слепой... Спасибо!!! Может за одно ещё подскажете как таблицу нарисовать в excel и ЗАГАЛОВОК, а то просто данные не очень красиво=)

[Базиля]

Для указания заголока самой таблицы, нужно спера объединить ячейки.
Приведу вам пример:

excel.WorkBooks[1].WorkSheets[1].Range['A1:A5'].Merge;

Далее задаем заголовок:

excel.WorkBooks[1].WorkSheets[1].Range['A1'].Value:='Мой заголовок';

Для красоты, выравниваем сам заголовок:

excel.WorkBooks[1].WorkSheets[1].Range['A1'].HorizontalAlignment := xlCenter;

Для прорисовки таблицы, для начала необходмо выделить область которую и будем прорисовывать:

excel.WorkBooks[1].WorkSheets[1].Range['A2:H5'].select;

Ну и далее остается только прописать выделение нашего диапазона, где указывается что мы хотим выделить каждую из всех сторон таблицы и задается сама ширина линий:

excel.Selection.Borders[xlEdgeLeft].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeLeft].Weight := xlThin;
excel.Selection.Borders[xlEdgeTop].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeTop].Weight := xlThin;
excel.Selection.Borders[xlEdgeBottom].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeBottom].Weight := xlThin;
excel.Selection.Borders[xlEdgeRight].LineStyle := xlContinuous;
excel.Selection.Borders[xlEdgeRight].Weight := xlThin;

Вообще есть такая полезная штука, называется она - макрос. Пишите макрос, смотрите на полученный код и все становится ясно.

[armrock]

Спасибо большое!!! Всё сделал! Всё работает!