Membuat Program Ekspor Database di DBGrid ke Excel

Ini merupakan menu andalan saya yang selalu ada setiap kali saya membuat progam. Saya menyediakan ekspor data dari database ke excel dan juga mengimpor master data dengan excel untuk memudahkan user. Saya pikir ini akan menjadi nilai plus saya dibanding program lain.

Dan kali ini saya akan bagikan script yang simple ini untuk kalian semua.

Ekspor Database ke Excel

Syarat utama ya harus punya Ms. Excel di komputer ya, minimal Excel 2003.

Kemudian siapkan database yang ditampilkan dalam DBGrid.

Buat satu tombol dengan perintah berikut ini :

procedure TFormMONBRKAS.SpeedButton5Click(Sender: TObject);
var I , A, tot_col : integer;
begin
  XlApp  := CreateOleObject('Excel.Application');
  XlBook := XlApp.WorkBooks.Add;
  XlSheet  := XlBook.worksheets.add;
  XlApp.visible:=true;
  I := 1;
  a := 1;
  tot_col := DBGridEh1.FieldCount;
  for a := 1 to tot_col do
  begin
    XlSheet.cells[1,A].value := DBGridEh1.Columns[a-1].Title.Caption;
    i := 2;
    ZQueryDOKUMEN.First;
    while not ZQueryDOKUMEN.Eof do
    begin
      XlSheet.cells[i,A].value := ZQueryDOKUMEN.FieldByName(DBGridEh1.Columns[a-1].FieldName).Value;
      ZQueryDOKUMEN.Next;
      inc(i);
    end;
  end;     
end;

Note :
Ganti ZqueryDokumen dengan nama Query anda
Ganti DBGridEh1 dengan nama DBGrid anda


Tambahkan script variable di Private

  private
    { Private declarations }
    XlApp, XlBook, XlSheet, XlSheets, Range,chat : Variant; // Excel 97
    WApp, Word , excel: Variant; 

Tambahkan 'comobj' pada uses

Setelah itu jalankan program, dan klik tombol Ekspor. Maka data yang diurutkan sesuai DBGrid akan terekspor ke excel seperti dibawah ini :

Sekian dari saya, semoga tutorial ini dapat membantu.
Apabila ada yang kurang jelas, silahkan tinggalkan komentar.


Terimakasih,
Windy

Share this

Eunike Windy