----------------------------------创建xml----------------------------------------------------
Sub Initialize
On Error Goto a
Dim session As New NotesSession
Path = "D:\Test.xml" '创建路径
Dim ObjDom As Variant
Set ObjDom = createObject("msxml2.domdocument")
ObjDom.async = False
ObjDom.resolveExternals = False
Call ObjDom.Setproperty("SelectionLanguage","XPath") '解析Xpath语言,区分大小写
Set RootNode = ObjDom.CreateProcessingInstruction("xml","version='1.0' encoding='GBK'") '创建xml标签
Call ObjDOM.Appendchild(RootNode)
'创建根节点
Set PNode = ObjDOM.Createelement("father")
Call PNode.Setattribute("ID","007") '给PNode节点添加属性
Call PNode.Setattribute("Name","sz") '给PNode节点添加属性
Call ObjDOM.Appendchild(PNode)
'创建子节点
Set CNode1 = ObjDom.Createelement("a1")
Call CNode1.Setattribute("value","sz")
Set CNode2 = ObjDom.Createelement("a2")
Call CNode2.Setattribute("value","wy")
Set CNode3 = ObjDom.Createelement("a1")
Call CNode3.Setattribute("value","wsp")
Call PNode.Appendchild(CNode1)
Call PNode.Appendchild(CNode2)
Call PNode.Appendchild(CNode3)
'创建子节点
Set NameNode1 = ObjDom.Createelement("Name")
NameNode1.text = "特种兵" '节点值
Set NameNode2 = ObjDom.Createelement("Name")
NameNode2.text = "小冶"