Data Grid View to Excel File

Data Grid View to Excel File:

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click

        Dim saveFileDialog1 As New SaveFileDialog()

        saveFileDialog1.Filter = "Excel Workbook|*.xlsx |All Files |*.*"

        saveFileDialog1.FileName = "Travelling Details"

        If saveFileDialog1.ShowDialog() = DialogResult.OK Then

            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 Excel.Application

            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(saveFileDialog1.FileName)

            MsgBox("File is Saved Successfully")

            xlWorkBook.Close()

            xlApp.Quit()

            releaseObject(xlApp)

            releaseObject(xlWorkBook)

            releaseObject(xlWorkSheet)

        End If

    End Sub