Thursday, 14 May 2015

Cara Export Listview Ke Excel Pada VB.NET

 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 .




Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa

Artikel Terkait

No comments:

Post a Comment

 

Network

Pesan

Semoga situs ini bermanfaat