Ulasan kali ini akan membahas tentang cara Export DataGridView ke PDF dan Excel menggunakan VB.NET. Export DataGridview ke format dokumen PDF dan Excel merupakan hal yang sering dilakukan ketika kita mengembangkan aplikasi desktop menggunakan VB.NET, terutama aplikasi yang berbasis database. Nah, pada artikel ini, kita akan membahas cara melakukannya dengan mudah dan cepat menggunakan VB.NET.
Bagaimana cara Export DataGridView ke PDF menggunakan VB.NET?
Step 1: Pertama-tama, buat sebuah function baru pada project VB.NET kamu dengan nama ExportToPDF. Berikut adalah contoh kodenya:
Private Sub ExportToPDF(ByVal dataGridView As DataGridView)
Dim pdfDoc As Document = New Document(PageSize.A4)
Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(pdfDoc, New FileStream("Data.pdf", FileMode.Create))
pdfDoc.Open()
Dim table As PdfPTable = New PdfPTable(dataGridView.Columns.Count)
For i As Integer = 0 To dataGridView.Columns.Count - 1
table.AddCell(New Phrase(dataGridView.Columns(i).HeaderText))
Next
table.HeaderRows = 1
For i As Integer = 0 To dataGridView.Rows.Count - 1
For j As Integer = 0 To dataGridView.Columns.Count - 1
If Not dataGridView.Rows(i).IsNewRow Then
table.AddCell(dataGridView(j, i).Value.ToString())
End If
Next
Next
pdfDoc.Add(table)
pdfDoc.Close()
End Sub
Dalam function diatas, kita membuat object PDF document, kemudian membuka file dengan filename ‘Data.pdf’. Setelah itu, kita membuat object PdfPTable dan menambahkan header column dari DataGridView. Kemudian, kita mengambil data dari DataGridView dan ditambahkan ke PdfPTable. Setelah selesai, kita menutup dokumen PDF.
Step 2: ExportToPDF function akan dipanggil ketika button Export To PDF ditekan. Berikut adalah contoh kodenya:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ExportToPDF(DataGridView1)
End Sub
Button1_Click function hanya memanggil ExportToPDF function dan memasukkan DataGridView sebagai parameter.
Bagaimana cara Export DataGridView ke Microsoft Excel menggunakan VB.NET?
Step 1: Pertama-tama, buat sebuah function baru pada project VB.NET kamu dengan nama ExportToExcel. Berikut adalah contoh kodenya:
Private Sub ExportToExcel(ByVal dataGridView As DataGridView)
Dim xlApp As Excel.Application = New Microsoft.Office.Interop.Excel.Application()
Dim xlWorkbook As Excel.Workbook = xlApp.Workbooks.Add(Type.Missing)
Dim xlWorkSheet As Excel.Worksheet = CType(xlWorkbook.Sheets("Sheet1"), Excel.Worksheet)
xlApp.Visible = True
Dim StartCol As Integer = 1
Dim StartRow As Integer = 1
For j As Integer = 0 To dataGridView.Columns.Count - 1
xlWorkSheet.Cells(StartRow, StartCol + j) = dataGridView.Columns(j).HeaderText
Next
StartRow += 1
For i As Integer = 0 To dataGridView.Rows.Count - 1
For j As Integer = 0 To dataGridView.Columns.Count - 1
If Not dataGridView.Rows(i).IsNewRow Then
xlWorkSheet.Cells(StartRow + i, StartCol + j) = dataGridView(j, i).Value.ToString()
End If
Next
Next
xlApp.UserControl = False
xlApp.Quit()
End Sub
Dalam function diatas, kita membuat object Microsoft Excel Application, kemudian menambahkan worksheet baru. Setelah itu, kita menambahkan header column dan data dari datagridview ke worksheet yang telah dibuat. Setelah selesai, kita menutup aplikasi Microsoft Excel.
Step 2: ExportToExcel function akan dipanggil ketika button Export To Excel ditekan. Berikut adalah contoh kodenya:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ExportToExcel(DataGridView1)
End Sub
Button1_Click function hanya memanggil ExportToExcel function dan memasukkan DataGridView sebagai parameter.
Masih bingung? Silahkan tonton video tutorial di bawah ini.
FAQ
1. Apakah bisa melakukan export dari DataGridView ke format dokumen Microsoft Word?
Tidak bisa. Saat ini, hanya format dokumen PDF dan Excel yang dapat diterima sebagai hasil dari export DataGridView menggunakan VB.NET.
2. Apakah ada alternatif library untuk melakukan export DataGridView?
Ya, ada beberapa library lain yang dapat digunakan untuk melakukan export DataGridView ke format dokumen seperti PDF, Excel, atau bahkan Word. Beberapa library tersebut adalah iTextSharp, NPOI, dan GemBox Spreadsheet.