Xuất dữ liệu từ DBGrid sang Excel

Question

Tôi muốn biết liệu có ai đó có thể xuất dữ liệu từ DBGrid sang Excel không? Tôi đang sử dụng Delphi 7, Excel 2007 và ADO.
Mọi trợ giúp sẽ được đánh giá cao.

Answer 1

Nếu bạn muốn có một xuất nhanh dữ liệu thô, chỉ cần xuất recordset của bạn (ADODataset.recordset) với một cái gì đó như thế:

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;