السلام عليكم
الرجاء منكم المساعدة في عمل كود لإحضار بيانات طلاب الثانوية العامة من الموقع 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 ) ويجلب البيانات إلى الشيت