Всем привет!
Появилась необходимость вытаскивать данные из XML. Но вытаскивать из него не все данные, а например:
managedObject class="IPNB" или managedObject class="WBTS", но не совсеми объектами.
Небольшой образец в аттаче.

Перепробовал с этого форума несколько образцов импорта, но все обламываются на считывании файла.
Если беру другой файл XML, то по крайней мере считывание происходит. Я подозреваю, что в аттаче не совсем стандартная структура файла.
Помогите пожалуйста распарсить. И как лучше реализовать выбор только нужных объектов? По эталонной таблице. В принципе данных надо не много, но может понадобиться их расширять.

  Dim xmlDoc As Object
    Dim xmlNode As MSXML2.IXMLDOMNode
    Dim xmlNodeList As MSXML2.IXMLDOMNodeList
    Dim xml_path As String
    Dim i As Integer
    Dim SourceFile$
  '
    Set xmlDoc = CreateObject("MSXML2.DOMDocument")
    xmlDoc.async = False ' флаг асинхронной загрузки документа
    'Документ не загружен
    SourceFile = "C:\temp\IPNB.XML"
    If Not xmlDoc.Load(SourceFile) Then Exit Sub   ' <========ВОТ ТУТ ПРОИСХОДИТ ВЫХОД
    '
    xml_path = "/raml/cmData/managedObject[@class='IPNB']"
    '
    Set xmlNodeList = xmlDoc.DocumentElement.SelectNodes(xml_path)
    i = 1
    For Each xmlNode In xmlNodeList
        MsgBox i
      MsgBox xmlNode.NodeValue
      i = i + 1
     ' тут надо будет писать в таблицу(ы)
    Next

http://www.sql.ru/forum/1300968/import-iz-xml