VBA to pull data from HTML Page

[grcshekar]

Hi from the URL GHCL Share Price, GHCL, Live NSE/BSE, Stock Price Today, and Target, Latest News and Analysis I am trying to extract data value of 521.00 under NSE on right hand side.

This code does not seem to work

Sub FindTickerPrice()        ' Current Market Price of the Selected Ticker ( Share )
    Set Web_browser = New InternetExplorer
    Web_browser.Visible = False
    Web_browser.navigate ("https://www.equitypandit.com/share-price/GHCL")
    Application.Wait (Now + TimeValue("00:00:03"))
    Do While Web_browser.Busy
        DoEvents
    Loop
    Set Web_page = Web_browser.document
    Set qts = Web_page.getElementsByClassName("d-sm-flex align-items-center")(0)
    Debug.Print qts.getElementsByTagName("span")(0).innerText
    SharePrice = qts.getElementsByTagName("span")(0).innerText
    range_pred.Cells(i).Value = SharePrice
    Web_browser.Quit
End Sub        ' Current Market Price of the Selected Ticker ( Share )

 

[grcshekar]

Its working fine now with this code

Sub FindTickerPrice(ByVal Ticker As String)        ' Current Market Price of the Selected Ticker ( Share )
    Set Web_browser = New InternetExplorer
    Web_browser.Visible = False
    Web_browser.navigate ("https://www.equitypandit.com/share-price/" & Trim(Ticker))
    Application.Wait (Now + TimeValue("00:00:03"))
    Do While Web_browser.Busy
        DoEvents
    Loop
    Set Web_page = Web_browser.document
    
    Set qts = Web_page.getElementById("NSE_PRICE")
    Debug.Print qts.innerText
    SharePrice = qts.getElementsByTagName("span")(0).innerText
    range_pred.Cells(i).Value = SharePrice
    Web_browser.Quit
End Sub        ' Current Market Price of the Selected Ticker ( Share )