如何在Excel VBA中创buildCDATA标签？

任何人都可以请帮忙。

我试图将Excel数据转换成XML文件UISGO VBA。 我的XML文件看起来像这样，

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

我想html标记不被parsing。所以试图添加VBA中使用createCDATASection方法VBA中的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文件出现这样，当在记事本中查看viewsource它应该
显示“<”为“<”，但不是“＆lt;＆lt;”

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

执行我的代码后，它是这样显示，

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

但是cdata标签没有出现。不知道原因。而且当在记事本中查看xml文件的视图源时，'<'符号显示为＆lt;＆lt;

谁能解决这个问题吗？

提前致谢

Answer 1

尝试这个

 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