[ApxaHGe1]

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

Как экспортировать в Excel выделенную запись?

Код:

uses ComObj, ComCtrls;


procedure TForm1.Button1Click(Sender: TObject);
var
i,j,index: Integer;
ExcelApp,sheet: Variant;
begin
ExcelApp := CreateOleObject('Excel.Application');
 ExcelApp.Visible := False;
 ExcelApp.WorkBooks.Add(-4167); 
 ExcelApp.WorkBooks[1].WorkSheets[1].name := 'Заказы';
 sheet:=ExcelApp.WorkBooks[1].WorkSheets['Заказы'];
 index:=1; //Загоняем с первой строки
 DBGrid1.DataSource.DataSet.First;
      for i:=1 to  DBGrid1.DataSource.DataSet.RecordCount do
      begin 
      for j:=1 to DBGrid1.FieldCount do 
      sheet.cells[index,j]:=DBGrid1.fields[j-1].asstring; 
      inc(index); 
      DBGrid1.DataSource.DataSet.Next; 
      end; 
 ExcelApp.Visible := true;
end;