Самозакрывающиеся теги XML в Access VBA с использованием MSXML

Я играл с использованием Microsoft XML, v6.0 в Access VBA. Мой вопрос в том, есть ли в любом случае при написании VBA создание вывода XML, чтобы вывод имел самозакрывающиеся теги?

Как и в следующем коде, когда поле создается, оно помещает текст между двумя тегами
Я хотел бы, чтобы текст был в самозакрывающемся теге.

<field> name='Unit' value='TEST'</field> как он экспортируется

<field name='Unit' value='TEST'/> это то, как я хотел бы экспортировать

Set objMemberName = objDom.createElement("field")
    objMemberElem.appendChild objMemberName
    objMemberName.Text = "name='UNIT' value='TEST'"

vba ms-access msxml msxml6
person TheDanimal565    schedule 29.01.2014    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Следующий код, кажется, делает то, что вы хотите:

Option Compare Database
Option Explicit

Public Sub test()
    Dim objDom As MSXML2.DOMDocument, objElement As MSXML2.IXMLDOMElement

    Set objDom = New MSXML2.DOMDocument
    Set objElement = objDom.createElement("field")
    objElement.setAttribute "name", "UNIT"
    objElement.setAttribute "value", "TEST"
    objDom.appendChild objElement
    objDom.Save "C:\Users\Gord\Desktop\test.xml"
    Set objElement = Nothing
    Set objDom = Nothing
End Sub

Когда я открываю "test.xml", я вижу

<field name="UNIT" value="TEST"/>
person Gord Thompson    schedule 29.01.2014
comment
@TheDanimal565 Пожалуйста. (p.s. Пожалуйста, прочтите это.) - person Gord Thompson; 30.01.2014