Почему appendChild выдает ошибку времени выполнения 438 (объект не поддерживает это свойство или метод)? - PullRequest
Новая
       18

Почему appendChild выдает ошибку времени выполнения 438 (объект не поддерживает это свойство или метод)?

0 голосов
/ 16 мая 2019

Я редактирую документ XML с кодом VBA.Я хочу создать новый вложенный набор элементов, а затем использовать replaceChild, чтобы заменить эту часть XML аналогичным существующим элементом.Я получаю ошибку 438 во время выполнения при попытке вставить текстовый узел в мой первый новый элемент.

Я скопировал этот подход из учебного примера, который я нашел в Интернете, поэтому ожидал, что он будет работать без помех.

Я пытаюсь создать этот раздел XML: 

<ConnectionProperties>
<DataProvider>SQL</DataProvider> 
</ConnectionProperties>

Чтобы создать элементы: 

Dim NewElement As MSXML2.IXMLDOMElement
Dim NewNodeElement As MSXML2.IXMLDOMElement
Dim NewNodeText As MSXML2.IXMLDOMText

Set NewElement = xmlDoc.createNode(1, "ConnectionProperties", xmlNameSpace)

Set NewNodeElement = xmlDoc.createNode(1, "DataProvider", xmlNameSpace)
Set NewNodeText = xmlDoc.createTextNode("SQL")

NewNodeElement.appendChild (NewNodeText)    <--- Get run-time error 438 here

NewElement.appendChild (NewNodeElement)

Я получаю ошибку во время выполнения при попытке вставитьтекстовое значение «SQL» в теге DataProvider.

Я ожидал, что текст будет вставлен в элемент, но вместо этого я получаю ошибку во время выполнения.

...