Extracting Links

[AndrewKent]

Hi there,

Is there any way to extract the "MATCH STATS" links from this website:

http://msn.foxsports.com/foxsoccer/eredivisie/scores?week=1&timeframe=1

Using VBA?

Andy

 

[Norie]

Andy

This scrappy code works in part.

Option Explicit
 
Sub GetStatsLinks()
Dim IE As Object
Dim doc As Object
Dim divs As Object
Dim lnks As Object
Dim lnk As Object
Dim cls
Dim rng As Range
 
    Set IE = CreateObject("InternetExplorer.Application")
 
    Set rng = Range("A1")
 
    With IE
 
        .Visible = True
 
        .navigate "http://msn.foxsports.com/foxsoccer/eredivisie/scores?week=1&timeframe=1"
 
        Do Until .ReadyState = 4
            DoEvents
        Loop
 
        Set doc = IE.Document
 
        Set divs = doc.getElementsByTagName("DIV")
 
        For Each dv In divs
 
            If dv.className = "fsiScoresBoxscoreLinksWrapper" Then
 
                Set lnks = dv.getElementsByTagName("A")
 
                For Each lnk In lnks
 
                    cls = lnk.className
 
                    If cls = "fsiLeagueDataLink" Then
 
                        rng.Offset(, 1).Value = lnk.href
 
                        rng.Value = dv.outerText
 
                        Set rng = rng.Offset(1)
 
                    End If
 
                Next lnk
            End If
        Next dv
 
    End With
 
    Set IE = Nothing
 
End Sub

I also tried to get the teams, and I managed to, but I couldn't combine the two.

The divs on the page seem to be structured well - the DIVs for the team names all have the same class, as do the stats.

Couldn't work out how to link them properly though as they all come under another 'super' parent DIV.

 

[John_w]

Or this after the Set doc line:

    Dim links As String
    links = ""
    For Each link In doc.links
        If link.innerText = "Match Stats" Then links = links & link.href & vbNewLine
    Next
    MsgBox links

 

[AndrewKent]

Hi guys,

Firstly I wanted to say thanks for having a stab at this, it gives me a great starting point. I'll have a crack at building this and if I manage to, I'll post up my working code for others to use.

Cheers,

Andy