Импорт данных из xml-файла

[drzod]

Добрый день. Есть такая задача:

1. Есть xml файл в котором есть перечень сотрудников. Нужно циклом из этого файла фамилию каждого сотрудника выгрузить в отдельную ячейку в екселе. Как сделать это макросом
2. Как сделать цикл, чтобы он сканировал xml файл до самой последней строки, так как не известно сколько сотрудников будет в нем указано.

Пример xml файла во вложении

[Serge_Bliznykov]

если взять вот тут: код (с) Freerider1972
и чуть подправить его так:

Sub ReadXML()
Dim xml_doc As New DOMDocument
Dim nde_test As IXMLDOMElement

xml_doc.Load "D:\9070481out.xml"

For Each nde_test In xml_doc.SelectNodes("//Сотрудник")

  Debug.Print nde_test.SelectSingleNode("Фамилия").Text

Next

End Sub

то, имхо, можно получить то, что Вы хотите...


p.s. в VBA меню Tools - References нужно включить (поставить галочку) на Microsoft XML

[drzod]

Спасибо большое - помогло