Как вывести из dbgrid в Excel, причем вывести в разные ячейки

[Rinat228]

procedure TForm4.Button6Click(Sender: TObject);
var
ExcelApp : variant;
row :integer;
col, index:integer;
begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0))+'Сведения о Учениках[.xlsx');
ExcelApp.Visible := false;
ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Лист 1';

[Serge_Bliznykov]

на форуме это было.
например,

http://programmersforum.ru/showpost....40&postcount=3

http://programmersforum.ru/showpost....92&postcount=5

http://programmersforum.ru/showthread.php?t=314819

http://programmersforum.ru/showthread.php?t=300972

[Rinat228]

Кто может расписать конкретнее (Заранее спасибо)

[Serge_Bliznykov]

Сообщение от Rinat228

Кто может расписать конкретнее (Заранее спасибо)

так достаточно конкретно?
(правда совсем не универсально!)

procedure TForm4.Button6Click(Sender: TObject);
var
  ExcelApp, Sheet : variant;
  i, row, col, index :integer;
begin
     ExcelApp:=CreateOleObject('Excel.Application');
     ExcelApp.workbooks.open(ExtractFilePath(ParamStr(0))+'Сведения о Учениках[.xlsx');
     ExcelApp.Visible := false;
     ExcelApp.WorkBooks[1].WorkSheets[1].Name := 'Лист 1';


     Sheet:=ExcelApp.WorkBooks[1].WorkSheets[1];
     Sheet.Cells[1,3]:='Заключение хоздоговоров :    '+' ' +FormatDateTime('dd.mm.yyyy', Now);
     Sheet.Cells[1].RowHeight := 20; // высота ячейки ! Это для заголовки
//     Sheet.Cells[2].RowHeight := 60;
     Sheet.Cells[2,1]:='№ договора ';
     Sheet.Cells[2,2]:='Дата заключ. дог.';
     Sheet.Cells[2,3]:='Дата заверш. дог.';
     Sheet.Cells[2,4]:='Тема договора';
     Sheet.Cells[2,5]:='Наимен. организации';
     Sheet.Cells[2,6]:='Признак';
     Sheet.Cells[2,7]:='Стоимость дог.';

    //---------------------------------------------------------
    index :=3;
    qryXD.First;
    for i:=0 to qryXD.RecordCount-1  do
    begin
      //--------------  выравнивание Текст по центру 
       Sheet.Cells[index,1].HorizontalAlignment:=3;
       Sheet.Cells[index,2].HorizontalAlignment:=3;
       Sheet.Cells[index,3].HorizontalAlignment:=3;
       Sheet.Cells[index,4].HorizontalAlignment:=3;
       Sheet.Cells[index,5].HorizontalAlignment:=3;
       Sheet.Cells[index,6].HorizontalAlignment:=3;
       Sheet.Cells[index,7].HorizontalAlignment:=3;
      // ---------------------------------------------------------//
       Sheet.Cells[index,1]:=  qryXD.Fields[0].AsString;
       Sheet.Cells[index,2]:=  FormatDateTime('dd.mm.yyyy', qryXD.Fields[1].AsDateTime);
       Sheet.Cells[index,3]:=  FormatDateTime('dd.mm.yyyy', qryXD.Fields[2].AsDateTime);
       Sheet.Cells[index,4]:=   qryXD.Fields[3].AsString;
       Sheet.Cells[index,5]:=   qryXD.Fields[4].AsString;
       Sheet.Cells[index,6]:=   qryXD.Fields[5].AsString;
       Sheet.Cells[index,7]:=   qryXD.Fields[6].AsString;
       Inc(index);
       qryXD.Next;
   end;

  ExcelApp.WorkBooks[1].SaveAs(ExtractFilePath(ParamStr(0))+'Отчёт.xlsx');
  Sheet := Unassigned; 
  ExcelApp.Quit;
  ExcelApp := Unassigned;

end;