Martinw
01-09-2014, 06:28 PM
I am trying to convert some code from single sheet to multi-sheet so I can use in an existing excel workbook - up to 70 wk sheets
It is in Public Sub LoadRaceField(wks As Worksheet)
If accepts:- Set runnerList = xmldoc.SelectNodes("//Runner")
For I = 0 To (runnerList.Length - 1)
Set runner = runnerList.Item(I)
Set runnerNumber = runner.Attributes.getNamedItem("RunnerNo")
but then rejects:-
Set poolList = xmldoc.SelectNodes("//Pool")
For J = 0 To (poolList.Length - 1)
Set Pool = poolList.Item(J) GETS STOPPED HERE WHEN COMPILING
Set poolwin = Pool.Attributes.getNamedItem("PoolType")
Any help would be greatly appreciated.
Ta,
Martin
It is in Public Sub LoadRaceField(wks As Worksheet)
If accepts:- Set runnerList = xmldoc.SelectNodes("//Runner")
For I = 0 To (runnerList.Length - 1)
Set runner = runnerList.Item(I)
Set runnerNumber = runner.Attributes.getNamedItem("RunnerNo")
but then rejects:-
Set poolList = xmldoc.SelectNodes("//Pool")
For J = 0 To (poolList.Length - 1)
Set Pool = poolList.Item(J) GETS STOPPED HERE WHEN COMPILING
Set poolwin = Pool.Attributes.getNamedItem("PoolType")
Any help would be greatly appreciated.
Ta,
Martin