اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

أستمر بحثي عن حل حتى وجدت هذا الكود المذهل حقيقية , و الي يجلب رقم بحد ذات من صفحة كامله عن طريق داله أسمها 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), "

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information