VBA导入自定义XML Schema异常：仍用内嵌映射，长数字被截断

问题根源 #

Excel导入XML时，若检测到XML结构与已存在的内嵌Schema（或同命名空间的Schema）匹配，会自动复用原有映射，即便你指定了新映射也会被替换。此外仅修改Schema名称不足以让Excel识别为全新Schema，必须修改命名空间。

解决方案步骤 #

1. 彻底修改XSD的命名空间

打开你导出的sc1.xsd，找到根节点<xs:schema>，添加/修改targetNamespace为一个全新的唯一值，同时确保目标超长数字字段的类型改为xs:string：

<!-- 修改前示例 -->
<xs:schema xmlns:xs="http://www.w3.org/2001/XMLSchema">
  <xs:element name="LongSerialNumber" type="xs:decimal"/>
</xs:schema>

<!-- 修改后示例 -->
<xs:schema targetNamespace="http://your-unique-namespace.com/DESSCCUPD" xmlns:xs="http://www.w3.org/2001/XMLSchema">
  <xs:element name="LongSerialNumber" type="xs:string"/>
</xs:schema>

2. 修正VBA导入代码

原代码通过循环查找映射名称的方式不可靠，且未处理Schema冲突问题，以下是优化后的代码：

Sub xmlImportScheme()
    Dim src() As Variant
    Dim schmPath As String
    Dim newMap As XmlMap
    Dim targetWB As Workbook
    
    ' 选择待导入的XML文件
    src = Application.GetOpenFilename(FileFilter:="XML Files (*.xml), *.xml", Title:="选择XML文件", MultiSelect:=True)
    If IsEmpty(src) Then Exit Sub
    
    ' 选择修改后的XSD文件
    schmPath = Application.GetOpenFilename(FileFilter:="XSD Files (*.xsd), *.xsd", Title:="选择修改后的Schema文件", MultiSelect:=False)
    If schmPath = "False" Then Exit Sub
    
    ' 遍历处理每个XML文件
    For Each xmlFile In src
        Set targetWB = Workbooks.Add
        
        ' 直接添加新Schema并获取映射对象，无需循环查找
        On Error Resume Next
        Set newMap = targetWB.XmlMaps.Add(schmPath, "DESSCCUPD")
        On Error GoTo 0
        
        If Not newMap Is Nothing Then
            ' 强制使用新映射导入XML
            targetWB.XmlImport Url:=xmlFile, ImportMap:=newMap, Overwrite:=True, Destination:=targetWB.Range("$A$1")
        Else
            MsgBox "Schema文件加载失败：" & schmPath, vbExclamation
            targetWB.Close SaveChanges:=False
        End If
    Next xmlFile
End Sub

关键优化点 #

• 直接捕获映射对象：XmlMaps.Add会返回新创建的映射对象，无需通过名称查找，避免因Excel自动添加命名后缀导致的匹配失败。
• 唯一命名空间：确保修改后的XSD拥有独立命名空间，让Excel将其识别为全新Schema，不再与内嵌映射冲突。
• 错误处理：添加Schema时的异常捕获，避免因文件路径错误、XSD语法错误导致程序崩溃。

验证方法 #

导入完成后，检查超长数字字段：

1. 确认数字完整无舍入；
2. 查看开发工具→XML映射，确认使用的是新创建的DESSCCUPD_Map（或自定义名称）。

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