PDA

View Full Version : excel for tt?



rosschuck
28th December 2009, 09:04 PM
hi,is there an excel spreadsheet for tt,iv been looking but cant seem to see 1

SJD
28th December 2009, 09:17 PM
hi,is there an excel spreadsheet for tt,iv been looking but cant seem to see 1

No.

The Geek reccomends people who want this facility to take a look at Betfair Software which is relatively cheap.

Regards

Steve

rosschuck
29th December 2009, 01:09 AM
thanks i didnt think ther was id been looking for ages cheers:)

taxbreaks
14th January 2010, 10:58 AM
Too old to learn but am trying hard! Betfair produces a fre API for developers (but basically open to anyone with an account) - is there any milage re graphs trying to harness this?

Also I have been trying to put together a excel 'front sheet' with live soccer score feeds that will when certain criteria are matched will trigger a bet

i.e. when 0-0 at half time and price is less than say 1.85 lay under +1.5 goals.

Have partial solved the problem of the scores with thanks to Punters Lounge - but it does not do what I want - anyone any ideas or input - can we/I/us incorporate Betfair excel live feed etc? I have also seen a program mentioned called KeepAPI alive does any know of this.

Code for live sores feed below -


Private ie As Object

Sub BasicTest()
Dim strURL As String
Dim ieDoc As Object
Dim AllTables As Object
Dim xTable As Object
strURL = "http://lite.betfair.com/"

NavigateTo (strURL)

MsgBox "Navigate to Market! Click OK when there", vbOKOnly + vbInformation

Set ieDoc = ie.Document
Set AllTables = ieDoc.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
End Sub

Private Function NavigateTo(strURL As String)
If ie Is Nothing Then Set ie = CreateObject("InternetExplorer.Application")

With ie
.Visible = True
.Navigate strURL
Do Until (.ReadyState = 4 And Not .Busy): DoEvents: Loop

If InStr(.Document.all(2).innerText, "Login") Then
.Navigate "https://lite.betfair.com/Login.do?s=000009z"
Do Until (.ReadyState = 4 And Not .Busy): DoEvents: Loop

.Document.all("username").Value = strUserName
.Document.all("password").Value = strPassword
.Document.all("loginForm").submit
Do Until (.ReadyState = 4 And Not .Busy): DoEvents: Loop

.Navigate strURL
Do Until (.ReadyState = 4 And Not .Busy): DoEvents: Loop

.Refresh
Do Until (.ReadyState = 4 And Not .Busy): DoEvents: Loop
End If

End With
End Function

jibiko
14th January 2010, 09:44 PM
If you are too old then I am too noob.
Definitely scientists in here.
Or geeks. :)