Menyimpan data dari datagrid ke excel

1.       Buat new project -> windows form -> tulis nama project

sesuai dengan keinginan brother (Save excel)

2.      Tambahkan: 1 button => nama= Save  dan 1 datagridview

3.      Add referensi excel ke project dengan click kanan di solusi explorer

Click  Com dan cari Microsoft Excel Librarya  tergantung office yang ada di compi

4.      Tambahkan Import   
          Imports Excel = Microsoft.Office.Interop.Excel 
5.   Click 2x button Save  dan ketik Code Berikut:

If ((DG.Columns.Count = 0) Or (DG.Rows.Count = 0)) Then Exit Sub End If 'Creating dataset to export Dim dset As New DataSet 'add table to dataset dset.Tables.Add() 'add column to that table For i As Integer = 0 To DG.ColumnCount - 1 dset.Tables(0).Columns.Add(DG.Columns(i).HeaderText) Next 'add rows to the table Dim dr1 As DataRow For i As Integer = 0 To DG.RowCount - 1 dr1 = dset.Tables(0).NewRow For j As Integer = 0 To DG.Columns.Count - 1 dr1(j) = DG.Rows(i).Cells(j).Value Next dset.Tables(0).Rows.Add(dr1) Next Dim excel As New Microsoft.Office.Interop.Excel.ApplicationClass Dim wBook As Microsoft.Office.Interop.Excel.Workbook Dim wSheet As Microsoft.Office.Interop.Excel.Worksheet wBook = excel.Workbooks.Add() wSheet = wBook.ActiveSheet() Dim dt As System.Data.DataTable = dset.Tables(0) Dim dc As System.Data.DataColumn Dim dr As System.Data.DataRow Dim colIndex As Integer = 0 Dim rowIndex As Integer = 0 For Each dc In dt.Columns colIndex = colIndex + 1 excel.Cells(1, colIndex) = dc.ColumnName Next For Each dr In dt.Rows rowIndex = rowIndex + 1 colIndex = 0 For Each dc In dt.Columns colIndex = colIndex + 1 excel.Cells(rowIndex + 1, colIndex) = dr(dc.ColumnName) Next Next wSheet.SaveAs("C:\vbexcel.xlsx") wBook.Close()

6.   Tekan F5 Untuk Menjalankan Program
7.    Semoga Membantu!!!

Download File