[острое карри.]

Всем привет.

Пожалуйста, кто-нибудь может мне посоветовать почитать что-то дельное на тему работы с xml через макросы во всяких вордах и экселях?
Столкнулась с тем, что не могу реализовать фишку, когда из xml документа вытягивается определенная информация в эксель. Подозреваю, что не могу реализовать из-за того, что не хватает понимания, как работать с узлами.

Если вдруг кто-нибудь поможет с конкретным заданием - буду тоже очень благодарна ._.

xml документ выглядит так:

xml

<?xml version="1.0" encoding="windows-1251"?>
<Plan>
  <Header>
     <Group>группа</Group>
    <Year>год</Year>
  </Header>
  <Actions>
    <Action>
      <Position>1</Position>
      <ActionName>имя</ActionName>
         </Action>
    <Action>
      <Position>2</Position>
      <ActionName>имя2</ActionName>
          </Action>
   
  </Actions>
</Plan>

Блок Header с грехом пополам вытащила. Застряла на том, что могу вытянуть в ячейки только последнее значение блока Actions. А как сделать так, чтобы сначала выбирался первый position, заносился в ячейку, переходил на следующую ячейку, и только выбирался второй position - не могу.

часть кода

Dim xmlDoc As New DOMDocument30
Dim HeaderNode As IXMLDOMNode
Dim CurrentNode As IXMLDOMNode
Dim i As Integer

 If xmlFile = "" Then Exit Sub
    If Not IsEmpty(xmlFile) Then
       xmlDoc.Load (xmlFile)
         If xmlDoc.DocumentElement.nodeName = "Plan" Then
           Set HeaderNode = xmlDoc.DocumentElement.SelectSingleNode("Actions")

	    For Each CurrentNode In HeaderNode.ChildNodes
		For i = 1 To 2
		 Range("B" & i).Value = CurrentNode.SelectSingleNode("Position").Text
		Next
	    Next
         End If
     End If
 End If

В VBA далеко не то, чтобы ас, но это и так понятно ._.

@темы: Basic, Excel

Comments

[https]

острое карри., Мне кажется проблема не столько в том, что выбирается только второй Action, сколько в том, что внутренний цикл выполняется для всех узлов и значения во всех ячейках перетираются последней выбранное нодой. Чтобы каждое значение поочерёдно попадало в ячейки правильнее сделать так (на VB давно не писала так что прошу не воспринимать код слишком буквально):

'Номер первой ячейки, в которую должно попасть значение первого узла
Dim i As Integer = 1

For Each CurrentNode In HeaderNode.ChildNodes
		
		 Range("B" & i).Value = CurrentNode.SelectSingleNode("Position").Text

                 ' Переход на следующую ячейку, для значения следующего узла 
		 i = i +1
Next

А вообще точно в ячейку должно попадать именно значение Position? Может оно как раз задаёт номер ячейки, в которой должен лежать очередной Action?

[острое карри.]

Да, я подозревала, что последняя нода все радостно затирает, но на решение, как из этого выбраться, меня не хватило.
Спасибо огромное, все теперь работает именно так, как надо. Вы чудо.)

[https]

острое карри.,