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

[الوافي]

تحية طيبه أخواني الكرام ..

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

أخواني , أجد صعوبه بالغه في عملية أستيراد البيانات بالطريقة التقليدية لأسعار الشركات من مواقع الأنترنت , لأن البيانات تنتشر في صفحة الأكسيل بطريقة يصعب معها التعامل !

أستمر بحثي عن حل حتى وجدت هذا الكود المذهل حقيقية , و الي يجلب رقم بحد ذات من صفحة كامله عن طريق داله أسمها GetPrice توضع في الصفحه على الطريقة : ( ( رمز الشركة ) GetPrice = ) ثم يجلب لك السعر ..

الكود هو :

Public Function GetPrice(Ticker As String) As Double

With CreateObject("MSXML2.XMLHTTP")

.Open "GET", "http://uk.finance.yahoo.com/q?s=" & Ticker

.send

Do: DoEvents: Loop Until .ReadyState = 4

GetPrice = Split(Split(.responsetext, "yfs_l84_" & LCase(Ticker) & """>")(1), "

[الوافي]

عفواُ يا اخوان .. هذا هو الملف الذي يوجد فيه الداله و الكود المطلوب توضيحه وشكراً

[الوافي]

الأخوه الافضال .. هذا الموضوع له تطبيقات خرافية أن صح التعبير

أركوا من الساده عباقرة المنتدى التكرم ولو بمحاولة تفسير الكود لتعم الفائدة

دمتم بخير ونعمه ..