小编sab*_*age的帖子

我已经编写了一些代码来将一些数据从XML文件导入到excel中,直到它尝试读取不存在的属性为止.它们在文件中是可选的,我无法添加它们所以我需要在代码中处理它.

我试着与处理的对象If Is Not Nothing,但是,这并不工作,同样没有If <> ""或If <> Null没有运气.

如果有人能给我任何帮助,我将非常感激.

Public Sub import()

    Dim oDoc As MSXML2.DOMDocument
    Dim fSuccess As Boolean
    Dim oRoot As MSXML2.IXMLDOMNode
    Dim oSoftkey As MSXML2.IXMLDOMNode
    Dim oAttributes As MSXML2.IXMLDOMNamedNodeMap
    Dim oSoftkeyName As MSXML2.IXMLDOMNode
    Dim oSoftkeyDescriptor As MSXML2.IXMLDOMNode
    Dim oSoftkeyStyleName As MSXML2.IXMLDOMNode

    Dim oChildren As MSXML2.IXMLDOMNodeList
    Dim oChild As MSXML2.IXMLDOMNode
    Dim intI As Integer
    On Error GoTo HandleErr

    Set oDoc = New MSXML2.DOMDocument

    oDoc.async = False
    oDoc.validateOnParse = False
    fSuccess = …