Excel vba에서 CDATA 태그를 만드는 방법은 무엇입니까?

Question

아무도 도와 줄 수 있습니까?

엑셀 데이터를 vba로 변환하여 xml 파일로 변환하려고합니다. 내 xml 파일은

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

은 내가이

같은 VBA 코드를 추가

VBA에서 createCDATASection 방법을 사용하여 VBA에서 CDATA를 추가하려고 parsed.so 수없는 HTML 태그를하려면, 다음과 같다

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를,'

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

xml 파일의 소스보기 메모장에서 '< 볼 때 내는 다음과 같이 표시되는 코드,

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

하지만 appearing.Dont reason.And을 알고있다 CDATA 태그를 실행 한 후 '기호는 앰퍼샌드 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