Abrir un dgView vb.net en excel

[wpiaw]

Hola Amigos!!! Hoy les traigo algo mmmmuuuuuyyyyyyy interesante para compartir se trata de pasar a una planilla excel una tabla de un DataGriedView con un botón en Visual Basic.net....

Recuerden que para comensar deben agregar referencia
Para realizar esto: clic derecho en el proyecto(ventena a la derecha)



De la ventana que se abre elegimos "Microsoft.Office.Interop.Excel"



Doble clic en el botón al que deseen colocar el código




El código que deben poner en el botón(o donde lo empleen) es el siguiente (teniendo en cuenta que: btnExportar es el boton creado y dgvVer es el DataGridView donde se ve la tabla):

Private Sub btnExportar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExportar.Click

        'Creamos las variables
        Dim exApp As New Microsoft.Office.Interop.Excel.Application
        Dim exLibro As Microsoft.Office.Interop.Excel.Workbook
        Dim exHoja As Microsoft.Office.Interop.Excel.Worksheet

        Try
            'Añadimos el Libro al programa, y la hoja al libro
            exLibro = exApp.Workbooks.Add
            exHoja = exLibro.Worksheets.Add()

            ' ¿Cuantas columnas y cuantas filas?
            Dim NCol As Integer = dgvVer.ColumnCount
            Dim NRow As Integer = dgvVer.RowCount

            'Aqui recorremos todas las filas, y por cada fila todas las columnas y vamos escribiendo.
            For i As Integer = 1 To NCol
                exHoja.Cells.Item(1, i) = dgvVer.Columns(i - 1).Name.ToString
                'exHoja.Cells.Item(1, i).HorizontalAlignment = 3
            Next

            For Fila As Integer = 0 To NRow - 1
                For Col As Integer = 0 To NCol - 1
                    exHoja.Cells.Item(Fila + 2, Col + 1) = dgvVer.Rows(Fila).Cells(Col).Value
                Next
            Next
            'Titulo en negrita, Alineado al centro y que el tamaño de la columna se ajuste al texto
            exHoja.Rows.Item(1).Font.Bold = 1
            exHoja.Rows.Item(1).HorizontalAlignment = 3
            exHoja.Columns.AutoFit()

            'Aplicación visible
            exApp.Application.Visible = True

            exHoja = Nothing
            exLibro = Nothing
            exApp = Nothing

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error al exportar a Excel")

        End Try

    End Sub

Epero que les sirva tanto como a mi!

[VJEVans]

exlente tuto amiga Pia ..

[carmen10]

[cramercaba]

WoooooW Excel-ente guia

[roslav]

Podrias subir los archivos para mayor referencia y ver como trabajan ambos. Muchas gracias