Como Exportar datos de Datagridview a Excel 2010 ,2013 o versiones actuales

Como Exportar datos de Datagridview a Excel 2010 o versiones actuales 

Hola amigos como están espero bien en este articulo les traigo a como exporta datos de DataGridView  a Excel 2010. En Visual estudio 2010

Pues muchos de las aplicaciones que hacemos necesitan pasar a hojas de cálculos como por ejemplo a EXCEL 2010... O versiones actuales

 Programado por: Patricio Izquierdo Cristian

http://www.Facebook.com/Cristian.PatricioIzquierdo

Para: CPIPRODESIGN

http://www.Facebook.com/CPIProDesign

ü  Primero diseñe El siguiente Formulario

ü  Luego agregamos referencias .

 CODIGO FUENTE.
El siguiente bloque de codigos nos  sirve para cargar data aDataGridView1

Sub cargaData()

        Try

            Dim DA As New SqlDataAdapter("Select * From clientes", cn)

            Dim DS As New DataSet

            DA.Fill(DS, "clientes")

            DataGridView1.DataSource = DS.Tables("clientes")

        Catch ex As Exception

            MessageBox.Show(ex.Message, "Error Controlado")

        End Try

    End Sub

ü  
Button Exportar

Sub exportar()

        Dim dset As New DataSet

        'add table to dataset

        dset.Tables.Add()

        'agregar columnas a la tabla

        For i As Integer = 0 To DataGridView1.ColumnCount - 1

            dset.Tables(0).Columns.Add(DataGridView1.Columns(i).HeaderText)

        Next

        'agregar filas a la tabla

        Dim dr1 As DataRow

        For i As Integer = 0 To DataGridView1.RowCount - 1

            dr1 = dset.Tables(0).NewRow

            For j As Integer = 0 To DataGridView1.Columns.Count - 1

                dr1(j) = DataGridView1.Rows(i).Cells(j).Value

            Next

            dset.Tables(0).Rows.Add(dr1)

        Next

        Dim excel As New Microsoft.Office.Interop.Excel.Application

        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()

        Dim blnFileOpen As Boolean = False

        Try

        Catch ex As Exception

            blnFileOpen = False

        End Try

        excel.Visible = True

    End Sub

ü  Prueba final(Ejecucion F5)

Bueno eso seria todo..Gracias.. espero Ayudarles.. 

consulta o dudas deja tu mensaje en los comentarios..