Triggered Betting in Excel using Draw Price and Goals Scored

[edwards12]

Hi - Trying to develop triggered betting in excel which is reliant on both Draw price and current score line. Either a 0-0 draw, or score draw, must prevail before entering a LAY the draw at specified odds.

Can you advise?

Cheers
Gron

[MarkRussell]

Hi,

The problem is....where do you get the current score from because it is not provided by the API and therefore it is not available to put into the Excel sheet.

You may be able to get it from an external source but obviously it must be reliable and accurate.

Mark

[Yorkie]

I've done something similar to this in the past and you can usually work out the current score from the odds of the other scores.

eg, if the score is 1-0 then the 0-0,0-1,0-2,0-3 scores will all show the back odds of 1000 and no lay odds.

By combining 2 BA tabs ( match odds & correct score) on 1 excel sheet it should be possible to pick out all the info needed.

Yorkie

[Dai_Young]

I use autohotkey to copy and paste the current scoreline from futbol24.com into excel. I'm sure there is a more elegant solution, however.

[osknows]

What is the quickest/most reliable site for football scores? I might have a new project..

[edwards12]

Thanks for that Mark and everyone, I thought that might be the case. One other question guys, and as an alternative to my previous, can excel trigger a 'text alert' once certain price criteria is satisfied in the match odds In play market ? Gron

[mak]

Hi
the following might help you
It is not mine I took it form punterslounge forum

place the code in one module


Sub xscores()
Application.ScreenUpdating = False
Dim strURL As String
Dim ieDoc As Object
Dim AllTables As Object
Dim xTable As Object
Dim myWkSht As Worksheet
Dim TblRow As Object
Dim tblCell As Object

Dim r As Integer
Dim c As Integer
Columns("N:O").NumberFormat = "@"
strURL = "http://xscores.com/LiveScore.do?state=soccer&sport=1"

If t = CDate(0) Then
Call NavigateTo(strURL)
End If

Set ieDoc = IE.Document
Set AllTables = ieDoc.frames(3).Document.frames(1).Document.getElementsByTagName("TABLE")
Set xTable = AllTables.Item(0)
Set myWkSht = ThisWorkbook.Sheets("Sheet1")

r = 0
c = 0

For Each TblRow In xTable.Rows
r = r + 1
For Each tblCell In TblRow.Cells
c = c + 1
myWkSht.Cells(r, c) = tblCell.innerText
Next tblCell
c = 0
Next TblRow
r = 0

Dim rng As Range
For Each rng In Range(Sheets(1).Range("A1"), Sheets(1).Range("A65536").End(xlUp))

If rng.Text = "K/O" Then
rng.Offset(0, 3).Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
rng.Offset(0, .Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
rng.Offset(0, 16).Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End If
Next rng
Columns("U:U").ClearContents
Range("A1").Select

'Call DisconnectFrom
't is set at 1 minute intervals
t = Now() + TimeValue("00:01:00")
Application.OnTime EarliestTime:=t, Procedure:="xscores", Schedule:=True
Application.ScreenUpdating = True
End Sub