向XML元素添加属性

我正在尝试向XML元素添加属性。我似乎无法让它工作

Public Sub-fnWriteXML（数据）
Dim oDoc作为新的MSXML2.DOMDocument60
作为IXMLDOMDProcessingInstruction的Dim oNode
作为字符串的Dim sDC
将xAtt1作为IXMLDOMAttribute进行调整
将xAtt2设置为IXMLDOMDAttribute
将xAtt3设置为IXMLDOMDAttribute
作为IXMLDOMDAttribute的Dim xAtt4
sDC=”“”
'oDoc.async=False
oDoc.validateOnParse=False
oDoc.resolveExternals=错误
oDoc.preserveWhiteSpace=True
'处理指令
Set oNode=oDoc.createProcessingInstruction（“xml”，“version='1.0'））
oDoc.appendChild（oNode）
设置oNode=Nothing
'创建顶级kfx
作为IXMLDOMELENT的Dim XMLREL
Set XMLREL=oDoc.createElement（“cus.XMLRELEASE”）
'添加属性
Set xAtt1=oDoc.createAttribute（“xmlns:cus”）
xAtt1.Value=”http://www.myurl.com"
xAtt1.appendChild（XMLREL）
oDoc.appendChild（XMLREL）
Save（“E:\TestXML\Test.xml”）
端接头

上面的示例显示了该行：

xAtt1.appendChild(XMLREL)

由于类型不匹配而失败

---

如何向元素添加一个或多个属性？我正在从源应用程序中的一系列值生成此XML。

您发布的代码不是VBScript。此外，始终包含完整的错误消息…即VB…错误为10080类型不匹配XMLREL.setAttribute（xAtt1，xAtt1.value）->（（10080）类型不匹配。）回答：Dim XMLREL As IXMLDOMELENT Set XMLREL=oDoc.createElement（“kfx.XMLRELEASE”）oDoc.appendChild（XMLREL）”添加属性XMLREL.setAttribute（“xmlns.kfx”，“http:\\www.myurl.com”），您可能希望将其作为实际答案发布。