MSXML VBA：针对 XSD 验证 XML："The namespace provided differs from the schema's targetNamespace."

Question

我正试图使用MSXML 6.0 DOM根据XSD文件验证.XML文件，但在执行代码时，我收到了以下错误消息：

Test.xsd#/schema/targetNamespace[1]
"The '' namespace provided differs from the schema's 'http://somewhere.com/root' targetNamespace."

XML和XSD文件的高度简化版本也会产生相同的错误：

XML文件

<?xml version="1.0" encoding="UTF-8" standalone="yes"?> 
<ns2:noderoot xmlns:ns2="http://somewhere.com/root">
    <general>
        <year>2011</year>
        <month>02</month>
    </general> 
</ns2:noderoot>

XSD文件

<?xml version="1.0" encoding="UTF-8"?>
<xs:schema xmlns="http://somewhere.com/root" 
            targetNamespace="http://somewhere.com/root" 
            xmlns:xs="http://www.w3.org/2001/XMLSchema" 
            xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
            elementFormDefault="unqualified" 
            attributeFormDefault="unqualified">
    <xs:complexType name="TYPE_nodeGeneral">
        <xs:sequence>
            <xs:element name="year">
                <xs:simpleType>
                    <xs:restriction base="xs:string">
                        <xs:length value="4"/>
                        <xs:pattern value="d{4}"/>
                    </xs:restriction>
                </xs:simpleType>
            </xs:element>
            <xs:element name="month">
                <xs:simpleType>
                    <xs:restriction base="xs:string">
                        <xs:length value="2"/>
                    </xs:restriction>
                </xs:simpleType>
            </xs:element>
        </xs:sequence>
    </xs:complexType>           
    <xs:complexType name="TYPE_noderoot">
        <xs:sequence>
            <xs:element name="general" type="TYPE_nodeGeneral"></xs:element>            
        </xs:sequence>
    </xs:complexType>
    <xs:element name="noderoot" type="TYPE_noderoot"></xs:element>
</xs:schema>

为了验证XML文件，我正在使用VBA（Excel 2010）中编写的代码：

Sub XSD_Validation()
   XML_FILE = "I:Test.xml"    
   XSD_FILE = "I:Test.xsd"
    Dim xmlDoc As MSXML2.DOMDocument60
    Set xmlDoc = New MSXML2.DOMDocument60
    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    xmlDoc.resolveExternals = False
    xmlDoc.Load XML_FILE
    ' Open XSD file
    Dim obXSD As MSXML2.DOMDocument60
    Set objXSD = New MSXML2.DOMDocument60
    objXSD.async = False
    objXSD.Load XSD_FILE
    ' Populate schema cache
    Dim objSchemaCache As XMLSchemaCache60
    Set objSchemaCache = New MSXML2.XMLSchemaCache60
    objSchemaCache.Add "", objXSD
    ' XSD XML Bind
    Set xmlDoc.Schemas = objSchemaCache
    'Error visualization
    Dim objErr As MSXML2.IXMLDOMParseError
    Set objErr = xmlDoc.Validate()
    If objErr.errorCode <> 0 Then
        Debug.Print "Error parser: " & objErr.errorCode & "; " & objErr.reason
    Else
        Debug.Print "No errors found"
    End If
    Set objErr = Nothing
    Set objXSD = Nothing
    Set objSchemaCache = Nothing
    Set xmlDoc = Nothing
End Sub

XSD文件可以修改，但XML文件必须保持不可访问状态。

我已经尝试解决这个问题8个多小时了，但没有任何积极的结果。

任何帮助都将不胜感激。

Answer 1

尝试将命名空间URI添加到架构缓存中。

Sub XSD_Validation()
    Dim xmlDoc As MSXML2.DOMDocument60
    Dim objSchemaCache As New XMLSchemaCache60
    Dim objErr As MSXML2.IXMLDOMParseError
    objSchemaCache.Add "http://somewhere.com/root", LoadXmlFile("I:Test.xsd")
    Set xmlDoc = LoadXmlFile("I:Test.xml")
    Set xmlDoc.Schemas = objSchemaCache
    Set objErr = xmlDoc.Validate()
    If objErr.errorCode = 0 Then
        Debug.Print "No errors found"
    Else
        Debug.Print "Error parser: " & objErr.errorCode & "; " & objErr.reason
    End If
End Sub
Function LoadXmlFile(Path As String) As MSXML2.DOMDocument60
    Set LoadXmlFile = New MSXML2.DOMDocument60
    With LoadXmlFile
        .async = False
        .validateOnParse = False
        .resolveExternals = False
        .load Path
    End With
End Function

Answer 2

您不应该更改xml/xxsd中的任何内容，因为它们合在一起是有效的。问题出在您的代码中，所以我建议您看看这个示例，它显示了我认为与您的代码不同的地方：当您将XSD添加到缓存中时，使用目标命名空间http://somewhere.com/root而不是空字符串。