将数据从DBGrid导出到Excel

我想知道是否有人可以将数据从DBGrid导出到Excel？ 我正在使用Delphi 7，Excel 2007和ADO。
任何帮助将不胜感激。

Answer 1

如果你想快速导出原始数据，只需要导出你的logging集（ADODataset.recordset）：

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;