Eksport Data Bag. I

Ok kawan,,untuk materi sekarang saya akan mencoba menjabarkan listing program untuk meng-eksport data dari komponen listview ke dalam excel..


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;