使用 Excel VBA 从网站（HTML div 类）中提取值

Question

I'm trying to automate going to a website and pulling the ratings from several apps.

I've figured out how to navigate and login to the page.

How do I pull the element - the number "3.3" in this case - from this specific section into Excel.

Being unfamiliar with HTML in VBA, I got this far following tutorials/other questions.

Rating on website and the code behind it

Sub PullRating()
    
    Dim HTMLDoc As HTMLDocument
    Dim ie As InternetExplorer
    
    Dim oHTML_Element As IHTMLElement
    Dim sURL As String
    
    On Error GoTo Err_Clear
    sURL = "https://www.appannie.com/account/login/xxxxxxxxxx"
    Set ie = New InternetExplorer
    ie.Silent = True
    ie.navigate sURL
    ie.Visible = True
    
    Do
        'Wait until the Browser is loaded
    Loop Until ie.readyState = READYSTATE_COMPLETE
    
    Set HTMLDoc = ie.Document
    
    HTMLDoc.all.Email.Value = "xxxxxxxxx@xxx.com"
    HTMLDoc.all.Password.Value = "xxxxx"
    
    For Each oHTML_Element In HTMLDoc.getElementById("login-form")
        If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
    Next
           
    Dim rating As Variant
    Set rating = HTMLDoc.getElementsByClassName("rating-number ng-binding")
    Range("A1").Value = rating
           
    'ie.Refresh 'Refresh if required
    Err_Clear:
    If Err <> 0 Then
        Err.Clear
        Resume Next
    End If
    
End Sub

Answer 1

The code below will let you extract text from first element with class name "rating-number ng-binding" in HTML document. By the way GetElementsByClassName is supported since IE 9.0. I use coding compatible also with older versions in my example.

Dim htmlEle1 as IHTMLElement

For Each htmlEle1 in HTMLDoc.getElementsByTagName("div")
   If htmlEle1.className = "rating-number ng-binding" then
      Range("A1").Value = htmlEle1.InnerText
      Exit For
   End if
Next htmlEle1

Answer 2

While Ryszards code should do the trick if you want to use the code you have already written then here is the alterations I believe you need to make.

For Each oHTML_Element In HTMLDoc.getElementById("login-form")
    If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next

'Need to wait for page to load before collecting the value
Loop Until ie.readyState = READYSTATE_COMPLETE

Dim rating As IHTMLElement
Set rating = HTMLDoc.getElementsByClassName("rating-number ng-binding")
'Need to get the innerhtml of the element
Range("A1").Value = rating.innerhtml