VBA函數包括CDATA

Question

我有以下功能包括CDATA：

Function cdatasection() 
    Dim objDom As DOMDocument 
    Dim objKMLRootelement As IKMLDOMElement 
    Dim objKMLelement As IKMLDOMElement 
    Dim cdata As IKMLDOMCDATASection 

    Set objDom = New DOMDocument 
    Set objKMLRootelement = objDom.createElement("BalloonStyle") 
    objDom.appendChild objKMLRootelement 
    Set objKMLelement = objDom.createElement("text") 
    objKMLRootelement.appendChild objKMLelement 
    Set cdata = objDom.createCDATASection("text") 
    cdata.Data = "<![CDATA[<b>Latitude = $[latitude]</b>?]]>;" 
End Function 

當我運行上面，我得到這個錯誤「用戶定義的數據類型未找到」的功能。

Answer 1

是的，因爲Ripster說找到圖書館的參考。從VBA窗口工具>參考

相關參考文獻見列表...

http://msdn.microsoft.com/en-us/library/windows/desktop/ms763701%28v=vs.85%29.aspx

不過，如果你有一個很難追查參考，更換所有Dim報表及Set objDom = New DOMDocument到...

Dim objDom as Object 
Set objDom = CreateObject("Microsoft.XMLDOM") ' EDIT: If this does not work, try... 
'Set objDom = CreateObject("MSXML22.DOMDocument.6.0") 


Dim objKMLRootelement As Object 
Dim objKMLelement As Object  
Dim cdata As Object