EPPlus编辑XLSM文件在Excel中报错的问题解决咨询

阿华AIGC实验室

2026-5-15

EPPlus修改XLSM的VBA代码后，Excel 2013打开报错“已删除记录：命名区域”的解决办法

我用EPPlus库批量修改现有XLSM文件，只替换其中一行VBA代码。手动在Excel代码编辑器里改这行完全没问题，但用Excel 2013（版本15.0.4989.1000）打开部分修改后的文件时，会弹出报错：

我们发现'test.xlsm'中的某些内容存在问题。是否要尽可能恢复内容？若信任此工作簿来源，请点击是。

点击“是”之后，修复报告显示：

已删除记录：来自/xl/workbook.xml-Part（工作簿）的命名区域

下面是我用来编辑XLSM的C#代码，想请教下：我能不能通过更新代码解决这个问题，还是得先更新XLSM文件再编辑？

static void PatchVba(string filePath, string oldCode, string newCode) {
    var wbFileInfo = new FileInfo(filePath);
    using (var package = new ExcelPackage(wbFileInfo, false)) {
        foreach (var m in package.Workbook.VbaProject.Modules) {
            if (m.Code.Contains(oldCode)) {
                m.Code = m.Code.Replace(oldCode, newCode);
                Console.WriteLine("VBA Patched in \"{0}\"", filePath);
            }
        }
        try {
            package.SaveAs(wbFileInfo);
        } catch {
            Console.WriteLine("Could not save patched file \"{0}\".", filePath);
        }
    }
}

问题分析

这个报错大概率是因为EPPlus在处理VBA项目时，没有正确维护工作簿里的命名区域和VBA项目之间的关联，尤其是Excel 2013对文件格式的校验比较严格。当你直接修改VBA模块代码后，EPPlus可能没有同步更新工作簿的相关元数据，导致Excel打开时认为文件损坏。

解决方案：通过修改代码修复

你不需要提前更新XLSM文件，调整现有代码就能解决这个问题，试试以下几个优化点：

保存前清理无效命名区域并保留VBA签名
EPPlus有时会导致工作簿的DefinedNames集合出现异常，你可以在保存前过滤掉空的或无效的命名区域，同时保留原有VBA签名（如果存在），避免元数据丢失：

static void PatchVba(string filePath, string oldCode, string newCode) {
    var wbFileInfo = new FileInfo(filePath);
    using (var package = new ExcelPackage(wbFileInfo, false)) {
        foreach (var m in package.Workbook.VbaProject.Modules) {
            if (m.Code.Contains(oldCode)) {
                m.Code = m.Code.Replace(oldCode, newCode);
                Console.WriteLine("VBA Patched in \"{0}\"", filePath);
            }
        }

        // 清理无效的命名区域
        for (int i = package.Workbook.DefinedNames.Count - 1; i >= 0; i--) {
            var name = package.Workbook.DefinedNames[i];
            if (string.IsNullOrEmpty(name.Name) || string.IsNullOrEmpty(name.Address)) {
                package.Workbook.DefinedNames.RemoveAt(i);
            }
        }

        // 保留原有VBA签名（如果存在）
        var originalSignature = package.Workbook.VbaProject.Signature;

        try {
            package.SaveAs(wbFileInfo);
            // 恢复签名（部分版本EPPlus会重置签名）
            if (originalSignature != null) {
                using (var savedPackage = new ExcelPackage(wbFileInfo)) {
                    savedPackage.Workbook.VbaProject.Signature = originalSignature;
                    savedPackage.Save();
                }
            }
        } catch {
            Console.WriteLine("Could not save patched file \"{0}\".", filePath);
        }
    }
}

启用KeepVba选项加载文件
初始化ExcelPackage时，明确启用KeepVba选项，强制EPPlus保留所有VBA相关的元数据，避免意外丢失关联信息：

// 替换原有的using初始化代码
using (var package = new ExcelPackage()) {
    package.Load(wbFileInfo, new ExcelPackageLoadOptions { KeepVba = true });
    // 后续的VBA修改逻辑不变...
}

精细修改目标代码行
直接替换整个Code属性可能会重置模块元数据，试试只定位到目标行再替换，减少对模块的干扰：

if (m.Code.Contains(oldCode)) {
    var lines = m.Code.Split(new[] { Environment.NewLine }, StringSplitOptions.None);
    for (int i = 0; i < lines.Length; i++) {
        // 匹配目标行（忽略前后空格）
        if (lines[i].Trim().Equals(oldCode.Trim(), StringComparison.OrdinalIgnoreCase)) {
            lines[i] = lines[i].Replace(oldCode, newCode);
            break; // 只替换找到的第一行，符合你的需求
        }
    }
    m.Code = string.Join(Environment.NewLine, lines);
    Console.WriteLine("VBA Patched in \"{0}\"", filePath);
}