ok berikut adalah cara Export data yang di listview ke Microsoft Excel di VB.Net , work di visual studio 2010 dan excel 2010.
copy codingan ini di button atau terserah anda.
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.lvcm.Columns.Count - 1
shWorkSheet.Cells(1, i + 1) = Me.lvcm.Columns(i).Text
Next
For i = 0 To Me.lvcm.Items.Count - 1
For j = 0 To Me.lvcm.Items(i).SubItems.Count - 1
shWorkSheet.Cells(i + 2, j + 1) = Me.lvcm.Items(i).SubItems(j).Text
Next
Next
objExcel.Visible = True
Catch ex As Exception
MsgBox(ex.Message)
End Try
'lvcm ganti dengan nama listview anda
setelah di copy pasti anda akan menemukan error seperti ini, sukur2 kalo gk error
-error : Type 'Excel.Application' Is not Defined
-error : Type 'Excel.WorkBook' Is not Defined
dan lain lain
cara mengatasi nya adalah.
masuk ke menu Project di atas > Pilih properties > references > add> Tab NET > Microsoft.Office.Interop.Excel
setelah itu masih di tempat yang sama, tapi rada turunin sedikit.
pastikan Microsoft.Office.Interop sudah tercentang.
setelah sudah . running your app and enjoy .
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :
