Cara Membuat Export Datagridview Ke Excel Vb Et

Di era digital ini, penggunaan komputer sangatlah penting untuk mempermudah aktivitas keseharian. Tak terkecuali bagi para developer yang bekerja dengan mengembangkan aplikasi, salah satunya Visual Basic .NET (VB.NET).

VB.NET adalah bahasa pemrograman yang digunakan dalam pengembangan aplikasi berbasis desktop, yang fokus utamanya adalah pada pengembangan aplikasi Windows dengan antarmuka pemrograman (API) Windows.

Dalam pembuatan aplikasi VB.NET, ada beberapa hal yang penting untuk dipelajari, salah satunya adalah mengolah data excel ke dalam aplikasi. Hal ini dapat dilakukan dengan mengimport data dari file excel ke dalam tabel datagridview, serta mengekspor data dari tabel datagridview ke dalam file excel.

Import Data Excel ke Datagridview

Import data excel ke dalam datagridview dapat dilakukan dengan menggunakan fungsi OleDbDataAdapter, dimana dengan OleDbDataAdapter, kita dapat membaca data dari file excel dan memuatnya ke dalam tabel datagridview.

Berikut adalah contoh program import data excel ke datagridview menggunakan VB.NET:

“`
Private Sub btnImport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImport.Click
Dim conn As OleDbConnection = New OleDbConnection()
Dim cmd As OleDbCommand = New OleDbCommand()
Dim da As OleDbDataAdapter = New OleDbDataAdapter()
Dim ds As DataSet = New DataSet()
Dim excelFilePath As String
Dim OpenFileDialog As New OpenFileDialog()

‘ Mengatur filter extensi file yang dapat dibuka
OpenFileDialog.Filter = “Excel Files|*.xls;*.xlsx;*.xlsm”

‘ Jika user memilih file excel, maka program akan membuka file excel tersebut
If OpenFileDialog.ShowDialog() = DialogResult.OK Then
excelFilePath = OpenFileDialog.FileName
Else
Return
End If

conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” + excelFilePath + “;Extended Properties=Excel 12.0;”
cmd.CommandText = “SELECT * FROM [Sheet1$]”
cmd.Connection = conn
da.SelectCommand = cmd

conn.Open()
da.Fill(ds)

DataGridView1.DataSource = ds.Tables(0)

conn.Close()
End Sub
“`

Jika program di atas dijalankan, maka pada saat di klik tombol import, program akan membuka jendela dialog yang akan memunculkan file explorer untuk memilih file excel yang akan diimport.

Setelah file excel dipilih, program akan melakukan koneksi ke file excel tersebut menggunakan OleDbConnection, dan membaca data dari sheet yang ditentukan dengan perintah SQL menggunakan OleDbCommand. Data yang telah berhasil dibaca akan dimuat ke dalam datagridview menggunakan OleDbDataAdapter.

Export Data Datagridview ke Excel

Selain import data excel ke datagridview, kita juga dapat mengeksport data dari tabel datagridview ke dalam file excel menggunakan teknik pengambilan data dari tabel datagridview dan penyimpanan ke dalam file excel.

Berikut adalah contoh program eksport data dari datagridview ke dalam file excel menggunakan VB.NET:

“`
Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click
Dim file As New SaveFileDialog()
file.Filter = “Excel Files|*.xls;*.xlsx;*.xlsm”
file.ShowDialog()

If file.FileName “” Then
Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
Dim i As Integer
Dim j As Integer

xlApp = New Excel.ApplicationClass
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets(“sheet1”)

For i = 0 To DataGridView1.RowCount – 2
For j = 0 To DataGridView1.ColumnCount – 1
For k As Integer = 1 To DataGridView1.Columns.Count
xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k – 1).HeaderText
xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString()
Next
Next
Next

With xlWorkSheet
.Range(.Cells(1, 1), .Cells(1, DataGridView1.Columns.Count)).Font.Bold = True
.Range(“A1:Z1”).EntireColumn.AutoFit()
.Range(“A1:Z1”).HorizontalAlignment = Excel.Constants.xlCenter
End With

xlWorkBook.SaveAs(file.FileName)
xlWorkBook.Close(True, misValue, misValue)
xlApp.Quit()

releaseObject(xlWorkSheet)
releaseObject(xlWorkBook)
releaseObject(xlApp)

MsgBox(“Export Berhasil”)
End If
End Sub

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
“`

Jika program di atas dijalankan, maka pada saat di klik tombol export, program akan membuka jendela dialog yang akan menanyakan lokasi file dan nama file excel yang akan disimpan.

Setelah file excel dipilih, program akan mengambil data dari tabel datagridview dan menuliskannya ke dalam file excel menggunakan Object Model dari Excel menggunakan Microsoft Excel 12.0 Object Library dan Excel.ApplicationClass.

FAQ

Bagaimana cara membuka file excel yang berbeda format atau versi dengan file excel yang digunakan dalam program VB.NET?

Untuk membuka file excel yang berbeda format atau versi dengan file excel yang digunakan dalam program VB.NET, diperlukan pengaturan Extended Properties pada OleDBConnection. Berikut adalah contoh pengaturan Extended Properties untuk membuka file excel versi terbaru dengan file excel versi lama:

“`
Dim conn As OleDbConnection = New OleDbConnection()
Dim cmd As OleDbCommand = New OleDbCommand()
Dim da As OleDbDataAdapter = New OleDbDataAdapter()
Dim ds As DataSet = New DataSet()
Dim excelFilePath As String

‘ Pengaturan Extended Properties untuk membuka file Excel versi baru di Excel versi lama
conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=” + excelFilePath + “;Extended Properties=Excel 8.0;HDR=Yes;”
“`

Bagaimana cara mengecek apakah data sudah berhasil ter-save ke dalam file excel?

Untuk mengecek apakah data dari tabel datagridview sudah berhasil tersimpan ke dalam file excel, dapat dilakukan dengan mengupdate tombol export agar menampilkan pesan error jika terjadi kesalahan dalam proses penyimpanan, disertai dengan pesan berhasil ketika proses sudah selesai.

“`
Private Sub btnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExport.Click
Try
‘ Kode penyimpanan data ke excel

MsgBox(“Export Berhasil”)
Catch ex As Exception
MsgBox(“Terjadi Kesalahan: ” + ex.Message)
End Try
End Sub
“`

Video Tutorial

Berikut adalah video tutorial singkat mengenai cara import dan export data excel pada VB.NET: