不能将子节点附加到父节点（VBA-XML）

Question

这是我的 VBA 代码，我在其中使用 excel 数据表修改 XML。 xml 在这里：https://www.jiocloud.com/s/?t=SzqFJhEABfsTQfZW&s=a2

function fnUpdateXMLByTags()
Dim mainWorkBook As Workbook
Dim wrsht As Worksheet


Set mainWorkBook = ActiveWorkbook
Set wrsht = mainWorkBook.Sheets("Sheet1")
wrsht.Activate

Dim oXMLFile As MSXML2.DOMDocument60
Set oXMLFile = New MSXML2.DOMDocument60
oXMLFile.async = False
oXMLFile.validateOnParse = False
XMLFileName = "Z:\IPC\IPC1752A_WK-200264-000 - Copy (2).xml"
XmlNamespaces = "xmlns:d='http://webstds.ipc.org/175x/2.0'"
oXMLFile.SetProperty "SelectionNamespaces", XmlNamespaces

For i = 3 To 5
  If Not IsEmpty(mainWorkBook.Sheets("Sheet1").Range("A" & i)) Then

        PartID = mainWorkBook.Sheets("Sheet1").Range("A" & i).Value
        PartName = mainWorkBook.Sheets("Sheet1").Range("B" & i).Value
        MaterialName = mainWorkBook.Sheets("Sheet1").Range("D" & i).Value
        MassAmount = mainWorkBook.Sheets("Sheet1").Range("F" & i).Value
        MassUnit = mainWorkBook.Sheets("Sheet1").Range("G" & i).Value
        Path = "D:\New folder\" & PartID & ".xml"

        If oXMLFile.Load(XMLFileName) Then

            Set PartIDNodes = oXMLFile.SelectNodes("//@itemNumber")
            Set PartNameNodes = oXMLFile.SelectNodes("//@itemName")
            Set MaterialNameNodes = oXMLFile.SelectNodes("//@name")
            Set MassAmountNodes = oXMLFile.SelectNodes("//@value")
            Set MassUnitNodes = oXMLFile.SelectNodes("//@UOM")
            PartIDNodes(0).NodeValue = Part_ID
            PartNameNodes(0).NodeValue = PartName
            MaterialNameNodes(5).NodeValue = MaterialName
            MassAmountNodes(1).NodeValue = MassAmount
            MassUnitNodes(1).NodeValue = MassUnit

        End If

    Else:
        If IsEmpty(mainWorkBook.Sheets("Sheet1").Range("D" & i)) Then
            Substancename = mainWorkBook.Sheets("Sheet1").Range("H" & i).Value
            CASNumber = mainWorkBook.Sheets("Sheet1").Range("I" & i).Value
            SubAmount = mainWorkBook.Sheets("Sheet1").Range("J" & i).Value
           Set SubstanceCategoryNode = oXMLFile.SelectNodes("//d:SubstanceCategory")
           Set Substancenode = oXMLFile.createElement("d:Substance")
           Substancenode.Text = "<SubstanceID identity="" authority=""/> <Amount value="" UOM=""/> "
           SubstanceCategoryNode.appendChild (Substancenode)
             "throwwin error here"

           oXMLFile.Save Path
         End If


End If


Next i

End Function

当我将子级附加到父级时，它会抛出“对象不支持此属性或方法”

请指出我错在哪里。是否有任何其他方法可以将子节点附加到父节点

Answer 1

原因是因为 SubstanceCategoryNode 的类型是 IXMLDOMSelection。它是一个选择，只是 XML 树的一个视图。要构建/附加元素，我实际上会创建一个元素，例如上面的 Substancenode 变量...

Set SubstanceCategoryNode = oXMLFile.createElement("d:SubstanceCategory")

...左右

使用监视窗口/TypeName() 函数

Answer 2

只是为了好玩。原始来源有四个“物质”节点，位于物质类别下。

之前：

您可以附加一个子节点，即添加另一个 Substance 节点（我猜？） 一种简单的方法是克隆现有的，然后更改其属性，例如

Option Explicit

Public Sub test()
    Dim xml As String, doc As MSXML2.DOMDocument60
    xml = [A1].Text
    Set doc = New MSXML2.DOMDocument60

    If Not doc.LoadXML(xml) Then
        Err.Raise doc.parseError.ErrorCode, , doc.parseError.reason
        Exit Sub
    End If

    Dim node As IXMLDOMElement, newNode As IXMLDOMElement
    Set node = doc.DocumentElement.LastChild.ChildNodes(1).FirstChild.FirstChild.ChildNodes(1).ChildNodes(1) '<== MaterialInfo > HomogeneousMaterialList>HomogeneousMaterial>SubstanceCategoryList > SubstanceCategoryListID>SubstanceCategory

   Set newNode = node.appendChild(node.LastChild.CloneNode(True))

   'Adjust newNode properties
    Stop
End Sub

之后：

Answer 3

答案很简单。而不是

Set SubstanceCategoryNode = oXMLFile.SelectNodes("//d:SubstanceCategory")

我必须使用这个。

Set SubstanceCategoryNode = oXMLFile.SelectsingleNode("//d:SubstanceCategory")

从 SelectNodes 到选择单个节点。

感谢@qharr 和@ThomasMX 的支持。