1

Topic: Does not give all the best xml in xls

I try to import xml on sheet . Here the code
Sub impRRP ()
Dim iRow As Integer, iCol As Integer
Dim xmlDoc As MSXML2.DOMDocument, xmlRoot As MSXML2.IXMLDOMNode
Dim xmlNodes As MSXML2.IXMLDOMNode, xmlData As MSXML2.IXMLDOMNode
Set xmlDoc = New MSXML2.DOMDocument
xmlDoc.async = False
xmlDoc.validateOnParse = False
xmlDoc. Load ("https://websvcgatewayx2.frbny.org/autor … p;ctm=true")
Set xmlRoot = xmlDoc. DocumentElement
Set xmlNodes = xmlRoot. FirstChild
' I spread a cycle on sheet an ex-fur-tree
iRow = 0
For Each xmlNodes In xmlRoot. ChildNodes
iRow = iRow + 1
iCol = 0
For Each xmlData In xmlNodes. ChildNodes
iCol = iCol + 1
ThisWorkbook. Sheets ("List4").Cells (1, iCol) = xmlData. BaseName
ThisWorkbook. Sheets ("List4").Cells (iRow, iCol) = xmlData. Text
Next xmlData
Next xmlNodes
Set xmlDoc = Nothing
End Sub
Quits only the three first column of the first line, and them there much. I can not understand, in what an error.

2

Re: Does not give all the best xml in xls

VasCr wrote:

Quits only the three first column of the first line,

Can four?