البحث في الموقع
Showing results for tags 'أريد شرح للكو'.
تم العثور علي 1 نتيجه
-
تحية طيبه أخواني الكرام .. يتطلب علمي رماقبة حثيثه لأسعار الشركات في الاسواق العالمية , مما يستوجب علي اجادة التعامل مع الأكسيل على وجه الخصوص , و الحمد لله أولاً , أخراً , لقد تمكنت منه إلى درجة كبيره بعد مساعدة الجميع في هذا المنتدى الذي تقف الكلمات قاصره عند وصفه ! أخواني , أجد صعوبه بالغه في عملية أستيراد البيانات بالطريقة التقليدية لأسعار الشركات من مواقع الأنترنت , لأن البيانات تنتشر في صفحة الأكسيل بطريقة يصعب معها التعامل ! أستمر بحثي عن حل حتى وجدت هذا الكود المذهل حقيقية , و الي يجلب رقم بحد ذات من صفحة كامله عن طريق داله أسمها 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), "