طريقة استيراد البيانات من موقع تداول الجديد وربطها بالأكسل
 

بسم الله الرحمن الرحيم
الحمد لله الذي علّم الإنسان مالم يعلم ..ونصلي ونسلم على المبعوث رحمة للعالمين ..صلى الله عليه وسلم
هذه الطريقة لإستيراد البيانات من موقع تداول الجديد لملف أكسل.. وتعتمد على استخدام الأكواد والماكرو في جلب البيانات بعد فشل الطريقة التقليدية.. وهي اجتهاد شخصي متواضع قد يكون هناك من الطرق ماهو أفضل منها
وأبرأُ الى الله من استخدامها في التعامل مع الأسهم الربوية أو الغير شرعية
(للإطلاع على قوائم الأسهم المباحة نرجو زيارة هذا الموضوع)
http://www.hawamer.com/vb/showthread.php?t=1984589
في البداية نقوم بتشغيل برنامج الأكسل .. ونختار مصنف جديد ..ومن ثم نضغط على مفتاحي Alt+F11 في نفس الوقت
وستظهر لنا نافذة البرمجة كما في الصورة .. نضغط على ورقة1 نقرتين مزدوجتين ..وستظهر نافذة الكود للورقة فارغة
http://store2.up-00.com/2016-06/1466689773181.png
نقوم بنسخ ولصق الكود التالي في النافذة ومن ثم نضغط زر F5
كود:
Function FnWait(intTime)

newHour = Hour(Now())

newMinute = Minute(Now())

newSecond = Second(Now()) + intTime

waitTime = TimeSerial(newHour, newMinute, newSecond)

Application.Wait waitTime

End Function

Sub tasi()
Dim appIE As Object
Set appIE = CreateObject("internetexplorer.application")

With appIE
.Navigate "https://www.tadawul.com.sa/wps/portal/tadawul/markets/equities/market-watch/market-watch-today/!ut/p/z1/04_Sj9CPykssy0xPLMnMz0vMAfIjo8zi_Tx8nD0MLIy8DTyMXAwczVy9vV2c TY0MnE31w8EKjIycLQwtTQx8DHzMDYEK3A08A31NjA3cDfWjSNLv7ulnbuAY 6OgR5hYWAtRvTJl-AxPC-qPwKzGBKsDnRVQFWPyAV4EBzAoDHMDRQD84NU-_IDc0NMIg0zPLxFERADnxdcg!/dz/d5/L0lHSkovd0RNQUZrQUVnQSEhLzROVkUvYXI!/"
.Visible = False
End With

Do While appIE.busy
Call FnWait(20)
Loop

Dim TR_col As Object, TR As Object
Dim TD_col As Object, TD As Object
Dim row As Long, col As Long

Dim tbl As Object
Set tbl = appIE.********.getById("table13")

row = 1
col = 1

Set TR_col = appIE.********.getsby***name("TR")
For Each TR In TR_col
Set TD_col = TR.getsby***name("TD")
For Each TD In TD_col
Cells(row, col) = TD.inner****
col = col + 1
Next
col = 1
row = row + 1
Next
appIE.Quit
Set appIE = Nothing

End Sub
http://store2.up-00.com/2016-06/1466689773232.png
نغلق نافذة البرمجة ونعود للمصنف وننتظر لثواني حتى يتم استيراد البيانات بشكل كامل
http://store2.up-00.com/2016-06/146668977333.png
وبالإمكان عمل اختصار للماكرو كما في الصورة
http://store2.up-00.com/2016-06/1466689773374.png
لتحميل ملف أكسل جاهز بالماكرو من هنا
http://upload.hawamer.com/d.php?hash...5RTGWVRVBIEEQK
اختصار استيراد البيانات وتحديثها في هذا الملف(ctrl+ت).. وأعتذر عن كون الملف بدون تنسيق لضيق الوقت

إذا كان الموضوع ذو فائدة وأرجو ذلك ..لاتنسوني ووالدَيّ من صالح دعائكم بظهر الغيب في هذه الأيام المباركة
والسلام عليكم ورحمة الله وبركاته