I've created the following Module to scrape a top 20 grossing game from specific column (grossing column) in table html below (need login): https://www.appannie.com/apps/google-play/top-chart/united-states/game/?device=&date=2017-03-01&feed=All&rank_sorting_type=rank&page_number=0&page_size=100
The specific value is nested within the following code:
The below VBA code is my attempt at scraping. Does anyone know to looping my code till count of raw table is 20, Need advice from you guys.
Sub TopChartGoogle()
Dim IE As New InternetExplorer
Dim tickername As String
Dim doc As HTMLDocument
Dim Nof As String
Dim i As Integer
For i = 8 To 27
tickername = Sheet4.Range("A" & i).Value
IE.Visible = True
IE.navigate "https://www.appannie.com/apps/google-play/top-chart/united-states/game/" & tickername
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Application.Wait (Now + TimeValue("00:00:5"))
Set doc = IE.document
Nof = "ERRORHERE"
On Error Resume Next
Nof = Trim(doc.getElementsByClassName("main-row table-row")(0).getElementsByTagName("td")(3).getElementsByTagName("a")(1).innerText)
On Error GoTo 0
If Nof = "ERRORHERE" Then
Sheet4.Range("C" & i).Value = "Wrong Elements"
Else
Sheet4.Range("C" & i).Value = Nof
End If
Application.Wait (Now + TimeValue("00:00:1"))
Nof = "ERRORHERE"
On Error Resume Next
Nof = Trim(doc.getElementsByClassName("main-row table-row")(0).getElementsByTagName("td")(3).getElementsByTagName("a")(2).innerText)
On Error GoTo 0
If Nof = "ERRORHERE" Then
Sheet4.Range("E" & i).Value = "Wrong Elements"
Else
Sheet4.Range("E" & i).Value = Nof
End If
Application.Wait (Now + TimeValue("00:00:1"))
doc.getElementsByClassName("app-name")(2).Click '<<----click the game name
'-----------------------------Genre Game-------------------------------
Application.Wait (Now + TimeValue("00:00:5"))
Nof = "ERRORHERE"
On Error Resume Next
Nof = Trim(doc.getElementsByClassName("app-box-content")(5).getElementsByTagName("p")(2).innerText)
On Error GoTo 0
If Nof = "ERRORHERE" Then
Sheet4.Range("D" & i).Value = "Wrong Elements"
Else
Sheet4.Range("D" & i).Value = Nof
End If
Application.Wait (Now + TimeValue("00:00:2"))
'------------------------Average Star-------------------------------------
Nof = "ERRORHERE"
On Error Resume Next
Nof = Trim(doc.getElementsByClassName("rating-brief")(0).getElementsByTagName("strong")(1).innerText)
On Error GoTo 0
If Nof = "ERRORHERE" Then
Sheet4.Range("F" & i).Value = "Wrong Elements"
Else
Sheet4.Range("F" & i).Value = Nof
End If
Application.Wait (Now + TimeValue("00:00:2"))
'------------------------Star 5------------------------------------------
Nof = "ERRORHERE"
On Error Resume Next
Nof = Trim(doc.getElementsByClassName("table-wrapper")(0).getElementsByTagName("tr")(0).getElementsByTagName("td")(2).innerText)
On Error GoTo 0
If Nof = "ERRORHERE" Then
Sheet4.Range("G" & i).Value = "Wrong Elements"
Else
Sheet4.Range("G" & i).Value = Nof
End If
Application.Wait (Now + TimeValue("00:00:2"))
'-----------------------------Star 4------------------------------------------
Nof = "ERRORHERE"
On Error Resume Next
Nof = Trim(doc.getElementsByClassName("table-wrapper")(0).getElementsByTagName("tr")(1).getElementsByTagName("td")(2).innerText)
On Error GoTo 0
If Nof = "ERRORHERE" Then
Sheet4.Range("H" & i).Value = "Wrong Elements"
Else
Sheet4.Range("H" & i).Value = Nof
End If
Application.Wait (Now + TimeValue("00:00:2"))
'--------------------------Star 3-------------------------------------------
Nof = "ERRORHERE"
On Error Resume Next
Nof = Trim(doc.getElementsByClassName("table-wrapper")(0).getElementsByTagName("tr")(2).getElementsByTagName("td")(2).innerText)
On Error GoTo 0
If Nof = "ERRORHERE" Then
Sheet4.Range("I" & i).Value = "Wrong Elements"
Else
Sheet4.Range("I" & i).Value = Nof
End If
Application.Wait (Now + TimeValue("00:00:2"))
'----------------------------Star 2-------------------------------------------
Nof = "ERRORHERE"
On Error Resume Next
Nof = Trim(doc.getElementsByClassName("table-wrapper")(0).getElementsByTagName("tr")(3).getElementsByTagName("td")(2).innerText)
On Error GoTo 0
If Nof = "ERRORHERE" Then
Sheet4.Range("J" & i).Value = "Wrong Elements"
Else
Sheet4.Range("J" & i).Value = Nof
End If
Application.Wait (Now + TimeValue("00:00:2"))
'----------------------------Star 1-------------------------------------------
Nof = "ERRORHERE"
On Error Resume Next
Nof = Trim(doc.getElementsByClassName("table-wrapper")(0).getElementsByTagName("tr")(4).getElementsByTagName("td")(2).innerText)
On Error GoTo 0
If Nof = "ERRORHERE" Then
Sheet4.Range("K" & i).Value = "Wrong Elements"
Else
Sheet4.Range("K" & i).Value = Nof
End If
Application.Wait (Now + TimeValue("00:00:2"))
IE.Quit
Next
End Sub
if nof = 20 then exit sub
Would it work like this? – Vityata Mar 1 '17 at 13:20