Cara Gampang Export data dari dbGrid ke Ms.Excel Pada Delphi 7
Pemrograman
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;
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 :
1. Tambahkan ‘comobj’ pada uses
1. Tambahkan ‘comobj’ pada uses
2. Tambahkan : XlApp, XlBook, XlSheet, XlSheets, Range,chat : Variant;
: WApp, Word : 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
Password:
