Quantcast
Channel: Active questions tagged excel - Stack Overflow
Viewing all articles
Browse latest Browse all 88054

VBA webscrapping English premier League form

$
0
0

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

Viewing all articles
Browse latest Browse all 88054

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>