Exportar Datagridview a Excel

Hola, amigos esta entrega se trata de exportar el contenido de un Datagridview a excel. Muchas de las aplicaciones necesitan  pasar los datos calculados a instancias de hojas electronica en Excel. Este ejemplo primeramente hacemos la referencia Net  a Microsoft.Office.Interop.Excel, en mi caso a la version 12( o que es la de Excel 2010).
Veamos una captura:




Luego hacemos la generacion de datos en la grid(Código antes visto en mis anteriores entregas):

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'GENERAR Y RELLENAR EL DATAGRIDVIEW
        Try
            Dim n As Integer = 6 ' cualquier valor para sumar
            Dim cantidad(n) As Integer 'matriz para almacenar hasta n valores
            Dim valor As Double = 0.18 'valor de un articulo en común ....para ejemplificar
            Dim subtotal(n) As Double ' matriz que almacena los subtotales de cada compra
            Dim suma As Double 'total de la suma de la columna subtotal
            For i As Integer = 0 To n - 1
                cantidad(i) = i 'Val(InputBox("Ingresar cantidad Nº" & i + 1)) 'Entrada manual
            Next
            For i As Integer = 0 To n - 1
                subtotal(i) = cantidad(i) * valor
                suma = suma + subtotal(i)
            Next
            grid1.Rows.Add(n + 1) 'numero de filas del grid
            For r As Integer = 0 To n - 1
                grid1.Item(0, r).Value = r + 1
                grid1.Item(1, r).Value = Format(cantidad(r), "0.00")
                grid1.Item(2, r).Value = Format(valor, "0.00")
                grid1.Item(3, r).Value = Format(subtotal(r), "0.00")
                grid1.Item(2, n).Value = "TOTALES="
                grid1.Item(3, n).Value = Format(suma, "0.00")
            Next
        Catch ex As KeyNotFoundException
            MessageBox.Show("Error de concurrencia:" & vbCrLf & ex.Message)
        End Try
    End Sub



 
 
Luego el código sobre El boton Exportar de Excel:


 Private Sub BtnExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExcel.Click
        'Crer dataset para exportar
        Dim dset As New DataSet
        'add table to dataset
        dset.Tables.Add()
        'agregar columnas a la tabla
        For i As Integer = 0 To grid1.ColumnCount - 1
            dset.Tables(0).Columns.Add(grid1.Columns(i).HeaderText)
        Next
        'agregar filas a la tabla
        Dim dr1 As DataRow
        For i As Integer = 0 To grid1.RowCount - 1
            dr1 = dset.Tables(0).NewRow
            For j As Integer = 0 To grid1.Columns.Count - 1
                dr1(j) = grid1.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()
        wSheet.Name = "Ejemplo"
        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.Columns.AutoFit()
        
        excel.Visible = True
    End Sub
Si ejecutamos veremos que se abre un hoja de Excel, y los datos exportados de la grid. Bueno amigos espero seguir exponiendoles codigo importantes como exportar a pdf, html, etc. Nos vemos!!

Mi ejemplo: https://docs.google.com/open?id=0B-UGWA03tc5ZcFphWFhuYXg2cWc

Si quieres agregar el formato(colores celdas,fuente, etc) de la Datagridview a la exportacion en Excel  entra a la parte 2 en este post: http://jossm03.blogspot.com/2013/11/exportar-datagridview-excel-ii.html