export datagridview to excel vb.net

The solution for “export datagridview to excel vb.net” can be found here. The following code will assist you in solving the problem.

Get the Code! 
Private Sub Export_Button_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles VIEW_Button.Click


    Dim xlApp As Microsoft.Office.Interop.Excel.Application

    Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook

    Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet

    Dim misValue As Object = System.Reflection.Missing.Value

    Dim i As Integer

    Dim j As Integer


    xlApp = New Microsoft.Office.Interop.Excel.ApplicationClass

    xlWorkBook = xlApp.Workbooks.Add(misValue)

    xlWorkSheet = xlWorkBook.Sheets(“sheet1”)


    For i = 0 To DataGridView1.RowCount – 2

        For j = 0 To DataGridView1.ColumnCount – 1

            For k As Integer = 1 To DataGridView1.Columns.Count

                xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k – 1).HeaderText

                xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString()

            Next

        Next

    Next


    xlWorkSheet.SaveAs(“D:\vbexcel.xlsx”)

    xlWorkBook.Close()

    xlApp.Quit()


    releaseObject(xlApp)

    releaseObject(xlWorkBook)

    releaseObject(xlWorkSheet)


    MsgBox(“You can find the file D:\vbexcel.xlsx”)

End Sub


Private Sub releaseObject(ByVal obj As Object)

    Try

        System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)

        obj = Nothing

    Catch ex As Exception

        obj = Nothing

    Finally

        GC.Collect()

    End Try

End Sub

Thank you for using DeclareCode; We hope you were able to resolve the issue.

More questions on [categories-list]

Similar Posts