[سلام و محبه]

بيان التاريخ يظهر خطاء

---

كود :

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