Download XML File

[AndrewKent]

Hi there,

I'm trying to import data from this XML Link:

http://pricefeeds.williamhill.com/oxipubserver?template=getClasses

But I am a little unsure of how to set this up.

Can anyone help?

Andy

 

[xenou]

You may be able to adapt this code (ignoring a lot of the text manipulation and writing to worksheet cells):
http://scriptorium.serve-it.nl/view.php?sid=40

It uses a httprequest object which is very fast (ajax-ish) and will get the data as a string for you - you can write that to a file as your xml - you may need to parse out the comments at the top if they are also returned.

 

[Norie]

Andy

What data are you trying to access here?

I'm pretty sure there might be some other way to do it without downloading an XML file.

As far as I know an XML file on it's own doesn't really mean much without other associated files.

 

[John_w]

Look at XML DOMDocument for this.

 

[Norie]

John

Don't you need other files to 'properly' parse an XML file?

Isn't there some sort of 'schema' involved?

 

[John_w]

I don't think you always need an XML schema. You can load and parse it directly, like this:

'Requires reference to Microsoft XML, v6.0

Sub Loop_XML()

    Dim XMLDoc As DOMDocument
    Dim XMLNodes As IXMLDOMNodeList
    Dim XMLNode As IXMLDOMNode
    Dim XMLAttrib As IXMLDOMAttribute
    
    Set XMLDoc = New DOMDocument
    XMLDoc.async = False
    XMLDoc.Load ("http://pricefeeds.williamhill.com/oxipubserver?template=getClasses")
    
    Debug.Print XMLDoc.XML
    
    Set XMLNodes = XMLDoc.SelectNodes("/oxip/response/class")

    For Each XMLNode In XMLNodes
        Debug.Print XMLNode.XML
        For Each XMLAttrib In XMLNode.Attributes
            Debug.Print XMLAttrib.Name, XMLAttrib.Value
        Next
    Next

End Sub

 

[Norie]

John

Just tried that code, and the output in the Immediate window looks like it still needs some sort of parsing.

Wouldn't that need some sort of associated 'schema' or 'definition' file?

Sorry for all the questions.