Set newNode = xDoc.createelement("Declaration")
Set tNode = xDoc.DocumentElement.appendChild(newNode)
Set newNode = xDoc.createelement("BorderTransportMeans")
Set tNode = xDoc.DocumentElement.ChildNodes.Item(1).appendChild(newNode)
Set newNode = xDoc.createelement("JourneyID")
Set dNode = xDoc.DocumentElement.ChildNodes.Item(1).appendChild(newNode)
dNode.appendChild (xDoc.createTextNode("邊城"))
上面的代碼怎么寫不出下面的這個XML，請高手指點一下。謝謝！
<Declaration>
<BorderTransportMeans>
<JourneyID>邊城</JourneyID>
</BorderTransportMeans>
</Declaration>
uj5u.com熱心網友回復：
看著都暈了，層層遞進而已，一層一層插入子節點，最后一個給文本節點簡化一下：
Dim xdoc As New DOMDocument60
Set newNode = xdoc.appendChild(xdoc.createElement("Declaration"))
Set newNode = newNode.appendChild(xdoc.createElement("BorderTransportMeans"))
Set newNode = newNode.appendChild(xdoc.createElement("JourneyID"))
Set newNode = newNode.appendChild(xdoc.createTextNode("邊城"))
Debug.Print xdoc.xml
uj5u.com熱心網友回復：
能不能再擴展一下，比如每層節點有兩元素？初學沒教材只有百度東拼西湊的東西
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/269090.html
標籤：VBA