对此提出建议。我的代码有一些阻止。我得到错误'对象需要'

Question

我正在使用下面的函数。在第一个中，我使用MSXML解析了xml的节点及其值。类似的func fr其他xml.i想要使用两个nodevalues并突出显示它。我尝试了一些东西。但我在突出显示的行（ * *）中收到错误为'Object Required'。你的快速回复将会帮助我更多。

Public Sub DisplayNode1（ByRef Nodes1 As MSXML2.IXMLDOMNodeList，_    ByVal Indent1 As Integer）

一些行

  RichTextBox2.Text = Space$(Indent) & xNode1.ParentNode.nodeName & _
        ":" & xNode1.NodeValue 

        difference          

一些行

Public Sub difference() 

Dim a As IXMLDOMText 

Dim b As IXMLDOMText

a.NodeValue = xNode.innertext  'i get erroe in line    

b.NodeValue = xNode1.innertext           

If StrComp(a, b) > 0 Then  

a = vbRed  

b = vbRed 

End If          

请尽快帮助我。

Answer 1

这有很多可能是错误的。

• xnode未在代码示例中的任何位置声明
• 在代码示例中的任何位置都未明确设置a，b或xnode
• 除非xnode是表单/模块/全局级别变量，否则它将超出差异过程
• 它没有显示，但我猜你没有在代码中设置Option Explicit或默认

在使用此代码之前，您需要首先解决这些问题。