كود تصدير البيانات من الداتاجريدفيو الى اكسل

كود :
Private Sub BtnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExport.Click

        System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-us")

        Dim ExlApp As New Application

        Dim ExlWorkBook As Workbook

        Dim ExlWorkSheet As New Worksheet

        If Dgv.Rows IsNot Nothing Then

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

            ExlWorkBook = ExlApp.Workbooks.Add(MisValue)

            ExlWorkSheet = ExlWorkBook.Sheets.Add

            ExlWorkSheet.Name = "sheet1"

            'ExlWorkSheet = ExlWorkBook.Sheets("sheet1")

            For colheader As Integer = 0 To Dgv.ColumnCount - 1

                ExlWorkSheet.Cells(1, colheader + 1) = Dgv.Columns(colheader).HeaderText

            Next

        For r As Integer = 0 To Dgv.RowCount - 1

                For c As Integer = 0 To Dgv.ColumnCount - 1

                    ExlWorkSheet.Cells(r + 2, c + 1) = Dgv.Rows(r).Cells(c).Value

                Next

            Next

        End If

        SaveFileDialog1.Filter = "Excel Files|*.xlsx|Excel 2003|*.xls"

        If SaveFileDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then

            ExlWorkSheet.SaveAs(SaveFileDialog1.FileName)

        End If

        ExlWorkBook.Close()

        ExlApp.Quit()

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

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

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

        ExlApp = Nothing

        ExlWorkBook = Nothing

        ExlWorkSheet = Nothing

        If MessageBox.Show("هل تريد فتح الملف ؟", "فتح الملف", MessageBoxButtons.YesNo) Then

            Process.Start(SaveFileDialog1.FileName)

        End If

    End Sub