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 :
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 :
Langkah 8 :
Pada Bagian button yang digunakan untuk membuka file tambahakan source code berikut ini :
Langkah 9 :
Jalankan aplikasi dengan klik run, hasilnya seperti gambar dibawah :
Read More
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 :
