https://www.betexplorer.com/soccer/scotland/championship/ayr-morton/EXyx7gQB/#1x2
DoEvents
bookmakerFound = False
Set tRows = HTMLdoc.getElementsByTagName("TR")
For Each tRow In tRows
If tRow.getElementsByTagName("TABLE").Length = 0 Then 'no inner tables?
If InStr(1, tRow.innerText, "bet365", vbTextCompare) > 0 Then
bookmakerFound = True
destSheet.Cells(r, "A").Resize(1, 7) = matchData
destSheet.Cells(r, "H").Value = tRow.Cells(3).getAttribute("data-opening-odd")
destSheet.Cells(r, "I").Value = tRow.Cells(4).getAttribute("data-opening-odd")
destSheet.Cells(r, "J").Value = tRow.Cells(5).getAttribute("data-opening-odd")
r = r + 1
End If
End If
Next
If Not bookmakerFound Then
destSheet.Cells(r, "A").Resize(1, 7) = matchData
r = r + 1
End If
How to get the opening odds (bet365, 1.72) of a game that has not yet been opened?
code works a week after the game...
but, It doesn't work until the game opens.
Why? not data-opening-odd?
How do we modify it?
DoEvents
bookmakerFound = False
Set tRows = HTMLdoc.getElementsByTagName("TR")
For Each tRow In tRows
If tRow.getElementsByTagName("TABLE").Length = 0 Then 'no inner tables?
If InStr(1, tRow.innerText, "bet365", vbTextCompare) > 0 Then
bookmakerFound = True
destSheet.Cells(r, "A").Resize(1, 7) = matchData
destSheet.Cells(r, "H").Value = tRow.Cells(3).getAttribute("data-opening-odd")
destSheet.Cells(r, "I").Value = tRow.Cells(4).getAttribute("data-opening-odd")
destSheet.Cells(r, "J").Value = tRow.Cells(5).getAttribute("data-opening-odd")
r = r + 1
End If
End If
Next
If Not bookmakerFound Then
destSheet.Cells(r, "A").Resize(1, 7) = matchData
r = r + 1
End If
How to get the opening odds (bet365, 1.72) of a game that has not yet been opened?
code works a week after the game...
but, It doesn't work until the game opens.
Why? not data-opening-odd?
How do we modify it?