Get Number from website

[Av8tordude]

On Yahoo finance, the line in the HTML code below is the number (13.00) and I would to display a msgbox with the results . I manage to put together some code watching youtube videos, however i can not get the number to display in a msgbox. Then msgbox should say 13.00. Can you assist.

Many thanks

Range("A1") = DIS181123C00102000

Private Sub Worksheet_Change(ByVal Target As Range)
Dim IE As New InternetExplorer


IE.Visible = True
IE.navigate "https://finance.yahoo.com/quote/" & Range("A1") & "?p=" & Range("A1")
Do
    DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document
Dim sDD As String
sDD = Doc.getElementsByClassName("D(ib)")(1).innerText


MsgBox sDD 


End Sub

 

[Av8tordude]

Works like a Gem. Thank you. One question....When I run the code the first time, its executes slow, however each time thereafter it executes fairly fast. Any explanation? I'm just curious. Thanks again for your help!

 

[strooman]

Works like a Gem. Thank you. One question....When I run the code the first time, its executes slow, however each time thereafter it executes fairly fast. Any explanation? I'm just curious. Thanks again for your help!

I'm not sure but I think it has to do with caching. You sent a request to the server via the url. You get a response and I think that Excel or xmlhttp is caching the result in some way. Therefore the second time is faster because you use the same url and get the same result. But perhaps somebody has a different explanation.

Glad you got it working.