VBA中操作XML

OFFICE2007之后使用了OpenXml標准（偉大的改變），定制文本級的Ribbon可以通過修改壓縮包內的xml文件來實現。

    先學習一下VBA中操作XML的方法

    先引用Microsoft XML V6.0，對應的文件是msxml6.dll。前期綁定，方便使用智能提示。

    一、DOM方式創建一個XML文件：內容是自定義Ribbon的一個簡單框架。文件保存在桌面。

Sub CreateXmlFile()

   '創建文檔對象模型
   Dim xmldoc As New DOMDocument
   
   '創建根節點,XML文檔有且必須僅有一個根節點。
   Dim root As IXMLDOMElement
   'http://schemas.microsoft.com/office/2006/01/customui  2007版本使用的命名空間
   'http://schemas.microsoft.com/office/2009/07/customui  2010版本使用的命名空間
        Set root = xmldoc.createElement("customUI")
            root.setAttribute "xmlns", "http://schemas.microsoft.com/office/2009/07/customui"
        Set xmldoc.DocumentElement = root       '指定根節點
   
   'ribbon元素
   Dim xmlribbon As IXMLDOMElement
        Set xmlribbon = xmldoc.createElement("ribbon")
        root.appendChild xmlribbon

   'tabs元素
   Dim xmltabs As IXMLDOMElement
        Set xmltabs = xmldoc.createElement("tabs")
        xmlribbon.appendChild xmltabs

   'tab元素
   Dim xmltab As IXMLDOMElement
        Set xmltab = xmldoc.createElement("tab")
            xmltab.setAttribute "id", "CustomTab"
            xmltab.setAttribute "label", "自定義標簽"
        xmltabs.appendChild xmltab

   'group元素
   Dim xmlgroup As IXMLDOMElement
        Set xmlgroup = xmldoc.createElement("group")
            xmlgroup.setAttribute "id", "CustomGroup"
            xmlgroup.setAttribute "label", "自定義分組"
            xmltab.appendChild xmlgroup

   'button元素，並設置button的屬性
   Dim xmlbutton As IXMLDOMElement
        Set xmlbutton = xmldoc.createElement("button")
            xmlbutton.setAttribute "id", "btn"
            xmlbutton.setAttribute "label", "插入公司名稱"
            xmlbutton.setAttribute "size", "large"
            xmlbutton.setAttribute "onAction", "InsertCompanyName"
        xmlgroup.appendChild xmlbutton

   '文件保存到桌面
   xmldoc.Save ("C:\Users\stone\Desktop\1.xml")
End Sub

　下面是創建出來xml文件內容。創建出的文件標簽不能自動換行。只好手工排版。　

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon>
        <tabs>
            <tab id="CustomTab" label="自定義標簽">
                <group id="CustomGroup" label="自定義分組">
                    <button id="btn" label="插入公司名稱" size="large" onAction="InsertCompanyName"/>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

二、對已有的XML文件添加新的元素:給group添加一個menu元素，menu元素下添加兩個button子元素

Sub AppendXmlFile()

    Dim xmldoc As New DOMDocument
    
    Dim b As Boolean
    '加載xml文件，成功返回true
    b = xmldoc.Load("C:\Users\stone\Desktop\1.xml")
    If Not b Then Exit Sub

'    Dim xmlgroups As IXMLDOMNodeList
'    Dim xmlgroup As IXMLDOMElement
'    Set xmlgroups = xmldoc.getElementsByTagName("group")     '所有的group元素，返回一個集合
'    Set xmlgroup = xmlgroups(0)                              '取集合中第一個group元素
     
    Dim xmlgroup As IXMLDOMNode
    'Xpath  選取第一個group節點
    Set xmlgroup = xmldoc.SelectSingleNode("//tab[@id='CustomTab']/group[0]")
                 
    'menu元素
    '為了避免產生xmlns=""，要添加的節點的namespaceURI需要和父節點一致。下同
    Dim xmlmenu As IXMLDOMElement
    Set xmlmenu = xmldoc.createNode(NODE_ELEMENT, "menu", xmlgroup.NamespaceURI)
        xmlmenu.setAttribute "id", "CustomMenu"
        xmlgroup.appendChild xmlmenu
    
    'button元素
    Dim xmlbutton1 As IXMLDOMElement
    Set xmlbutton1 = xmldoc.createNode(NODE_ELEMENT, "button", xmlmenu.NamespaceURI)
        xmlbutton1.setAttribute "id", "btn1"
        xmlbutton1.setAttribute "label", "按鈕一"
        
    Dim xmlbutton2 As IXMLDOMElement
    Set xmlbutton2 = xmldoc.createNode(NODE_ELEMENT, "button", xmlmenu.NamespaceURI)
        xmlbutton2.setAttribute "id", "btn2"
        xmlbutton2.setAttribute "label", "按鈕二"
        
    xmlmenu.appendChild xmlbutton1
    xmlmenu.appendChild xmlbutton2
        
    Debug.Print xmldoc.XML
    xmldoc.Save ("C:\Users\stone\Desktop\1.xml")
    
End Sub

下面是添加新節點后的XML文件內容

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    <ribbon>
        <tabs>
            <tab id="CustomTab" label="自定義標簽">
                <group id="CustomGroup" label="自定義分組">
                    <button id="btn" label="插入公司名稱" size="large" onAction="InsertCompanyName"/>
                    <menu id="CustomMenu">
                        <button id="btn1" label="按鈕一"/>
                        <button id="btn2" label="按鈕二"/>
                    </menu>
                </group>
            </tab>
        </tabs>
    </ribbon>
</customUI>

 一個小知識點：

創建子節點時，如果沒有指名namespaceURI，在appendchild后，子節點帶一個xmlns=""的屬性。如果創建子節點時指定namespaceURI等於父節點的URI可以屏蔽這個麻煩，就不會生成xmlns=""了。

DOMDocument的兩個方法：

Function selectNodes(queryString As String) As IXMLDOMNodeList

Function selectSingleNode(queryString As String) As IXMLDOMNode

queryString是一個Xpath表達式。

Xpath語法參考W3C網站：http://www.w3school.com.cn/xpath/xpath_syntax.asp