Как создать тег CDATA в Excel vba?

Кто-нибудь может помочь.

Я пытаюсь преобразовать данные excel в xml-файл uisng vba. Мой XML-файл выглядит так,

<product> <info><i>Samsung</i></info> </product> 

Я хочу, чтобы html-теги не были разобраны. Также пытаюсь добавить cdata в vba, используя метод createCDATASection в vba

Я добавил код vba, как это

  Set objDom = New DOMDocument Set objXMLRootelement = objDom.createElement("Product") Set objXMLelement = objDom.createElement("info") objXMLRootelement.appendChild objXMLelement cdata=objDom.createCDATASection ("<i>Samsung</i>") objXMLelement.text=cdata.text 

Я хочу, чтобы мой xml-файл появлялся так, и при просмотре viewource в блокноте он должен
отображать '<' как '<', но не 'ampersand lt;'

  <product> <info><![CDATA[<i>Samsung</i>]]></info> </product> 

после выполнения моего кода он отображается следующим образом:

  <product> <info><i>Samsung</i></info> </product> 

но тег cdata не появляется. Не знаю причину. И при просмотре источника представления XML-файла в примечании «<» символ отображается как ampersand lt;

может ли кто-нибудь решить эту проблему?

заранее спасибо

    Попробуй это

     Sub zx() Dim objDom As DOMDocument Dim objXMLRootelement As IXMLDOMElement Dim objXMLelement As IXMLDOMElement Dim cdata As IXMLDOMCDATASection Set objDom = New DOMDocument Set objXMLRootelement = objDom.createElement("Product") objDom.appendChild objXMLRootelement Set objXMLelement = objDom.createElement("info") objXMLRootelement.appendChild objXMLelement Set cdata = objDom.createCDATASection("info") cdata.Data = "<i>Samsung</i>" objXMLelement.appendChild cdata Debug.Print objDom.XML End Sub 
    Interesting Posts

    Сравнить 2 значения столбцов в 2 ExcelSheet

    Создание excel в Windows Mobile 5.5devices с помощью vb.net

    Создание массива VB, являющегося общедоступным, в модуле класса

    Как рассчитывать на основе 2 столбцов?

    Создание Quintile (Percentile) Array и необходимость переключения соответствующих номеров

    Имя пользователя из пользовательской формы

    Если ячейка имеет 1 или 3 в ней, выбран переключатель или нет?

    Метод сравнения, сравнения и замены различий

    VBA: вырезать ряд столбцов и вставлять их как один столбец

    Перезапись данных в существующую книгу с использованием Python

    VBA: подсчет количества столбцов в пределах диапазона до тех пор, пока не встретится указанное значение

    Найдите одну ячейку, проверьте другие ошибки и скопируйте смещение в порыве. Ошибка 91, блок не установлен

    Как очистить именованный диапазон без использования каких-либо VBA / макросов

    Использование результата формулы Excel, оцененного в выражении If без пересчета

    Как создать динамический список в VBA?

    Давайте будем гением компьютера.