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

2. Tambah Column Datagridview

Untuk menambah column datagridview cek disini
Maka akan menghasilkan..

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

Maka akan menghasilkan..

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..

Baca Juga:

• Tutorial VB.Net #06: Entry Data Ke Datagridview
• Tutorial VB.Net #25: Cara Import Data Ms. Excel ke Datagridview
• Tutorial VB.Net #27: Cara Membuat Grafik Line, Bar, Dkk

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..