Sorgulama sonucunu excele aktarmak

[secret_boy]

Merhaba arkadaşlar ben bir konuda takıldım forumda da araştırdım fakat bulamadım.
SQL server dan çektiğim bir veriyi dbgride aktarıyorum bu aktarmış olduğum veriyi excele nasıl aktarabilirim.Dbgride aktarılan veriler sürekli değişiyor sutun isimleri yani bu değişim için standart bir kod varmıdır. sorgu ile ne aktarırsam aktarayım bunu excele export edebilir miyim ?
teşekkürler.

[muratcelik64]

http://stackoverflow.com/questions/1705 ... d-to-excel

[secret_boy]

Kod: Tümünü seç

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;

sayın muratcelik64 bu procedure butonda nasıl kullanılır?

[secret_boy]

ExportRecordsetToMSExcel('D:\x.xls', ADOTable1.Recordset );

bu şekilde kullandım teşekkür ederim iyi çalışmalar