مساعدة في جلب بيانات طلاب الثانوية العامة من النت

[أبوعيد]

السلام عليكم

الرجاء منكم المساعدة في عمل كود لإحضار بيانات طلاب الثانوية العامة من الموقع http://res-ye.net/

يعتمد الموقع على أرقام الجلوس للطلاب

============

ملاحظة : حاولت الاستفادة من الكود الآتي ولكن لم تنجح التجربة

Sub Sample()
    Dim sUrl As String: sUrl = "https://www.actuaries.org.uk/user"
    Dim ie As Object

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True

    ie.navigate sUrl

    Do While ie.readyState <> 4: DoEvents: Loop

    ie.document.getElementById("edit-name").Value = 1234
    ie.document.getElementById("edit-pass").Value = "abcdefg"

End Sub

هذا الكود سيفتح الأكسبلورر ويفتح الموقع حسب العنوان الموضح في الكود

في الموقع يوجد اثنين من التكسب بوكس

 سيكتب داخل التكست الأول 1234 والتكسب الثاني abcdefg

بدون استخدام أي مكتبات إضافية (ليس هذا حديثنا )

==============

المطلوب كود يدخل على الموقع http://res-ye.net/

ومن خلال أرقام الجلوس التي أحددها في أحد اعمدة اكسل يقوم الكود بإدخال أرقام الجلوس (أدبي أو علمي مثلا الرقم 1111 ) ويجلب البيانات إلى الشيت

تم تعديل سبتمبر 7, 2017 بواسطه أبوعيد

[عصام عادل]

اول ماتفتح الموقع افتحاضغط كليك يمين واختار source علشان تعرف الاكواد للموقع 

واعرف اسم التكست بوكس اللي بتحط فية رقم الجلوس والبوتمن اللي بتضغط عليها كليك علشان تطلع النتيجة بعدها اضغط برضوا كليك يمين واحتار source علشان تعرف مكان النتيجة وتنزلها للاكسيل 

[أبوعيد]

بارك الله فيك أخ عصام

فعلا كلامة صحيح فقد نجحت والحمدلله في إدخال ارقام الجلوس عن طريق الحلقة التكرارية وجلب رقم الجلوس فقط إلى الشيت

لكني لا زلت أحتاج للمساعدة في جلب بقية البيانات لكل طالب

الاسم والدرجات والنتيجة النهائية

 

example.rar