Всем доброго времени суток. Товарищи - прошу помочь. Уже мозг поломал и все безрезультатно. Как по средствам VBA в Эксель добавлять в файл (как во вложении) пункты:
эту тему видел и пытался повторить. Есть одна загвоздка... Допустим элемент "ИнфПолФХЖ1" я создам. А как создать <ТекстИнф Идентиф="основание" Значен="999"/> Проблема в том что это не просто текстовое значение элемента ИнфПолФХЖ1. Оно заключено в <...>. И вот тут то и затуп
sXpath = "ДокПодтвОтгр"
sFile = "адрес файла"
With CreateObject("MSXML2.DOMDocument")
.Load sFile
Set newnode = .createElement("ИнфПолФХЖ1")
Set objNode = .getElementsByTagName(sXpath).Item(0)
Set objRoot = objNode.ParentNode
objRoot.InsertBefore newnode, objNode.NextSibling
Set newel = .createElement("ТекстИнф")
Set x = .getElementsByTagName("ИнфПолФХЖ1").Item(0)
x.appendChild (newel)
newel.setAttribute "Идентиф", "Основание"
newel.setAttribute "Значен", "текст значения"
.Save sFile
End With
Set newnode = Nothing: Set newel = Nothing