Export Data Dari Listview ke Excel

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

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;



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;

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