Læs xml url indhold ind i excel via VBA?

MSXML.DOMDocument kan godt loade fra en URL !

jeg har brug for et kode eksempel for at komme i gang, desværre :-/ Jeg synes jeg har prøvet alt muligt men intet virker.. jeg får alle mulige fejl.. og så er jeg virkelig VBA novice... :-(

Til inspiration (sakset fra http://msdn.microsoft.com/en-us/library/aa468547.aspx )

Sub testXML()
  Dim objXML As MSXML2.DOMDocument60, myErr
  Set objXML = CreateObject("Msxml2.DOMDocument.6.0")
  objXML.async = False
  objXML.Load ("http://vatid.eu/check/BE/0828639227/DK/10403782")
 
  If objXML.parseError.ErrorCode <> 0 Then
      Set myErr = objXML.parseError
      Debug.Print "You have error " + myErr.reason
  Else
      DisplayNode objXML.ChildNodes, 0
  End If
End Sub

Sub DisplayNode(ByRef Nodes, ByVal Indent)
  Dim xNode
  Indent = Indent + 2

  For Each xNode In Nodes
      If xNode.NodeType = NODE_TEXT Then
        Debug.Print Space$(Indent) & xNode.ParentNode.nodeName & _
            ":" & xNode.NodeValue
      End If

      If xNode.HasChildNodes Then
        DisplayNode xNode.ChildNodes, Indent
      End If
  Next xNode
End Sub

Bemærk 'objXML.async = False', hvilket stopper programmet indtil Load returnerer. Ellers er der ikke så meget at udskrive... :-)

tjp, vil du smide et svar :-)

Jamen, det vil jeg da! Du kom videre? :-)