ماكرو تحديث ورقة اكسل من الإنترنت

[عبدالله السعيد]

اتمنى ان اجد الإجابة

كيف يمكن تحديث صفحة مستورد على ورقة إكسل

تمكنت من استيرادها لكن ماهو كود الماكرو للتحيث في وقت محدد

[محمد حجازي]

السلام عليكم ...

الرجاء تو ضيح المشكلة بشكل أكثر تفصيلاً : هل كان مصدر البيانات عبارة صفحة ويب أم من ملف xml أم ماذا ...

[عبدالله السعيد]

استاذي الفاضل محمد

مصدر البيانات عبارة عن صفحة ويب

وهي صفحة عرض الأسعار في سوق المال السعودي

وهذا هو الرابط :

http://www.tadawul.com.sa/wps/portal/!...eLanguage/.l/en

ياحبذا لو كان التحديث عن طريق زر يوضع على الصفحة

أردت أن ارفق الملف لكن لم اجد مكان اضافة المرفقات

اشكرك على التعقيب

[محمد حجازي]

السلام عليكم ...

استخدم الكود التالي :

Sub MyRefresh()
    Sheets("Sheet1").Range("A1:A10").QueryTable.Refresh BackgroundQuery:=False
End Sub

الكود السابق يقوم بتحديث البيانات المرتبطة بالجدول A1:A10 الموجود في الورقة Sheet1 .

تحياتي

[عبدالله السعيد]

أشكرك استاذي الفاضل دمتم ذخراً لهذا المنتدى

تحياتي

عبدالله السعيد