VBA. Импорт XML в Excel

Формулировка задачи:

Требуется VBA-макросом сымпортировать XML-данные на страницу Excel, при этом не порушив форматирование этой страницы.
Пробовал двумя вариантами:
1..

ActiveWorkbook.XmlImport(, , True, Range())

В этом случае данные импортируются с ячейки B1, но форматирование убивается..
2.. С предварительным созданием XML-карты. Работает только если после программного создания XML-карты

ActiveWorkbook.XmlMaps.Add( _
        , ). = _

	 ActiveWorkbook.XmlMaps()
        .ShowImportExportValidationErrors = False
        .DataBinding.ClearSettings
        .AdjustColumnWidth = False
        .PreserveColumnFilter = False
        .PreserveNumberFormatting = False
        .AppendOnImport = False
     

сделать ручками сопоставление элементов, после чего вызвать

ActiveWorkbook.XmlMaps().DataBinding.Refresh

Может знаете как выполнить сопоставление из VBA?
Или может есть другие способы импорта XML с сохранинием форматирования?

Решение задачи: «VBA. Импорт XML в Excel»

textual
                            Листинг программы 
                        

                            <font color="blue">Sub</font> FindNode()

   <font color="blue">Dim</font> xmlDoc <font color="blue">As</font> DOMDocument
   <font color="blue">Dim</font> xmlNode <font color="blue">As</font> IXMLDOMNode
   <font color="blue">Dim</font> xmlNodes <font color="blue">As</font> IXMLDOMNodeList

   <font color="#00AA00">' Загружаем.</font>
   <font color="blue">Set</font> xmlDoc = <font color="blue">New</font> DOMDocument
   xmlDoc.async = False
   xmlDoc.Load (ThisWorkbook.Path & <font color="teal">"\Продажи.xml"</font>)

   <font color="#00AA00">' Находим работников по заданному критерию.</font>
   <font color="blue">Set</font> xmlNodes = xmlDoc.SelectNodes(<font color="teal">"//Сотрудник[Выручка>1000]"</font>)

   <font color="#00AA00">' Проверяем каждый найденный элемент.</font>
   <font color="blue">For</font> <font color="blue">Each</font> xmlNode <font color="blue">In</font> xmlNodes
      Debug.<font color="blue">Print</font> xmlNode.Text
   <font color="blue">Next</font>

<font color="blue">End</font> <font color="blue">Sub</font>

                        