طالما لا يمكن جلب البيانات بصورة طبيعية من الاكسل
جرب استعمال هذا الكود
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