Cara Buka File Excel menggunakan Delphi XE5

By: QMPC Network on 02.43

Dipostingan penulis kali ini akan berbagi bagaimana cara membuka file excel agar bisa tampil ke delphi dengan bantuan listview, ibarat katakita mengekstrak isi excel dan menginputkan ke listview caranya cukup simple karena cukup mengkopi saja sebuah fungsi. Selahkan cermati langkah-langkahnya..

Langkah 1 :
Silahkan Buka Delphi XE5

Langkah 2 :
Siapkan sebuah form dan yang pasti kita butuh komponen ListView yang bisa temukan pada Win 32, kita juga butuh sebuah OpenDialog, yang bisa di temukan pada Dialogs, untuk membuka file dan tombol tentunya, serta silahkan tambahkan pernak-pernik biar tambah siip, dan desain form yang penulis buat tampak seperti gambar berikut :

Langkah 3 :
Sekarang klik ListView dan set tiga propertis berikut seperti gambar dibawah ini :

Langkah 4 :
Kita setting bagian ReadOnly, RowSelect, dan ViewStyle sesuai gambar.

Keterangan :

readonly tentu saja supaya listview tidak bisa diedit isinya.
RowSelect supaya saat kursor masuk ListView dia menyorot baris bukan cell, 

Langkah 5 :
Sekarang kita menyiapkan data excel seperti berikut ini :

Langkah 6 :
Selanjutya kita akan tambahkan klausa uses ComObj, karena nanti kita akan gunakan untuk memanipulasi aplikasi excel.

Langkah 7 :
Setelah menambahkan uses tersebut tuliskan tambahkan source code berikut :

Procedure TForm1.bacaexcel(SheetIndex:integer);
Var
 Xlapp1, Sheet :Variant ;
 i, MaxRow, MaxCol,x,y :integer ;
 Temp,Lokasi :string;
 Baris :TListItem;
begin
 Lokasi := OpenDialog1.FileName;
 XLApp1 := CreateOleObject('excel.application');
 XLApp1.Workbooks.open(Lokasi) ;
 Sheet := XLApp1.WorkSheets[SheetIndex] ;
 MaxRow := Sheet.Usedrange.EntireRow.count ;
 MaxCol := sheet.Usedrange.EntireColumn.count;
 ListView1.Columns.Clear;
for i:=1 to MaxCol do
 begin
 ListView1.Columns.Add.Caption:=Sheet.Cells.Item[1,i].value;
 end;
 for x:=2 to MaxRow do
 begin
 Baris:=ListView1.Items.add;
 Baris.Caption:=Sheet.Cells.Item[x,1];
 for y:=2 to MaxCol do
 begin
 Baris.SubItems.Add('');
 Temp:=Sheet.Cells.Item[x,y];
 ListView1.Items[x-2].SubItems.Strings[y-2]:=Temp
 end;
 end;
 XLApp1.Workbooks.Close;
end;

Langkah 8 :
Pada Bagian button yang digunakan untuk membuka file tambahakan source code berikut ini :

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
Edit1.Text:=OpenDialog1.FileName;
bacaexcel(1);
end;
end;

Langkah 9 :
Jalankan aplikasi dengan klik run, hasilnya seperti gambar dibawah :