Am trying to scrap form data(last 6 games played) but its not coming out the way I want.The form column shows green (Win), Orange(Draw) and Lose(Red).I would like to see the team first and the form like below:
for example, Liverpool WWWWDL
Below is the code that I have used
Sub ELPForm()
'dimension (set aside memory for) our variables
Dim objIE As InternetExplorer
Dim ele As Object
Dim y As Integer
'start a new browser instance
Set objIE = New InternetExplorer
'make browser visible
objIE.Visible = False
'navigate to page with needed data
objIE.navigate "https://www.soccerstats.com/latest.asp?league=england"'wait for page to load
Do While objIE.Busy = True Or objIE.readyState <> 4: DoEvents: Loop
'we will output data to excel, starting on row 1
y = 1
For Each ele In objIE.document.getElementById("btable").getElementsByTagName("tr")
'show the text content of 'tr' element being looked at
Debug.Print ele.textContent
'each 'tr' (table row) element contains 4 children ('td') elements
Sheets("Sheet1").Range("A"& y).Value = ele.Children(0).textContent
Sheets("Sheet1").Range("B"& y).Value = ele.Children(1).textContent
Sheets("Sheet1").Range("D"& y).Value = ele.Children(10).textContent
'increment row counter by 1
y = y + 1
'repeat until last ele has been evaluated
Next
End Sub