none
Ayuda al exportar de datagrid a Excel RRS feed

  • Pregunta

  • Hola a todos!!

    El problema es que al momento de exportar lo hace en la hoja2 y necesito que lo haga en la hoja1 seria de mucha ayuda si alguien puede ayudarme.

    A continuacion el codigo del metodo

    Module Exportar
        Function exportarExcel(ByVal ElGrid As DataGridView) As Boolean


            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

                exLibro = exApp.Workbooks.Add

                exHoja = exLibro.Worksheets.Add


                Dim NCol As Integer = ElGrid.ColumnCount

                Dim NRow As Integer = ElGrid.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) = ElGrid.Columns(i - 1).Name.ToString

                Next

                For Fila As Integer = 0 To NRow - 1

                    For Col As Integer = 0 To NCol - 1

                        exHoja.Cells.Item(Fila + 2, Col + 1) = ElGrid.Item(Col, Fila).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")

                Return False

            End Try

            Return True

        End Function

    End Module

    miércoles, 22 de marzo de 2017 22:57

Todas las respuestas

  • Saludos:

    Es esta linea:

    exHoja = exLibro.Worksheets.Add
    
    

    Pasa directamente a numero 2.

    Espero ayude.

    JOSE LUIS


    Dios NO los llamo LAS DIEZ RECOMENDACIONES

    jueves, 23 de marzo de 2017 1:13
  • Saludos:

    Es esta linea:

    exHoja = exLibro.Worksheets.Add

    Pasa directamente a numero 2.

    Espero ayude.

    JOSE LUIS


    Dios NO los llamo LAS DIEZ RECOMENDACIONES

    Muchas gracias por responder, solo era cambiar la propiedad "add" y poner el nombre de la hoja
    exHoja = exLibro.Worksheets("hoja1")




    • Editado kevin3295 jueves, 23 de marzo de 2017 1:57
    jueves, 23 de marzo de 2017 1:26
  • Saludos:

    Es lo que te decia. :-)

    JOSE LUIS


    Dios NO los llamo LAS DIEZ RECOMENDACIONES

    • Propuesto como respuesta Jose Luis Vargas miércoles, 19 de abril de 2017 16:22
    miércoles, 19 de abril de 2017 16:22