Cara Export Database DBGrid ke Microsoft Excel pada Delphi

Lintas Informatika - Kembali lagi saya akan posting tentang Delphi yaitu bagaimana caranya export DBGrid ke sebuah file Microsoft Excel. Caranya sangat sederhana, kalian cukup sediakan button yang nantinya akan kita gunakan event on click, kemudian pastekan kode berikut :


Misalnya pada button 'Export ke Excel' di atas, kita pakai event on click kemudian paste

procedure TForm1.ExcelClick(Sender: TObject);
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 dbgrid1.FieldCount-1 do
begin
XlSheet.cells[2,i+1].value:=dbgrid1.columns[i].Title.Caption;
end;
// transfer data ke excel
table1.First;
x:=1;
while not table1.Eof do
begin
for i:=0 to dbgrid1.FieldCount-1 do
begin
XlSheet.cells[2+x,i+1].value:=dbgrid1.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;
 
NB : tambahkan 'comobj' pada uses

Agar lebih paham dan mengerti, berikut sudah saya sediakan source code diatas lengkap denga aplikasinya, silahkan di download pada link di bawah ini :

Source Code Export Database DBGrid ke Excel

password : www.lintasinformatika.com

2 comments: