Cara Export data dari dbGrid ke Ms.Excel Pada Delphi 7

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

tambahkan : XlApp, XlBook, XlSheet, XlSheets, Range,chat : Variant;
                   : WApp, Word : Variant; pada private declaration

 

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

 

Tweet

Subscribe to receive free email updates: