使用VBA查询并将xml属性值解析为XLS

我正在尝试打开/加载在B2范围内的Excel工作表中指定的XML文件。然后，搜索name=FUNCTIONAL_ITEM的XML属性列表，并获取">之后的所有属性值。在下面的例子中，我想提取出值8，9和10。

<Attribute name="BIN" dataType="String" unit="" multiplier="" tag="LINE,MRPM">1</Attribute>
<Attribute name="FUNCTIONAL_ITEM" dataType="Double" unit="" multiplier="" tag="LINE,LINE DB">8</Attribute>
<Attribute name="FUNCTIONAL_ITEM" dataType="Double" unit="" multiplier="" tag="LINE,LINE DB">9</Attribute>
<Attribute name="FUNCTIONAL_ITEM" dataType="Double" unit="" multiplier="" tag="LINE,LINE DB">10</Attribute>

有人可以指出我正确的方向来实现这一点。

已邀请:

1 个回复

催备南菠亨

您需要使用的是XPath。假设你在一个DomDocument60对象中有你的XML文档，我们称之为d并且你已经声明了一个名为i的IXMLDOMNodeList变量，那么使用它： Set i = d.selectNodes("//Attribute[@name='FUNCTIONAL ITEM']") 然后，您可以遍历i中的节点，并从每个节点中提取text属性。这是一个相当简单的演示程序（如果你还没有这样做，你需要通过工具>引用添加对“Microsoft XML，v6.0”的引用）：

Sub main()

Dim d As DOMDocument60
Dim i As IXMLDOMNodeList
Dim n As IXMLDOMNode

Set d = New DOMDocument60
d.Load 'file path goes here

Debug.Print "*****"
Set i = d.selectNodes("//Attribute[@name='FUNCTIONAL ITEM']")
For Each n In i
    Debug.Print n.Text
Next n
Debug.Print "*****"

End Sub

要回复问题请先登录或注册

使用VBA查询并将xml属性值解析为XLS

1 个回复

发起人

问题状态

使用VBA查询并将xml属性值解析为XLS

与内容相关的链接

1 个回复

发起人

问题状态