excel - 如何在 Excel VBA 中读取 XML 自关闭标记？

Question

我有一个 XML 文件，其中包含一个标签，该标签可以有文本，也可以在没有文本时自动关闭。

案例 1(带文字):

<Example>
   <size>512</size>
</Example>

情况 2(无文本 - 自关闭):

<Example>
   <size />
</Example>

我想在 Excel VBA 中读取此标记文本。在情况 1 中，没问题，我执行以下操作:

Set oXMLFile = CreateObject("Microsoft.XMLDOM")
oXMLFile.Load ("File.xml")
size = oXMLFile.SelectSingleNode("/Example/size/text()").NodeValue

但在情况 2 中，SelectSingleNode 函数返回此错误:

Run-time error '438':
Object doesn't support this property or method

如何处理案例 2 以便它返回一个空字符串？是否有内置的 VBA 函数来测试标签是否自关闭？

Answer 1

Option Explicit

Sub Test()

    Dim oXMLFile As Object
    Dim oNode As Object
    Dim sSize As String

    Set oXMLFile = CreateObject("MSXML2.DOMDocument.6.0")
    oXMLFile.LoadXML "<Example><size>512</size></Example>"
    Set oNode = oXMLFile.SelectSingleNode("/Example/size/text()")
    If Not oNode Is Nothing Then sSize = oNode.NodeValue

End Sub