[ADS] Top Ads

Tutorial VB.Net #26: Cara Export Data Datagridview ke Microsoft Excel

Tutorial VB.Net #26: Cara Export Data Datagridview ke Microsoft Excel


Tutorial VB.Net #26: Cara Export Data Datagridview ke Microsoft Excel - priacoding. Pada postingan priacoding sebelumnya kita telah membahas bagaimana cara melakukan import data dari Microsoft Excel ke Datagridview VB.Net dan pada postingan kali ini kita akan membahas bagaimana cara Export Data Datagridview VB.Net ke Microsoft Excel.

Export itu sendiri merupakan proses untuk mengaluarkan data atau file dari aplikasi yang digunakan agar dapat digunakan juga pada aplikasi lain baik untuk merubah isi data tersebut atau merubah formatnya.

Langsung saja ikuti langkah-langkah berikut..
1. Buat satu buah project
Masukan satu buah Datagridview dan satu buah button, seperti gambar
Export Data Datagridview ke Microsoft Excel pada VB.Net

2. Tambah Column Datagridview
Untuk menambah column datagridview cek disini
Maka akan menghasilkan..
Export Data Datagridview ke Microsoft Excel pada VB.Net


3. Tahap pengcodingan
Pastekan coding dibawah pada paling atas kode editor

Imports Excel = Microsoft.Office.Interop.Excel

Setelah itu Double klik tombol Export dan pastekan coding dibawah..

Try
            Dim ExcelApp As Microsoft.Office.Interop.Excel.Application
            Dim ExcelWorkBook As Microsoft.Office.Interop.Excel.Workbook
            Dim ExcelWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
            Dim misValue As Object = System.Reflection.Missing.Value
            Dim a As Integer
            Dim b As Integer

            ExcelApp = New Microsoft.Office.Interop.Excel.Application
            ExcelWorkBook = ExcelApp.Workbooks.Add(misValue)
            ExcelWorkSheet = ExcelWorkBook.Sheets("sheet1")

            For a = 0 To DataGridView1.RowCount - 2
                For b = 0 To DataGridView1.ColumnCount - 1
                    For c As Integer = 1 To DataGridView1.Columns.Count
                        ExcelWorkSheet.Cells(1, c) = DataGridView1.Columns(c - 1).HeaderText
                        ExcelWorkSheet.Cells(a + 2, b + 1) = DataGridView1(b, a).Value.ToString()
                    Next
                Next
            Next

            ExcelWorkSheet.SaveAs("D:\DB\Test.xlsx")
            ExcelWorkBook.Close()
            ExcelApp.Quit()

            releaseObject(ExcelApp)
            releaseObject(ExcelWorkBook)
            releaseObject(ExcelWorkSheet)

            MsgBox("Hasil export tersimpan di D:\DB, dengan nama Test.xlsx")
        Catch ex As Exception

        End Try

Jangan lupa tambahkan juga coding dibawah pada kode editor

Private Sub releaseObject(ByVal obj As Object)
        Try
            System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
            obj = Nothing
        Catch ex As Exception
            obj = Nothing
        Finally
            GC.Collect()
        End Try

    End Sub

Kira-kira codingnya seperti dibawah..


4. Implementasi
Jalankan aplikasi, Isi Datagridview dan klik tombol Export
Cara Export Data Datagridview ke Microsoft Excel pada VB.Net

Maka akan menghasilkan..
Cara Export Data Datagridview ke Microsoft Excel pada VB.Net

Penjelasan :
"D:\DB\Test.xlsx" = merupakan lokasi penyimpanan hasil Export, silahkan dirubah sesuai dengan yang anda inginkan

Unduh Sourcecode
Pass: priacoding.com

Terimakasih, semoga bermanfaat..

Note
Himbauan : Jika artikel ini memang berguna untuk teman-teman, MOHON artikel ini dibagikan kepada yang lain AGAR teman-teman kita juga mendapat manfaatnya. Terimakasih..

Post a Comment

[ADS] Bottom Ads