[lmikle]

Ну, примерно так же, как и выгрузка.
Примеров много... вот например один с stackoverflow.com:

Код:

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

procedure ExportRecordsetToMSExcel(DestName: string; Data: _Recordset); var   ovExcelApp: OleVariant;   ovExcelWorkbook: OleVariant;   ovWS: OleVariant;   ovRange: OleVariant; begin   ovExcelApp := CreateOleObject('Excel.Application'); //If Excel isnt installed will raise an exception   try     ovExcelWorkbook   := ovExcelApp.WorkBooks.Add;     ovWS := ovExcelWorkbook.Worksheets.Item[1]; // go to first worksheet     ovWS.Activate;     ovWS.Select;     ovRange := ovWS.Range['A1', 'A1']; //go to first cell     ovRange.Resize[Data.RecordCount, Data.Fields.Count];     ovRange.CopyFromRecordset(Data, Data.RecordCount, Data.Fields.Count); //this copy the entire recordset to the selected range in excel     ovWS.SaveAs(DestName, 1, '', '', False, False);   finally     ovExcelWorkbook.Close(SaveChanges := False);     ovWS := Unassigned;     ovExcelWorkbook := Unassigned;     ovExcelApp := Unassigned;   end; end;