XML如何引用指定本地路径schema文件无需复制到各子文件夹

解决方案 #

你可以根据是否需要做Schema校验选择以下两种方案，优先推荐无需修改现有XML的方案：

方案1：修改VBA代码（无需改动现有XML文件） #

场景1：仅需要读取XML节点内容，不需要校验Schema合法性

你代码中已经写了关闭校验的相关配置，只需要把注释打开、并且调整到Load方法之前执行即可，解析器就不会尝试读取外部Schema文件，不会报路径错误：

Set oXMLFile = CreateObject("Microsoft.XMLDOM")
' 以下两行要放在Load方法之前才生效
oXMLFile.validateOnParse = False
oXMLFile.resolveExternals = False

' 后面再执行Load操作
oXMLFile.Load FilePath

场景2：需要保留Schema校验能力

可以手动把指定路径的Schema加载到Schema缓存中，绑定到XML解析器，不需要依赖XML内写的相对路径：

Set oXMLFile = CreateObject("Microsoft.XMLDOM")
oXMLFile.validateOnParse = True
oXMLFile.resolveExternals = True

' 加载本地Schema到缓存
Dim schemaCache As Object
Set schemaCache = CreateObject("MSXML2.XMLSchemaCache.6.0")
' 第一个参数和你XML里的命名空间保持一致，第二个参数是Schema文件的绝对路径
schemaCache.Add "x-schema:sequence_schema.xml", main_folder & "sequence_schema.xml"
Set oXMLFile.schemas = schemaCache

' 后面再执行Load操作
oXMLFile.Load FilePath

方案2：修改XML文件内的Schema引用 #

如果可以调整XML的头定义，直接把相对路径改成绝对路径的file URI即可，Windows路径的反斜杠替换为正斜杠，前缀加file:///：

<?xml version="1.0"?>
<SEQUENCE Format="2.0" Name="hardware\bbx" xmlns="x-schema:file:///C:/Users/zander/Desktop/20211112094529/Recipe/RECIPEs/Data/Sequences/sequence_schema.xml">
<!-- 其余内容保持不变 -->

内容的提问来源于stack exchange，提问作者Wesley