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

بقايا عشق · منذ /06-23-2016, 10:02 PM

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

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

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

نقوم بنسخ ولصق الكود التالي في النافذة ومن ثم نضغط زر 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://upload.hawamer.com/d.php?hash...5RTGWVRVBIEEQK
اختصار استيراد البيانات وتحديثها في هذا الملف(ctrl+ت).. وأعتذر عن كون الملف بدون تنسيق لضيق الوقت

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

الموضوع الأصلي: طريقة استيراد البيانات من موقع تداول الجديد وربطها بالأكسل || الكاتب: بقايا عشق || المصدر: منتديات

شمس الحب

تستطيع المشاركة هنا والرد على الموضوع ومشاركة رأيك عبر حسابك في الفيس بوك

المصدر: منتديات شمس الحب - من قسم: سلة المحذوفات والمواضيع المكررة

'vdrm hsjdvh] hgfdhkhj lk l,ru j]h,g hg[]d] ,vf'ih fhgH;sg