(09-02-22, 09:57 PM) pid=\180502' كتب :       Try' استيراد من الإكسل
            DGV.Rows.Clear()
            Dim OFD As New OpenFileDialog
            OFD.Filter = "Excel Files|*.xlsx|Excel 2003|*.xls"
            OFD.Title = (" استيراد البيانات من الورقة الأولى من السطر الثاني في ملف الإكسل")
            If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
                BTN_EX_IMP.Text = "يرجى الانتظار"
                BTN_EX_IMP.BackColor = Color.Tomato
                BTN_EX_IMP.Enabled = False
                DGV.DataSource = Nothing
                Dim PATH_ As String = OFD.FileName
                Dim CON__ As New OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & PATH_ & "; EXTENDED PROPERTIES=EXCEL 12.0;")
                'Dim ds As New DataSet
                Dim da As New OleDbDataAdapter("SELECT * FROM [1$]", CON__)
                'da.Fill(ds, "[1$]")
                'DGV.DataSource = ds.Tables("[1$]")
                Dim DT As New DataTable
                DT.Clear()
                da.Fill(DT)
                Dim COUNT_ As Integer = 0 'تعريف متغير للوب
                If DT.Rows.Count > 0 Then
                    DGV.RowCount = DT.Rows.Count + 1 ' مهم جدا عدد الاسطر في الداتاجريد تساوي عدد الاسطر في الداتاتيبل ويضيف سطر
                    For I As Integer = 0 To DT.Rows.Count - 1 ' تعبئة الداتاجريد بحيث يمر على الداتا تيبل بلوب
                        DGV.Rows(COUNT_).Cells(3).Value = DT.Rows(I)(0).ToString
                        DGV.Rows(COUNT_).Cells(4).Value = DT.Rows(I)(1).ToString
                        DGV.Rows(COUNT_).Cells(5).Value = DT.Rows(I)(2).ToString
                        DGV.Rows(COUNT_).Cells(6).Value = DT.Rows(I)(3).ToString
                        DGV.Rows(COUNT_).Cells(7).Value = DT.Rows(I)(4).ToString
                        DGV.Rows(COUNT_).Cells(8).Value = DT.Rows(I)(5).ToString
                        DGV.Rows(COUNT_).Cells(9).Value = DT.Rows(I)(6).ToString
                        DGV.Rows(COUNT_).Cells(10).Value = DT.Rows(I)(7).ToString
                        DGV.Rows(COUNT_).Cells(11).Value = DT.Rows(I)(8).ToString
                        DGV.Rows(COUNT_).Cells(12).Value = DT.Rows(I)(9).ToString
                        DGV.Rows(COUNT_).Cells(13).Value = DT.Rows(I)(10).ToString
                        DGV.Rows(COUNT_).Cells(14).Value = DT.Rows(I)(11).ToString
                        DGV.Rows(COUNT_).Cells(15).Value = DT.Rows(I)(12).ToString
                        DGV.Rows(COUNT_).Cells(16).Value = DT.Rows(I)(13).ToString
                        DGV.Rows(COUNT_).Cells(17).Value = DT.Rows(I)(14).ToString
                        DGV.Rows(COUNT_).Cells(18).Value = DT.Rows(I)(15).ToString
                        DGV.Rows(COUNT_).Cells(19).Value = DT.Rows(I)(16).ToString
                        DGV.Rows(COUNT_).Cells(20).Value = DT.Rows(I)(17).ToString
                        COUNT_ += 1 ' بما أنه بدأ من السطر0 نزيده واحد في كل لوب
                    Next
                End If
            Else
                End
            End If
            BTN_EX_IMP.Text = "استيراد من إكسل"
            BTN_EX_IMP.Enabled = True
            BTN_EX_IMP.BackColor = Color.Transparent
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try




'===========================================


    Public Shared Sub SaveGridToExcel(ByVal DGV As DataGridView) ' صب نسخ من الجريد لإكسل
        Try
            Dim XCELAPP As Microsoft.Office.Interop.Excel.Application = Nothing
            Dim XWORKBOOK As Microsoft.Office.Interop.Excel.Workbook = Nothing
            Dim XSHEET As Microsoft.Office.Interop.Excel.Worksheet = Nothing
            Dim misValue As Object = System.Reflection.Missing.Value
            If DGV.Rows.Count > 0 Then
                Dim filename As String = ""
                Dim SV As New SaveFileDialog()
                SV.Filter = "Excel Files|*.xlsx|Excel 2003|*.xls"

                If SV.ShowDialog = DialogResult.OK Then
                    If DGV.RightToLeft = RightToLeft.Yes Then
                        DGV.RightToLeft = False 'تغيير اتجاه الجريد من اليمين لليسار لكي لا ينسخ بالمقلوب
                        filename = SV.FileName
                        Dim multiselect As Boolean = DGV.MultiSelect
                        DGV.MultiSelect = True
                        DGV.SelectAll()
                        DGV.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
                        Clipboard.SetDataObject(DGV.GetClipboardContent())
                        Dim results = System.Convert.ToString(Clipboard.GetData(DataFormats.Text))
                        DGV.ClearSelection()
                        DGV.MultiSelect = multiselect
                        DGV.RightToLeft = RightToLeft.Yes ' ارجاع اتجاه الجريد لليمين
                        XCELAPP = New Excel.Application()
   
                        XWORKBOOK = XCELAPP.Workbooks.Add(misValue)
                        XCELAPP.DisplayAlerts = False
                        XCELAPP.Visible = False
                        XSHEET = XWORKBOOK.ActiveSheet
                        XSHEET.DisplayRightToLeft = True
                        XSHEET.PasteSpecial(RightToLeft.Yes)
                        XWORKBOOK.SaveAs(filename, Excel.XlFileFormat.xlOpenXMLWorkbook)
                        XWORKBOOK.Close(False)
                        XCELAPP.Quit()
                    Else
                        filename = SV.FileName
                        Dim multiselect As Boolean = DGV.MultiSelect
                        DGV.MultiSelect = True
                        DGV.SelectAll()
                        DGV.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableAlwaysIncludeHeaderText
                        Clipboard.SetDataObject(DGV.GetClipboardContent())
                        Dim results = System.Convert.ToString(Clipboard.GetData(DataFormats.Text))
                        DGV.ClearSelection()
                        DGV.MultiSelect = multiselect
                        XCELAPP = New Excel.Application()
                        XWORKBOOK = XCELAPP.Workbooks.Add(misValue)
                        XCELAPP.DisplayAlerts = False
                        XCELAPP.Visible = False
                        XSHEET = XWORKBOOK.ActiveSheet
                        XSHEET.Paste()
                        XWORKBOOK.SaveAs(filename, Excel.XlFileFormat.xlOpenXMLWorkbook)
                        XWORKBOOK.Close(False)
                        XCELAPP.Quit()
                    End If

                    If MessageBox.Show("هل تريد فتح الملف ؟", "فتح ملف الأكسل", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading) = MsgBoxResult.Yes Then
                        Process.Start(SV.FileName)
                    End If
                    Try
                        System.Runtime.InteropServices.Marshal.ReleaseComObject(XSHEET)
                        System.Runtime.InteropServices.Marshal.ReleaseComObject(XWORKBOOK)
                        System.Runtime.InteropServices.Marshal.ReleaseComObject(XCELAPP)
                    Catch
                    End Try
                End If
            End If

        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
    Private Sub BTN_EXCEL_COPY_Click(sender As Object, e As EventArgs) Handles BTN_EXCEL_COPY.Click 'زر التصدير
        SaveGridToExcel(DGV)
    End Sub