xml - 使用 vba 编写复杂的命名空间 xml

Question

那么...另一个 xml 命名空间问题。我想用vba写这个命名空间

<?xml version="1.0" encoding="utf-8"?>
<Datas xsi:schemaLocation="uri:rhubarb:pie RHUBARB%20PIE%202012.xsd" xmlns="uri:rhubarb:pie" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<\Datas>

这是我到目前为止的代码

Option Explicit

Public Sub Create_Database()

'Declare document objects
Dim xDoc As MSXML2.DOMDocument60
Dim xNode As IXMLDOMNode
Dim xRoot As IXMLDOMElement

'create new DOMDocument
Set xDoc = New DOMDocument60

'Create processing instructions
Set xNode = xDoc.createProcessingInstruction("xml", "version='1.0' encoding= 'UTF-8'")
Set xNode = xDoc.InsertBefore(xNode, xDoc.ChildNodes.Item(0))

'create root element
Set xRoot = xDoc.createElement("Datas")
xDoc.appendChild xRoot
xDoc.DocumentElement.setAttribute "xsi:schemaLocation", "uri:rhubarb:pie RHUBARB%20PIE%202012.xsd"
xDoc.DocumentElement.setAttribute "xmlns", "uri:rhubarb:pie"
xDoc.DocumentElement.setAttribute "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance"

'save xml file
xDoc.Save "C:\Users\danny\Desktop\xml\Database.xml"
'clear xDoc from memory
Set xDoc = Nothing
End Sub

...但我知道在编写 namespace 时我有太多参数。我在网上唯一能找到的就是像这样编写我的命名空间:

xDoc.DocumentElement.setAttribute "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance"

我不断收到有关参数太多的错误。我的问题:如何编写更复杂的 namespace ？或者说这是一种正确的编写方法吗？

Answer 1

不用担心，我已经弄清楚了。如果其他人也在寻找同样的东西，我会编辑它!

我改变了这个:

xDoc.DocumentElement.setAttribute "xsi:schemaLocation", "uri:rhubarb:pie RHUBARB%20PIE%202012.xsd", "xmlns", "uri:rhubarb:pie", "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance"

对此:

xDoc.DocumentElement.setAttribute "xsi:schemaLocation", "uri:rhubarb:pie RHUBARB%20PIE%202012.xsd"
xDoc.DocumentElement.setAttribute "xmlns", "uri:rhubarb:pie"
xDoc.DocumentElement.setAttribute "xmlns:xsi", "http://www.w3.org/2001/XMLSchema-instance"