[سلام و محبه]

ضيفت زر استيراد من اكسل

ظهر خط ازرق تحت oledbconnection مع انى استوردت الوكتبه

[Ashref]

لان المكتبه Microsoft.Office.Interop.Excel تحتوي ايضا على OleDbConnection

في هذه الحاله محرر الفيجوال لا يعرف ايهم المقصود
هل System.Data.OleDb.OleDbConnection ام Microsoft.Office.Interop.Excel.OLEDBConnection

لهذا لابد من التوضيح للمحرر بوضع .OleDb في التعريف بهذه الطريقه OleDb.OleDbConnection

[سلام و محبه]

انت ذكى يا استاذ اشرف هل انت مهندس

[سلام و محبه]

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

---

كود :

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