Export Data Dari Listview ke Excel

Pada pembuatan sebuah laporan adakalanya kita ingin mengexport data tersebut ke format excel,didelphi hal tersebut sangat bisa dilakukan,baik itu menggunakan komponen tambahan ataupun tidak.

Jika kamu ingin mengExport data yang ditampilkan Listview ke Excel, mungkin kamu bisa pakai Coding dibawah ini :

 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls,ComObj;

Lihat coding Diatas,jangan lupa tambahkan ComObj terlebih dahulu. Dan Untuk Perintah Exportnya lihat ini :

procedure TForm1.Button2Click(Sender: TObject);
var
 xlapp, xlbook,XlSheet: OLEVariant;
 baris,kolom,x,y:integer;
begin
 xlapp := CreateOLEObject('Excel.Application');
 xlbook := xlapp.Workbooks.Add;
 XlSheet  := XlBook.worksheets.add;
 xlapp.Visible := True;
 baris:=ListView1.Items.Count;
 kolom:=3;  // jumlah kolom listview
 {Cetak judul kolom}
 for x:=1 to 3 do
  XlSheet.Cells[1,x].value:= ListView1.Columns[x-1].Caption;
 for y:=0 to baris-1 do
 for x:=1 to kolom do
 begin
   begin
    if x=1 then
     {cetak kolom pertama}
      XlSheet.Cells[y+2,x].value := ListView1.Items.Item[y].Caption
    else
    {cetak kolom kedua dan seterusnya}
     XlSheet.Cells[y+2,x].value := ListView1.Items.Item[y].SubItems[x-2];
   end;
 end;
end; 

BACA JUGA : Membuat Nomor Urut Pada Listview di Delphi

Jika ada Error silahkan Cek Ulang Coding di atas mungkin anda lebih jago dari saya. Selamat mencoba...

Posted by Antas Delphi on - Rating: 4.5

Title : Export Data Dari Listview ke Excel
Description : Pada pembuatan sebuah laporan adakalanya kita ingin mengexport data tersebut ke format excel,didelphi hal tersebut sangat bisa dilakukan,ba...