investing.com sitesinden veri almak.

[tamer42]

Merhabalar,
ekli görselde sunulan;
https://dosya.co/zkpqyjon4fbl/123.jpg.html

Aşağıdaki kod ile META adlı fonun güncel değerini alabiliyoruz, yalnız fonun adı değiştiği zaman örneğin IBM olduğu zaman nasıl düzenleyebiliriz?

https://www.investing.com/

aşağıdaki kodu fon ismi yazıldığı şekilde search metin kutusuna yazılarak nasıl uyarlanabilir?

teşekkürler,
iyi akşamlar.

Sub DataInvesting()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate "https://www.investing.com/equities/facebook-inc"

Do Until IE.readyState = 4
DoEvents

Loop

x = IE.document.getElementsByClassName("text-5xl/9 font-bold md:text-[42px] md:leading-[60px] text-[#232526]")(0).innerText
IE.Visible = True

Set IE = Nothing

MsgBox x

Set appIE = Nothing

End Sub