Export DbGrid Ke Excel

Hallo sobat blogger, sudah lama ga' posting maklum karena sibuk banyak kegiatan di luar.he5x. Sok sibuk, ok dech pada kesempatan kali ini saya akan coba sharing ilmu mengexport dbgrid ke excel, mngkn sudah banyak blog-blog yang membahas tentang export data atau membuat laporan kedalam bentuk excel. Ini contoh source nya :D
procedure exportExcel;
var
i, x: Integer;
sfile: string;
begin
// buka excel
XlApp := CreateOleObject('Excel.Application');
// tambahkan workbook
XlBook := XlApp.WorkBooks.Add;
// tambahkan worksheet
XlSheet := XlBook.worksheets.Add;
// cetak header field dari dbgrid
for i := 0 to DBgrid.FieldCount - 1 do
begin
XlSheet.cells[2, i + 1].value := DBgrid.columns[i].Title.Caption;
end;
// transfer data ke excel
Table1.First;
x := 1;
while not Table1.Eof do
begin
for i := 0 to DBgrid.FieldCount - 1 do
begin
XlSheet.cells[2 + x, i + 1].value := DBgrid.Fields[i].Text;
end;
Table1.Next;
inc(x);
end;
if MessageDlg('Apakah hasil export ditampilkan..?', mtConfirmation,
[mbYes, mbNo], 0) = mrYes then
begin
MessageDlg('Hasil Ditampilkan', mtInformation, [mbOk], 0);
XlApp.visible := true;
end
else
// simpan ke file
begin
sfile := InputBox('Nama File', 'hasil export', 'c:\hasil.xls');
XlApp.ActiveWorkbook.SaveAs(sfile);
XlApp.visible := true;
end;
end;