Developing.ru

Работаю с xml-документом d excell
Dim xmlDoc As DOMDocument
Set xmlDoc = CreateObject("Msxml.DOMDocument")
xmlDoc.async = False '
Set nodeList = xmlDoc.selectNodes("*/BL")
Set xmlNode = nodeList.Item(0).cloneNode(True)
Set nodeList1 = xmlNode.selectNodes("*/GR")
Set xmlNode1 = nodeList1.Item(nn).cloneNode(True)
Cells(nom, 2) = xmlNode1.childNodes(0).Attributes(2).Value

xmlNode1.childNodes(0).Attributes(2).Value = 999555999
xmlDoc.Save "c:\1.xml"


но изменений в файле нет.... ЧТО НЕ ТАК?

ДолжОн работать такой вариант :