OZmium Sports Betting and Horse Racing Forums

13th February 2013, 09:03 AM

Dennis G

Member

Join Date: Mar 2006

Posts: 112

I'm Stumped with VBA & XML

Hi All,
I'm pulling the hair out and have googled myself silly, but I just can't work this out. I'm hoping Shaun or one of the other Excel experts can help me.

On Sheet2 Cells A3-A10 I have a list of URLs representing one meeting.

A3 =

h**p//tatts.com/pagedata/racing/2013/2/9/BR1.XML
etc

The macro I'm having hassles with -

Code:

 
 
Sub LoadRaceDetails()
 
Dim xmldoc As MSXML2.DOMDocument
 
Set xmldoc = New MSXML2.DOMDocument
 
xmldoc.async = False
 
xmldoc.Load ("h**p//tatts.com/pagedata/racing/2013/2/9/BR1.XML")

What I'm trying to achieve is to replace the URL (in blue) with code that will read Sheet2 Cell A3 and then loop to read Cell A4 etc - I'm pretty sure I can handle the looping.....
This XML stuff is doing my head in....

Thanks,
Den

Last edited by Dennis G : 13th February 2013 at 09:06 AM.

13th February 2013, 12:27 PM

stugots

Banned

Join Date: Jan 1970

Posts: 879

not sure on the looping but this will pull the address from A3

Address = Range("A3")

xmldoc.Load Address

Last edited by stugots : 13th February 2013 at 12:29 PM.

13th February 2013, 01:17 PM

Dennis G

Member

Join Date: Mar 2006

Posts: 112

Excellent, stugots.
Works brilliantly.

For the rest I altered the code to -

Code:

 A = 3
Address = Sheets("Sheet2").Cells(A, 1) 
 
xmldoc.Load Address

then at the end of the macro - A = A + 1
so that the next pass A = 4 ie. Cell(A4)

Thanks again, mate
Den

13th February 2013, 02:26 PM

stugots

Banned

Join Date: Jan 1970

Posts: 879

No prob Dennis

13th February 2013, 02:58 PM

moeee

Suspended

Join Date: Jan 1970

Location: Melbourne

Posts: 5,359

Ain't it great when the answer was so simple , yet achieved awsome results for the member.

13th February 2013, 07:01 PM

Dennis G

Member

Join Date: Mar 2006

Posts: 112

Quote:

Originally Posted by moeee

Ain't it great when the answer was so simple , yet achieved awsome results for the member.

It sure is mate. I was using web query to download Tatts results, but lately it has taken up to 45 mins to do all meetings on a big saturday.

I've just finished this workbook (bugs not withstanding) just ran it for last saturday and was done in under three minutes.....

Some tweaking to do (not dealing with abandoned meetings too well and some other odd results) but will get there...

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

	To advertise on these forums, e-mail us.