I can download the results from tabonline one race at a time into excel. By using the import data function. Can some one tell me how I can automate this process to save me some time thanks. All replies appreciated.

Dr Ron,

The info is copyright .... So there could be an issue with storing the data in excel.

Not sure if it can be done in excel, but I have done a program in java that jut reads the results but does not store the results anywhere.

Thanks

I asked a barrister to give an opinion on the copyright of racing results and he was (unoficially) of the opinion that they are in the public arena. I can't see that tab payouts would be any different.

KV

Wesmip 1, as far as copyright is concerned I dont have a problem downloading any info that is freely available for the world to see, as long as I dont reproduce it to make any personal gain. It is purely for my own use. Anyway thanks for the reply, I just thought that there might be a way I can automate it so I dont have to keep typing in virtualy the same info with a couple of different characters, being the race code and number. For example the qquery address is
[url]www.tabonline.com.au/2005/10/15/SR01.html for sydney race 1 reults today, I just need to be able to have the race number change automatically. Thanks for your opinion as wll KV, I think your barrister is correct. I couldnt see any one being charged over something like I am trying to do.

Dr RON on sheet1 copy a list of the urls as such in cellA1,A2,A3 etc. under eachother......
http://www.tabonline.com.au/2002/10/12/MR01.html
http://www.tabonline.com.au/2002/10/13/MR02.html
http://www.tabonline.com.au/2002/10/13/MR03.html
http://www.tabonline.com.au/2002/10/13/MR04.html

etc.

You'll need to do this part manually unfortunately.

Now record a macro, any dummy macro and save it.

Open up and step into the newly created macro, clear all entries until you have a blank macro page and copy and paste the code below....

Sub ImportData()

Sheets(2).Activate
A = 1
Do Until Sheets(1).Cells(A, 1) = ""
myquery = Sheets(1).Cells(A, 1)
Sheets(2).Cells(1, 1) = myquery
myrow = Sheets(2).UsedRange.Rows.Count + 1
Do
myrow = myrow - 1
Loop Until Sheets(2).Cells(myrow, 1) <> ""
myrow = myrow + 1
With Sheets(2).QueryTables.Add(Connection:= _
"URL;" & myquery, Destination:=Sheets(2).Cells(myrow, 1))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With
A = A + 1
Loop

End Sub

Save it as ImportData

Run the macro, it should paste the webpages one under the other on sheet2 of your workbook.

As long as you use it for yourself only, I don't see the problem. Unitab are hardly going to break into your house with a torch at 4am and go "Gotcha!".

They keep this information on their website for 2 years, so they keep it there for people to use.

__________________
RaceCensus - powerful system testing software.
Now with over 413,000 Metropolitan, Provincial and Country races!
http://www.propun.com.au/horse_raci...ng_systems.html
*RaceCensus now updated to 31/01/2025
Video overview of RaceCensus here:
http://www.youtube.com/watch?v=W821YP_b0Pg

Thanks Chrome, I'll give it a go and see if how it goes, it will test the boundries of my computer skills.