[تركي الحلواني]

(24-01-24, 01:20 PM)saud1004 كتب : أولا أشكر لك متابعتك وحرصك على منفعة الغير فتقبل مني شكري واحترامي
لا أخي ليس الجلب من موقع
ملف أكسل عندي موجود بالعفل

ولكن المعلومات التي ذكرت هي داخل ملف الاكسل وأريد جلبها حسب موقعها من العمود والصف
الاسم في  عمود AI الصف 28
الصف في عمود J الصف 19
الفصل في عمود   AA   الصف 28
أسماء المواد في عمود  AT
التقدير  في العمود X
درجة اختبار نهاية الفصل في العمود AL
أما المواد فهي في عمود واحد AT
ويبدأ جلبها من الصف رقم 35
يبدا جلب المواد من  الصف 35 تقريبا

أتمنى أني قد وضحت الفكرة

جرب هذا وقم بتعديل البيانات بحسب المطلوب

PHP كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       Dim openFileDialog As New OpenFileDialog()
    openFileDialog.Filter = "ملفات Excel|*.xls;*.xlsx"
    Try
        If openFileDialog.ShowDialog() = DialogResult.OK Then
            DataGridView1.Rows.Clear()
                        Dim excelApp As New Excel.Application()

                      Dim workbook As Excel.Workbook = excelApp.Workbooks.Open(openFileDialog.FileName)
            Dim worksheets As Sheets = workbook.Sheets
            For i = 1 To worksheets.Count
             
                Dim worksheet As Worksheet = DirectCast(worksheets(i), Worksheet)
                Dim valueAI As Object = worksheet.Cells(2, "A").Value
                             Dim valueJ As Object = worksheet.Cells(3, "B").Value
                                         Dim valueAA As Object = worksheet.Cells(1, "C").Value
             
                DataGridView1.Rows.Add(valueAI, valueJ, valueAA)
            Next
            workbook.Close(False)
                    excelApp.Quit()
            System.Runtime.InteropServices.Marshal.ReleaseComObject(workbook)
            System.Runtime.InteropServices.Marshal.ReleaseComObject(excelApp)
        End If
    Catch ex As Exception
        MessageBox.Show("حدث خطأ أثناء قراءة ملف Excel: " & ex.Message, "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
End Sub