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

لڪَي ٺٺمڪَن من آلمشآرڪَة معنآ عليڪَ آلٺسجيل من هنآ

يمنع وضع الصور النسائية والأغاني والنغمات

http://www.x2z2.com/up/uploads/13328416481.png

		منتديات شمس الحب > «®™§¤§ منتــديات شمس الحب الآداريــــة §¤§™®» > سلة المحذوفات والمواضيع المكررة
طريقة استيراد البيانات من موقع تداول الجديد وربطها بالأكسل

سلة المحذوفات والمواضيع المكررة اي موضوع مكرر ومهيء للحذف تجده هنا

LinkBack

أدوات الموضوع

انواع عرض الموضوع

منذ /06-23-2016, 10:02 PM

بقايا عشق

بقايا عشق غير متواجد حالياً

رقم العضوية : 249

تاريخ التسجيل : 4 - 4 - 2008

المشاركات : 216,906

الحكمة المفضلة : Belgium

SMS :

Male

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

أنا : بقايا عشق

سجل معنا لتتمتع بهذه الخاصية

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

بسم الله الرحمن الرحيم
الحمد لله الذي علّم الإنسان مالم يعلم ..ونصلي ونسلم على المبعوث رحمة للعالمين ..صلى الله عليه وسلم
هذه الطريقة لإستيراد البيانات من موقع تداول الجديد لملف أكسل.. وتعتمد على استخدام الأكواد والماكرو في جلب البيانات بعد فشل الطريقة التقليدية.. وهي اجتهاد شخصي متواضع قد يكون هناك من الطرق ماهو أفضل منها
وأبرأُ الى الله من استخدامها في التعامل مع الأسهم الربوية أو الغير شرعية
(للإطلاع على قوائم الأسهم المباحة نرجو زيارة هذا الموضوع)
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

Share
- Share this post on
- Digg
- Del.icio.us
- Technorati
- Twitter

آخــر مواضيعـى » صورة ياسر القحطاني بعد حادثة استراحة الخرج وهو نادم,فضيحة ياسر القحطاني بالصور
» مقطع فيديو فضيحة أوباما وساركوزي يفحصون مؤخرة بنت برازيلية,
» تحميل رواية سعوديات في بريطانيا كاملة بضغطة زر واحدة,متكحلة بدم خاينها,رواية سعودية
» تحميل جميع روايات نجيب محفوظ,روايات نجيب محفوظ تحميل pdf ,تحميل روايات نجيب محفوظ
» صورة ختان بنت مصرية ,منظر مؤلم جدا جدا

التوقيع

האם אתה מצפה את היהודים, יש לי קיבל את הנוכחות ... אבל כדי לסגור את התאריך של הגירוש

مواقع النشر (المفضلة)

Google

« صلوا على النبي صل الله عليه وسلم | من بانقلور الهند ومن عيادة الاسنان ابتسم لكم »

الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)

تعليمات المشاركة

لا تستطيع إضافة مواضيع جديدة

لا تستطيع الرد على المواضيع

لا تستطيع إرفاق ملفات

لا تستطيع تعديل مشاركاتك

BB code is متاحة

الابتسامات متاحة

كود [IMG] متاحة

كود HTML معطلة

Trackbacks are متاحة

Pingbacks are متاحة

Refbacks are متاحة

قوانين المنتدى

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	مشاركات	آخر مشاركة
كيف يتم استيراد اداء السهم من موقع تدتول الجديد	بقايا عشق	سلة المحذوفات والمواضيع المكررة	0	05-19-2016 11:45 AM
موقع يعرض اسعار الاسهم وخدماته افضل من موقع تداول الجديد	بقايا عشق	سلة المحذوفات والمواضيع المكررة	0	05-18-2016 04:15 AM
هل يوجد طريقة لتعديل البيانات في موقع أبشر	لميسـ	سلة المحذوفات والمواضيع المكررة	0	05-04-2016 11:21 PM
موقع تداول الجديد > > > >	بقايا عشق	سلة المحذوفات والمواضيع المكررة	0	05-03-2016 03:27 PM
ممكن طريقة تحديث البيانات من موقع تداول	بقايا عشق	سلة المحذوفات والمواضيع المكررة	0	08-24-2012 03:00 PM

Facebook Comments by: ABDU_GO - شركة الإبداع الرقمية

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

الساعة الآن 10:38 PM بتوقيت مسقط