修改XLSX底层XML后保存文件损坏，求.NET环境下修复方案

核心问题分析 #

直接修改XLSX的XML节点后保存导致文件损坏，通常是忽略了OOXML的结构约束：

• 单元格节点未使用正确的命名空间前缀
• 工作表XML中sheetData下的row和c（单元格）节点未按单元格引用顺序排列（如A1、B1、A2而非乱序）
• ZipArchive保存时未正确处理流操作，导致文件部分写入或格式破坏
• 未同步更新XLSX内部的索引关联（如工作表与workbook.xml的映射）

Dyalog APL修复方案 #

关键修正点 #

1. 保留XML命名空间：必须沿用原XML的标准命名空间（http://schemas.openxmlformats.org/spreadsheetml/2006/main），节点前缀与原文件一致
2. 按顺序插入单元格：找到目标行后，按单元格引用的字典序插入新节点，而非随意追加
3. 使用临时流中转：避免直接修改原文件流，先将Zip内容复制到临时流，修改后再写回原文件

修正后的示例代码 #

∇ ModifyXL workbookPath sheetName cellRef value
    ⎕USING ← 'System.IO' 'System.IO.Compression' 'System.Xml.Linq'
    tempStream ← ⎕NEW MemoryStream()
    // 复制原文件到临时流，避免直接操作原文件
    using fs ← ⎕NEW FileStream(workbookPath, FileMode.Open, FileAccess.Read)
        fs.CopyTo(tempStream)
    tempStream.Position ← 0
    // 以更新模式操作临时流中的Zip包
    using za ← ⎕NEW ZipArchive(tempStream, ZipArchiveMode.Update)
        // 注意：实际项目需通过xl/workbook.xml映射sheetName到对应文件路径，此处简化为sheetN.xml
        sheetEntry ← za.GetEntry('xl/worksheets/',sheetName,'.xml')
        using sheetStream ← sheetEntry.Open()
            doc ← XDocument.Load(sheetStream)
            ns ← doc.Root.Name.Namespace // 获取根节点命名空间
            sheetData ← doc.Root.Element(ns+'sheetData')
            // 解析单元格对应的行号
            rowNum ← ⍎(cellRef~'ABCDEFGHIJKLMNOPQRSTUVWXYZ')
            row ← sheetData.Elements(ns+'row').Where({⍎(.Attribute('r').Value)=rowNum}).First()
            // 创建符合规范的单元格节点
            cell ← ⎕NEW XElement(ns+'c')
            cell.SetAttributeValue('r', cellRef)
            cell.SetAttributeValue('t', 'str') // 根据value类型调整：数字可省略该属性，日期用'd'
            cell.Add(⎕NEW XElement(ns+'v', value))
            // 按单元格引用顺序插入节点
            existingCells ← row.Elements(ns+'c')
            insertPos ← existingCells.Where({.Attribute('r').Value < cellRef}).Count()
            :If insertPos=existingCells.Count()
                row.Add(cell)
            :Else
                existingCells.Item(insertPos).AddBeforeSelf(cell)
            :EndIf
            // 覆盖写入修改后的XML
            sheetStream.Position ← 0
            sheetStream.SetLength(0)
            doc.Save(sheetStream)
    // 将临时流内容写回原文件
    using fs ← ⎕NEW FileStream(workbookPath, FileMode.Create, FileAccess.Write)
        tempStream.Position ← 0
        tempStream.CopyTo(fs)
∇

C#替代方案（标准.NET实现） #

若APL调试效率低，可改用C#实现，更易排查细节问题：

using System.IO;
using System.IO.Compression;
using System.Xml.Linq;

public static void ModifyXlsxCell(string workbookPath, string sheetName, string cellRef, string value)
{
    var tempStream = new MemoryStream();
    // 复制原文件到临时流
    using (var fs = new FileStream(workbookPath, FileMode.Open, FileAccess.Read))
    {
        fs.CopyTo(tempStream);
    }
    tempStream.Position = 0;

    using (var za = new ZipArchive(tempStream, ZipArchiveMode.Update))
    {
        // 实际项目需通过xl/workbook.xml的<sheet>节点r:id属性，映射到xl/_rels/workbook.xml.rels找到工作表路径
        var sheetEntry = za.GetEntry($"xl/worksheets/{sheetName}.xml");
        using (var sheetStream = sheetEntry.Open())
        {
            var doc = XDocument.Load(sheetStream);
            var ns = doc.Root.Name.Namespace;
            var sheetData = doc.Root.Element(ns + "sheetData");
            
            // 解析行号
            int rowNum = int.Parse(new string(cellRef.Where(char.IsDigit).ToArray()));
            var row = sheetData.Elements(ns + "row").First(r => int.Parse(r.Attribute("r").Value) == rowNum);
            
            // 创建单元格节点
            var cell = new XElement(ns + "c",
                new XAttribute("r", cellRef),
                new XAttribute("t", "str"),
                new XElement(ns + "v", value));
            
            // 按引用顺序插入
            var existingCells = row.Elements(ns + "c").ToList();
            int insertIndex = existingCells.FindIndex(c => c.Attribute("r").Value.CompareTo(cellRef) > 0);
            if (insertIndex == -1)
                row.Add(cell);
            else
                existingCells[insertIndex].AddBeforeSelf(cell);
            
            // 覆盖写入工作表流
            sheetStream.Position = 0;
            sheetStream.SetLength(0);
            doc.Save(sheetStream);
        }
    }

    // 写回原文件
    using (var fs = new FileStream(workbookPath, FileMode.Create, FileAccess.Write))
    {
        tempStream.Position = 0;
        tempStream.CopyTo(fs);
    }
}

额外检查项 #

• 确认工作表XML路径正确：需通过xl/workbook.xml中的<sheet>节点r:id，关联xl/_rels/workbook.xml.rels找到实际文件路径
• 匹配单元格数据类型：文本用t="str"，数字无需t属性，日期用t="d"并按OOXML日期格式写入值
• 避免文件锁定：操作前确保原XLSX文件未被其他进程打开

内容的提问来源于stack exchange，提问作者T.P.