none
Problemas con reporte de datagridview RRS feed

  • Pregunta

  • Estimados, tengo el siguiente codigo en un modulo para sacar un reporte de los que muestra el datagridview

    Imports Microsoft.Office.Interop
    Module Module1
        Public Sub Fg_Export2Excel(ByVal dgv As DataGridView, ByVal name As String)
            Try
                Dim excel As New Excel.Application
                Dim workbook As Excel._Workbook = excel.Workbooks.Add(Type.Missing)
                Dim worksheet As Microsoft.Office.Interop.Excel.Worksheet = Nothing
    
                worksheet = workbook.ActiveSheet
                worksheet.Name = "ExportedData"
    
                Dim cellRowIndex As Integer = 1
                Dim cellColumnIndex As Integer = 1
    
               
                For i As Integer = -1 To dgv.Rows.Count - 1
                    For j As Integer = 0 To dgv.Columns.Count - 1
                        If dgv.Columns(j).Visible = False Then
                            j += 1
                        End If
    
                        
                        If cellRowIndex = 1 Then
                            worksheet.Cells(cellRowIndex, cellColumnIndex) = dgv.Columns(j).HeaderText
                        Else
                            worksheet.Cells(cellRowIndex, cellColumnIndex) = dgv.Rows(i).Cells(j).Value.ToString()
                        End If
                        cellColumnIndex += 1
                    Next
                    cellColumnIndex = 1
                    cellRowIndex += 1
                Next
    
                worksheet.Columns.AutoFit()
                With workbook
                    .SaveAs(My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & name & ".xlsx")
                    .Close()
                End With
    
                excel.Quit()
                workbook = Nothing
                excel = Nothing
    
                MsgBox("File For " & name & " Is On Your Desktop.", MsgBoxStyle.Information, "Process Complete.")
    
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Sub
    End Module

    el codigo que me bota error es el siguiente 

    worksheet.Cells(cellRowIndex, cellColumnIndex) = dgv.Rows(i).Cells(j).Value.ToString()

    referencia a objeto no establecida como instancia de un objeto.

    por favor su ayuda para una solucion. Gracias de antemano.

    viernes, 10 de febrero de 2017 23:24

Respuestas

Todas las respuestas