0
Я пытаюсь получить узлы типа ERAD из длинного списка Erad узлов нашли в моем XMLполучить все узлы одного и того же типа
Вот мой код, чтобы получить первый пункт Erad
Как я бы это изменил, чтобы получить все стихи из КАЖДОГО предмета. XML является регулярным повторяющимся узором
Sub Macro1()
Dim strUrl As String
Dim strXPathBase As String
Dim objDoc As Object
Set objDoc = CreateObject("MSXML2.DOMDocument")
strUrl = "https://....XML"
objDoc.async = False
objDoc.Load strUrl
strXPathBase = "//response/responseBody/responseList/item/"
Debug.Print "erad1: " & objDoc.SelectSingleNode(strXPathBase & "erad1").Text
Set objDoc = Nothing
End Sub