URL kod düzenleme hk.

[pNouma]

Merhabalar,

Merhaba
Aşağıdaki siteden veri çekmek isterken aşağıdaki kodda;

https://tr.investing.com/indices/investing.com-us-500-components

bu iki satırda yapılan işlemi tek satır haline nasıl getirebilirim?

_______________________________________________
x = Trim(IE.document.getElementsByClassName(cls)(0).innerText)
y = Split(x, " ")(0)
_______________________________________________

şimdiden teşekkürler,
iyi haftasonları dileirm.

Sub DataInvesting12()
Dim x, y
Dim IE As Object
Dim url As String

Const cls = "top bold inlineblock"

        url = "https://tr.investing.com/indices/investing.com-us-500-components"
   
        Set IE = CreateObject("InternetExplorer.Application")

        IE.navigate url
       
        Do Until IE.readyState = 4
            DoEvents
        Loop
       
        x = Trim(IE.document.getElementsByClassName(cls)(0).innerText)
       
        y = Split(x, " ")(0)
       
        MsgBox y
               
        IE.Quit
   
        Set IE = Nothing

End Sub

 

[veyselemre]

x = IE.Document.getelementbyid("last_last").innertext

 

[pNouma]

x = IE.Document.getelementbyid("last_last").innertext

çok teşekkür ederim Veysel Hocam,
emeğinize sağlık!