إدراج بيانات من ويب في ورقة اكسل

[bandar123]

السلام عليكم ارغب في ادراج بيانات من موقع تداول لسوق الاسهم السعودي  لشركة المصافي على سبيل المثال وعندما اقوم باختيار بيانات ثم من ويب وقوم بلصق الرابط يتعذر بحكم طول الرابط ولكن للاسف لا يمكن اختصاره او قصه فهل هناك حل لإدراج شركة المصافي / ثم اختيار ( أداء السهم ) من تلك الصفحة حسب الصورة المرفقة .

ولكم فائق التقدير والاحترام

[أ / محمد صالح]

هل يعمل هذا الرابط على انترنت اكسبلورر؟

إذا كان يعمل بصورة طبيعية أرسل الرابط

حيث يمكن فتح الرابط في انترنت اكسبلورر وقراءة محتويات الجدول ونقلها إلى الشيت بالكود

[bandar123]

الرابط

https://www.saudiexchange.sa/wps/portal/tadawul/market-participants/issuers/issuers-directory/company-details/!ut/p/z1/04_Sj9CPykssy0xPLMnMz0vMAfIjo8zi_Tx8nD0MLIy83V1DjA0czVx8nYP8PI0MDAz0I4EKzBEKDEJDLYEKjJ0DA11MjQzcTfW99KPSc_KTIGZllJQUWKkaqBqUJKYklpfmqBroRyXn5xYk5lUGV-Ym5QMVGRkYG-iHEzK1IDsop6zSUREAbm86Ww!!/#chart_tab2

واريد الصفحة تتحدث تلقائيا من المصدر

ولك فائق احترامي وتقديري

[أ / محمد صالح]

  

في 16‏/8‏/2022 at 07:56, bandar123 said:

وعندما اقوم باختيار بيانات ثم من ويب وقوم بلصق الرابط يتعذر بحكم طول الرابط ولكن للاسف لا يمكن اختصاره او قصه

طالما لا يمكن جلب البيانات بصورة طبيعية من الاكسل 

جرب استعمال هذا الكود

Sub mas_getdata()
Dim IE As Object, clip As Object
Sheet1.Range("a1").CurrentRegion.ClearContents
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = 1
IE.Navigate "https://www.saudiexchange.sa/wps/portal/tadawul/market-participants/issuers/issuers-directory/company-details/!ut/p/z1/04_Sj9CPykssy0xPLMnMz0vMAfIjo8zi_Tx8nD0MLIy83V1DjA0czVx8nYP8PI0MDAz0I4EKzBEKDEJDLYEKjJ0DA11MjQzcTfW99KPSc_KTIGZllJQUWKkaqBqUJKYklpfmqBroRyXn5xYk5lUGV-Ym5QMVGRkYG-iHEzK1IDsop6zSUREAbm86Ww!!/#chart_tab2"
Do While IE.ReadyState = 4: DoEvents: Loop
Application.Wait DateAdd("s", 15, Now)
'tools - references - microsoft forms 2.0
Set clip = New DataObject
clip.SetText "<table>" & IE.document.getelementbyid("adjustedPerformanceView").innerHTML & "</table>"
clip.PutInClipboard
Sheet1.Range("A1").Select
Sheet1.PasteSpecial "Unicode Text"
Sheet1.Range("A1").Select
IE.Quit
Set IE = Nothing
MsgBox "Done by mr-mas.com"
End Sub

وهو لفتح انترنت اكسبلورر والانتقال للرابط

ثم الانتظار 15 ثانية حتى يتم تحميل الجدول

ثم نسخ الجدول للشيت

بالتوفيق

mas get data from web.xlsb

[bandar123]

السلام عليكم الاخوة الافاضل

ليس هذا المقصود وانما اريد جلب البيانات الى ورقة الاكسل بمجرد الضغط على ايقونة بيانات ثم تحديث من نفس ورقة اكسل وفق ورقة الاكسل المرفقة

للتوضيح.xlsx

[bandar123]

السلام عليكم في انتظار الحل ولكم الشكر