jueves, 22 de octubre de 2015

 

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

 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
Para: 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..

Share:

0 comentarios:

Publicar un comentario

Dudas y sugerencias aqui