[محمد العامر]

السلام عليكم ورحمة الله وبركاته
تقبل الله منا ومنك الصيام وصالح الاعمال
تمنياتي أن تكونو جميعا في أتم صحه وعافيه

لدي كود تصدير جدول DataGrid إلى ملف Excel 
ولكن تظهر لي مشكلة لا لم أستطع أن أجد لها حل

كود :

   Private Sub butt_export_Ex_Click(sender As Object, e As EventArgs) Handles butt_.Click
       Try
           butt_.Text = "Please Wait..."
           butt_.Enabled = False

           SaveFileDialog1.Filter = "Excel Document (*.xlsx)|*.xlsx"
           If SaveFileDialog1.ShowDialog() = System.Windows.Forms.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 Microsoft.Office.Interop.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)
               xlWorkBook.Close()
               xlApp.Quit()

               releaseObject(xlApp)
               releaseObject(xlWorkBook)
               releaseObject(xlWorkSheet)

               MsgBox("Successfully saved" & vbCrLf & "File are saved at : " & SaveFileDialog1.FileName, MsgBoxStyle.Information, "Information")

               butt_.Text = "Export To MS Excel"
               butt_.Enabled = True
           End If
       Catch ex As Exception
           MessageBox.Show("Failed to save !!!", "Error Message", MessageBoxButtons.OK, MessageBoxIcon.Error)
           Return
       End Try
   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
End Class

وهذي صورة من المشكلة