Start New Discussion within our Software Development Community

dear friends following is the code for export data from data grid to excel .. problem which i m facing that .. i could not export the last coloum values.. kindly give sulotion..

Inline Code Example Here Private Sub btnExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcel.Click
Dim rowsTotal, colsTotal As Short
Dim I, j, iC As Short
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
Dim xlApp As New excel.Application

        Dim excelBook As excel.Workbook = xlApp.Workbooks.Add
        Dim excelWorksheet As excel.Worksheet = CType(excelBook.Worksheets(1), excel.Worksheet)
        xlApp.Visible = True
        rowsTotal = DataGridView1.RowCount - 1
        colsTotal = DataGridView1.Columns.Count - 1

        With excelWorksheet
            For iC = 0 To colsTotal
                .Cells(1, iC + 1).Value = DataGridView1.Columns(iC).HeaderText

            For I = 0 To rowsTotal - 1
                For j = 0 To colsTotal - 1
                    .Cells(I + 2, j + 1).value = DataGridView1.Rows(I).Cells(j).Value
                Next j
            Next I

            .Rows("1:1").Font.FontStyle = "Bold"
            .Rows("1:1").Font.Size = 10
            .Cells(1, 1).Select()
        End With

    Catch ex As Exception
        MsgBox("Export Excel Error " & ex.Message)
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
        xlApp = Nothing

    End Try

End Sub

End Class

This article has been dead for over six months. Start a new discussion instead.