Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/17.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 使用MSXML在Access VBA中自动关闭XML标记_Ms Access_Vba_Msxml_Msxml6 - Fatal编程技术网

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

Ms access 使用MSXML在Access VBA中自动关闭XML标记,ms-access,vba,msxml,msxml6,Ms Access,Vba,Msxml,Msxml6,我一直在尝试在Access VBA中使用Microsoft XML,v6.0。我的问题是,在编写VBA来创建XML输出时,是否存在这样的情况,即输出具有自动关闭标记 与下面的代码一样,当创建字段时,它会将文本放在两个标记之间 我想它有一个自动关闭标签的文本 name='Unit'value='TEST'是如何导出的 是我希望它的导出方式 Set objMemberName = objDom.createElement("field") objMemberElem.appendChild

我一直在尝试在Access VBA中使用Microsoft XML,v6.0。我的问题是,在编写VBA来创建XML输出时,是否存在这样的情况,即输出具有自动关闭标记

与下面的代码一样,当创建字段时,它会将文本放在两个标记之间
我想它有一个自动关闭标签的文本

name='Unit'value='TEST'
是如何导出的

是我希望它的导出方式

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

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

选项比较数据库
选项显式
公共子测试()
Dim objDom为MSXML2.DOMDocument,OBJEElement为MSXML2.IXMLDOMENT
Set objDom=New MSXML2.DOMDocument
Set objeelement=objDom.createElement(“字段”)
objElement.setAttribute“名称”、“单位”
objElement.setAttribute“值”、“测试”
objDom.appendChild对象元素
保存“C:\Users\Gord\Desktop\test.xml”
设置对象=无
设置objDom=Nothing
端接头
当我打开“test.xml”时,我看到


@thedanmal565不客气。(请注意阅读。)