Я искал в Интернете, возможно, 8 часов, включая Experts Exchange и Stackoverflow, и нашел других с такой же проблемой, но я 'Я не нашел решения этой проблемы.

m присоединение файла XML, который использует атрибуты для хранения данных в родительском узле и трех зависимых дочерних узлах. Все атрибуты имеют уникальное имя. XML открывается во всех браузерах, и яЯ вполне уверен, что это "хорошо сформированные», Я успешно написал код для чтения атрибутов родительского узла, но каждый раз, когда я пытаюсь написать код для чтения атрибутов дочерних узлов, я получаю ошибку времени выполнения 91 или ее нет вообще. I '

мы пробовали МНОГО перестановок следующего кода без успеха. Я приветствую любые предложения о том, как циклически проходить через этот XML, чтобы я мог обрабатывать и хранить данные в двух связанных таблицах.

Function ReadAttributes(ByVal strXML As String)

Dim xmldoc As New DOMDocument
Dim iNode As MSXML2.IXMLDOMNode
Dim iNode2 As MSXML2.IXMLDOMNode
Dim DonorNodeList As IXMLDOMNodeList
Dim iAtt As IXMLDOMAttribute
Dim iAtt2 As IXMLDOMAttribute

On Error GoTo ReadAttributes_OnError

xmldoc.async = False
xmldoc.loadXML strXML
If xmldoc.parseError.errorCode  0 Then
    MsgBox "Invalid XML, Load Failed"
    GoTo ReadAttributes_OnError
End If

Set DonorNodeList = xmldoc.getElementsByTagName("Donor")

For Each iNode In DonorNodeList
    For Each iAtt In iNode.Attributes
        MsgBox iAtt.Name & ": " & iAtt.nodeTypedValue
    Next
    Set iNode2 = iNode.firstChild
    MsgBox iNode2.nodeName
    For Each iAtt2 In iNode2.Attributes
        MsgBox iAtt.Name & ": " & iAtt.nodeTypedValue
    Next
Next
Exit Function

ReadAttributes_OnError:
    MsgBox Err.Number & " - " & Err.Description
    Exit Function
End Function