Search for "Shaun-Excel-automatic" or similar on this forum.

I'm sure he posted a, then, working version, even if it's not accessing the sites you want, it would still be a very useful start and easy to modify.

Hope it helps

http://tatts.com/tattsbet_help/info/xml-excel-example

This will work beautifully

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

Nice work Chrome!!

__________________
Stix
.......Giddy Up..... !!

I will post my current sheet in a short a time with instructions.

thanks for quick reply but need something in the KISS principle ...M60 hope Shaun see it...

l'll be looking at that site some time tonight...just hope its easy to understand...for this old greyhair..took me months to get the excel talking but boy ..am pleased with the it..next challenge to make it talk to the form guide...

Sorry to disappoint if you were after an easy fix, i don't know easy but may be able to help if you explain what you need.

Here is the sheet for anyone interested, is a bit complex but easy to follow as the flow of the program runs with the flow of macros.

Attached Files

Ratings 2012.xlsm (7.29 MB, 508 views)

Oh, forgot to mention in the "Copy" and "Copy2" macro the part in red on this line needs to be changed.

fName = "F:\Files\Form Ratings 2010\Form Factor Ratings 2011" & Sheets("MainSheet").Range("AA16").text & ".txt"

it refers to where the file is stored, stick it in your C drive and replace the line with this.

fName = "C:\Form Factor Ratings 2011" & Sheets("MainSheet").Range("AA16").text & ".txt"

Hi Chrome Prince.....well l went o.k with the example writing every thing in it ...then took me a long while to do that button..which l found in the Devloper....manage to put the button on and then it all went pear shape....could you please email me a copy..for l spent hours trying to make it go pass the button stage no luck.....e-mail is blkscoutm606768@yahoo.com.au be much appreciate if you could..Thanking you M60

I'm getting a system error

System error -216697210

is the data still viable

Sub LoadRaceField()
Dim xmldoc As MSXML2.DOMDocument
Set xmldoc = New MSXML2.DOMDocument
xmldoc.async = False
xmldoc.Load ("http://tatts.com/pagedata/racing/2010/6/28/VR6.xml")
If (xmldoc.parseError.ErrorCode <> 0) Then
MsgBox ("An error has occurred: " & xmldoc.parseError.reason)
Else
Set runnerList = xmldoc.SelectNodes("//Runner")
Sheet1.Cells.Clear
For i = 0 To (runnerList.Length - 1)
Set runner = runnerList.Item(i)
Set runnerNumber = runner.Attributes.getNamedItem("RunnerNo")
Set runnerName = runner.Attributes.getNamedItem("RunnerName")
Set runnerWeight = runner.Attributes.getNamedItem("Weight")
Set riderName = runner.Attributes.getNamedItem("Rider")
If Not runnerNumber Is Nothing Then
Sheet1.Cells(i + 1, 1) = runnerNumber.Text
End If
If Not runnerName Is Nothing Then
Sheet1.Cells(i + 1, 2) = runnerName.Text
End If
If Not runnerWeight Is Nothing Then
Sheet1.Cells(i + 1, 3) = runnerWeight.Text
End If
If Not riderName Is Nothing Then
Sheet1.Cells(i + 1, 4) = riderName.Text
End If
Next
End If
End Sub

__________________
Stix
.......Giddy Up..... !!