ms-access - 使用 MSXML 在 Access VBA 中自动关闭 XML 标记

Question

我一直在玩弄在 Access VBA 中使用 Microsoft XML, v6.0。我的问题是，在编写 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'"

Answer 1

以下代码似乎可以满足您的要求：

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"/>