如何将 DOMDocument 传递给子程序

经过几天对这个问题的反复试验，我现在偶然发现，如果我声明 just 而不是使用 ，我可以将 DOM ByRef 传递给子例程，而无需对现有代码进行任何其他更改。我甚至不再需要对“Microsoft XML”的引用。因此，工作代码现在如下所示：Dim xmlDoc As ObjectSet xmlDoc = New MSXML2.DomDocument60Set xmlDoc = CreateObject("MSXML.DOMDocument")

Sub Read_XML_Data()

Dim xmlDoc As Object
Dim xmlNode As Object
Dim strFilePath As String
Dim strFolder As String
Dim strContent As String

    'other code, doing stuff and assigning values to strFilePath and strFolder
    [...]

    Set xmlDoc = CreateObject("MSXML.DOMDocument")
    xmlDoc.async = False
    xmlDoc.Load (strFolder & strFilePath)
    
    'checking the XJustiz version
    For Each xmlNode In xmlDoc.getElementsByTagName("*")
        
        If StrComp(xmlNode.Attributes(0).Name, "xjustizversion", vbTextCompare) = 0 Then
       
            strContent = Left(xmlNode.Attributes(0).Text, 1)

            Select Case Left(xmlNode.Attributes(0).Text, 1)
                
                Case 1
                    Read_XJustiz_v1 xmlDoc
                    Exit For
                
                Case Else
                    MsgBox ("XJustiz Version: " & Left(xmlNode.Attributes(0).Text, 1))
                    Exit For
       
            End Select
       
        End If
    
    Next

End Sub


Sub Read_XJustiz_v1(ByRef xmlDoc As Object)
    
    'checking the entities legal form
    If xmlDoc.getElementsByTagName("Beteiligter").Item(0).ChildNodes(1).ChildNodes(2).Text = "Gesellschaft mit beschränkter Haftung" Then 'no more error!
    
    'do the rest of the code
    [...]

End Sub

不幸的是，我无法解释为什么东西会像它一样工作，但它确实有效。

我希望如果有人遇到类似的问题，这可能会有所帮助

只是为了表明它可以正常工作：

Sub Read_XML_Data()

    Dim xmlDoc As MSXML2.DOMDocument60, vers, rootName As String, nd As Object

    Set xmlDoc = New MSXML2.DOMDocument60
    xmlDoc.async = False
    xmlDoc.SetProperty "SelectionLanguage", "XPath"  'to use XPath
    'document has a "default namespace", so add that with a dummy alias `xx`...
    xmlDoc.SetProperty "SelectionNamespaces", "xmlns:xx='http://www.xjustiz.de'"
    xmlDoc.Load "C:\Temp\xjustiz.xml"
    
    vers = xmlDoc.SelectSingleNode("//xx:nachrichtenkopf"). _
                  Attributes.getNamedItem("xjustizVersion").Text
    Debug.Print vers '3.2.1
    
    Select Case vers
        Case "3.2.1"
            Set nd = xmlDoc.SelectSingleNode("//xx:beteiligter")
            Debug.Print "Read_XML_Data:", nd.ChildNodes(0).Text '.ChildNodes(0).Text
            Read_XJustiz_v3_2_1 xmlDoc
        Case Else
            Debug.Print "Version:", vers
    End Select


End Sub

Sub Read_XJustiz_v3_2_1(xmlDoc As DOMDocument60)
    Dim nd As Object
    Set nd = xmlDoc.SelectSingleNode("//xx:beteiligter")
    Debug.Print "Read_XJustiz_v3_2_1:", nd.ChildNodes(0).Text '.ChildNodes(2).Text
End Sub

输出：

Read_XML_Data               Muster und Kollegen 002
Read_XJustiz_v3_2_1         Muster und Kollegen 002