Cara Mudah Export ListView Ke Microsoft Excel

ListView merupakan salah satu objek yang digunakan untuk menampilkan data, baik itu menampilkan data yang bersumber dari database maupun data yang kita secara manual. Sama hal nya dengan objek DataGridView. Namun, menurut saya Listview ini lebih 'cantik' dan 'menawan', Hehhehe.... ^_^. Baiklah, tanpa basa-basi, kita langsung saja menuju ke T.K.P.

Untuk mengexport ListView ke Excel, sebelumnya pada project kita harus di Reference dahulu file 'Microsoft.Office.Interop.Excel'.

Bagi yang belum tau cara Add reference, ini caranya :

- Klik Menu Project

- Pilih Add Reference

- Pilih Tab .NET

- Cari 'Microsoft.Office.Interop.Exel'

- Lalu Ok.

Setelah itu, tambahkan pada baris paling atas code editor :

Imports Excel = Microsoft.Office.Interop.Excel

Selanjutnya, tambahkan pada form design sebuah button, misalnya diberi judul 'Export To Excel'. Lalu, tambahkan coding berikut pada button tersebut.

Try
     Dim objExcel As New Excel.Application
     Dim bkWorkBook As Excel.Workbook
   Dim shWorkSheet As Excel.Worksheet
     Dim i As Integer
     Dim j As Integer

     objExcel = New Excel.Application
     bkWorkBook = objExcel.Workbooks.Add
     shWorkSheet = CType(bkWorkBook.ActiveSheet, Excel.Worksheet)
     For i = 0 To Me.ListView1.Columns.Count - 1
           shWorkSheet.Cells(1, i + 1) = Me.ListView1.Columns(i).Text
     Next
   For i = 0 To Me.ListView1.Items.Count - 1
           For j = 0 To Me.ListView1.Items(i).SubItems.Count - 1
                 shWorkSheet.Cells(i + 2, j + 1) = Me.ListView1.Items(i).SubItems(j).Text
           Next
     Next

     objExcel.Visible = True
Catch ex As Exception
     MsgBox(ex.Message)
End Try

Berikut adalah Screenshoot dari project saya :