C#无需Office添加修改删除Excel VBA宏

一、Excel VBA 宏工程和模块简介

在Excel VBA中，宏代码不是直接放在单元格里的，而是存在VBA工程的不同模块中。不同类型的模块适用于不同的代码场景。

1. 标准模块

标准模块是最常用的VBA模块类型。平时录制宏、写通用工具代码、自定义函数，基本都在标准模块里搞定。

标准模块的常见用途包括：

• 存放普通的 Sub 宏过程
• 编写通用数据处理逻辑
• 编写报表生成或格式化代码
• 编写可在单元格中调用的自定义函数

举个例子：

Sub FormatReport()
    MsgBox "开始格式化报表"
End Sub

如果希望宏能在Excel的“宏”窗口里直接查看和运行，一般就放在标准模块里。

2. 其他 VBA 模块类型

除了标准模块，Excel VBA还有下面这些模块类型，这里简单列一下，实际开发中需要了解它们各自的用途。

如果只是加一个能手动运行的普通宏，优先用标准模块。想让代码在工作表数据变化时自动触发，才需要考虑工作表模块。

二、Excel 宏文件格式说明

保存带VBA宏的Excel文件时，必须使用支持宏的文件格式。常见的有：

• .xlsm：现代Excel宏启用工作簿，推荐使用
• .xls：Excel 97-2003工作簿，旧版格式
• .xlsb：Excel二进制工作簿，适合大文件
• .xltm：Excel宏启用模板

千万注意：不要把带宏的文件保存为 .xlsx。.xlsx 格式不支持VBA宏代码，保存后宏就没了。

本文示例统一用 .xlsm 格式保存文件。

三、安装所需库

要在C#中操作Excel VBA宏，推荐用Spire.XLS for .NET。这个库支持在.NET程序里创建、读取和编辑Excel文件，完全不依赖Microsoft Excel Interop——也就是说运行环境里不需要装Office，部署起来轻松很多。

通过NuGet安装：

Install-Package Spire.XLS

VBA宏工程操作在Spire.XLS for .NET 16.3.6及以上版本才支持。如果用的是旧版本，记得先升级：

Update-Package Spire.XLS

除了NuGet，也可以手动添加DLL引用。下载解压Spire.XLS安装包后，在Visual Studio里右键项目→添加引用，选择对应目标框架的DLL文件就行。

四、使用 C# 在 Excel 中添加 VBA 宏

下面演示如何创建一个Excel工作簿，并添加一个VBA标准模块及宏代码。

本例中标准模块名为 ReportTools，包含一个 FormatSalesReport 宏。这个宏用来格式化当前工作表的销售报表，比如设置标题行样式、格式化销售额列、自动调整列宽并生成销售额合计。

假设工作表中的数据长这样：

示例代码如下：

using Spire.Xls;
using System;

namespace AddVbaMacro
{
    internal class Program
    {
        static void Main(string[] args)
        {
            string outputFile = "添加宏.xlsm";

            Workbook workbook = new Workbook();

            Worksheet worksheet = workbook.Worksheets[0];
            worksheet.Name = "SalesReport";

            worksheet.Range["A1"].Text = "日期";
            worksheet.Range["B1"].Text = "客户";
            worksheet.Range["C1"].Text = "产品";
            worksheet.Range["D1"].Text = "销售额";

            worksheet.Range["A2"].Text = "2026/06/01";
            worksheet.Range["B2"].Text = "客户A";
            worksheet.Range["C2"].Text = "产品A";
            worksheet.Range["D2"].NumberValue = 1200;

            worksheet.Range["A3"].Text = "2026/06/02";
            worksheet.Range["B3"].Text = "客户B";
            worksheet.Range["C3"].Text = "产品B";
            worksheet.Range["D3"].NumberValue = 1850;

            worksheet.Range["A4"].Text = "2026/06/03";
            worksheet.Range["B4"].Text = "客户C";
            worksheet.Range["C4"].Text = "产品C";
            worksheet.Range["D4"].NumberValue = 960;

            IVbaProject vbaProject = workbook.VbaProject;
            vbaProject.Name = "SalesReportVbaProject";
            vbaProject.CodePage = 936;

            IVbaModule module = vbaProject.Modules.Add("ReportTools", VbaModuleType.Module);

            module.SourceCode = @"
Sub FormatSalesReport()
    Dim ws As Worksheet
    Dim lastRow As Long

    Set ws = ActiveSheet

    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    If lastRow < 2 Then
        MsgBox ""当前工作表没有可处理的数据。"", vbExclamation, ""提示""
        Exit Sub
    End If

    With ws.Range(""A1:D1"")
        .Font.Bold = True
        .Interior.Color = RGB(220, 230, 241)
        .HorizontalAlignment = xlCenter
    End With

    ws.Range(""D2:D"" & lastRow).NumberFormat = ""#,##0.00""

    ws.Columns(""A:D"").AutoFit

    ws.Range(""F1"").Value = ""销售额合计""
    ws.Range(""F2"").Formula = ""=SUM(D2:D"" & lastRow & "")""
    ws.Range(""F1:F2"").Font.Bold = True

    MsgBox ""销售报表格式化完成。"", vbInformation, ""完成""
End Sub";

            workbook.Sa veToFile(outputFile, FileFormat.Xlsm);
            workbook.Dispose();

            Console.WriteLine("已创建包含 VBA 宏的 Excel 文件。");
        }
    }
}

运行后，会生成一个叫 添加宏.xlsm 的文件。打开它，进入VBA编辑器就能看到 ReportTools 模块的代码，或者在Excel的“宏”窗口里直接运行 FormatSalesReport。

五、使用 C# 读取 Excel 中的 VBA 宏

读取宏最常见的场景是导出VBA工程信息和标准模块代码，方便代码审查、版本归档或批量检查。

下面的例子会读取工作簿里的VBA工程信息，并导出所有标准模块的名称、类型和源代码。

using Spire.Xls;
using System;
using System.IO;

namespace ReadVbaMacro
{
    internal class Program
    {
        static void Main(string[] args)
        {
            string inputFile = "添加宏.xlsm";
            string outputFile = "VbaModules.txt";

            Workbook workbook = new Workbook();
            workbook.LoadFromFile(inputFile);

            IVbaProject vbaProject = workbook.VbaProject;

            string text = string.Empty;

            text += "VBA 工程信息" + Environment.NewLine;
            text += "工程名称：" + vbaProject.Name + Environment.NewLine;
            text += "工程描述：" + vbaProject.Description + Environment.NewLine;
            text += "是否受保护：" + vbaProject.IsProtected + Environment.NewLine;
            text += "代码页：" + vbaProject.CodePage + Environment.NewLine;

            text += Environment.NewLine + "标准模块代码" + Environment.NewLine;

            foreach (IVbaModule module in vbaProject.Modules)
            {
                if (module.Type == VbaModuleType.Module)
                {
                    text += Environment.NewLine;
                    text += "模块名称：" + module.Name + Environment.NewLine;
                    text += "模块类型：" + module.Type + Environment.NewLine;
                    text += "源代码：" + Environment.NewLine;
                    text += module.SourceCode + Environment.NewLine;
                }
            }

            File.WriteAllText(outputFile, text);

            workbook.Dispose();

            Console.WriteLine("VBA 标准模块代码已导出。");
        }
    }
}

读取结果：

这个示例读的是标准模块，不是工作表模块。对于普通宏代码（比如 Sub FormatSalesReport()、Sub ExportData() 这类过程），遍历标准模块就够了。

如果需要读取工作表事件代码（比如 Worksheet_Change），那就要获取具体工作表对应的对象模块。参考代码：

Worksheet ws = wb.Worksheets[0];
IVbaProject vbaProject = wb.VbaProject;

IVbaModule mod = vbaProject.Modules.GetWorksheetModule(ws);
// 然后读取模块代码等详细信息

六、使用 C# 修改 Excel 中的 VBA 宏代码

修改宏的常见场景是：模板里已经有个标准模块，现在需要更新里面的宏逻辑。

下面的例子会打开现有的 .xlsm 文件，查找名为 ReportTools 的标准模块。如果找到了，就替换它的宏代码；没找到就新建一个同名的标准模块。

更新后的模块包含两个宏：

• FormatSalesReport：格式化销售报表
• CheckMissingSalesAmount：检查销售额列是否存在空值并标记出来

using Spire.Xls;
using System;

namespace ModifyVbaMacro
{
    internal class Program
    {
        static void Main(string[] args)
        {
            string inputFile = "添加宏.xlsm";
            string outputFile = "修改宏.xlsm";
            string moduleName = "ReportTools";

            Workbook workbook = new Workbook();
            workbook.LoadFromFile(inputFile);

            IVbaProject vbaProject = workbook.VbaProject;
            vbaProject.Description = "用于格式化和检查销售报表的宏";

            IVbaModule module = FindStandardModule(vbaProject, moduleName);

            if (module == null)
            {
                module = vbaProject.Modules.Add(moduleName, VbaModuleType.Module);
            }

            module.SourceCode = @"
Sub FormatSalesReport()
    Dim ws As Worksheet
    Dim lastRow As Long

    Set ws = ActiveSheet

    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    If lastRow < 2 Then
        MsgBox ""当前工作表没有可处理的数据。"", vbExclamation, ""提示""
        Exit Sub
    End If

    With ws.Range(""A1:D1"")
        .Font.Bold = True
        .Interior.Color = RGB(217, 225, 242)
        .HorizontalAlignment = xlCenter
    End With

    ws.Range(""D2:D"" & lastRow).NumberFormat = ""#,##0.00""
    ws.Columns(""A:D"").AutoFit

    ws.Range(""F1"").Value = ""销售额合计""
    ws.Range(""F2"").Formula = ""=SUM(D2:D"" & lastRow & "")""
    ws.Range(""F1:F2"").Font.Bold = True

    MsgBox ""销售报表格式化完成。"", vbInformation, ""完成""
End Sub

Sub CheckMissingSalesAmount()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim missingCount As Long

    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

    If lastRow < 2 Then
        MsgBox ""当前工作表没有可检查的数据。"", vbExclamation, ""提示""
        Exit Sub
    End If

    For i = 2 To lastRow
        If Len(Trim(CStr(ws.Cells(i, 4).Value))) = 0 Then
            missingCount = missingCount + 1
            ws.Cells(i, 4).Interior.Color = RGB(255, 230, 153)
        End If
    Next i

    If missingCount > 0 Then
        MsgBox ""发现 "" & missingCount & "" 行缺少销售额，已用颜色标记。"", vbExclamation, ""检查结果""
    Else
        MsgBox ""销售额数据检查完成，未发现缺失值。"", vbInformation, ""检查结果""
    End If
End Sub";

            workbook.Sa veToFile(outputFile, FileFormat.Xlsm);
            workbook.Dispose();

            Console.WriteLine("VBA 标准模块已更新。");
        }

        private static IVbaModule FindStandardModule(IVbaProject vbaProject, string moduleName)
        {
            foreach (IVbaModule module in vbaProject.Modules)
            {
                if (module.Name.Equals(moduleName, StringComparison.OrdinalIgnoreCase)
                    && module.Type == VbaModuleType.Module)
                {
                    return module;
                }
            }
            return null;
        }
    }
}

修改结果：

七、使用 C# 删除 Excel 中的 VBA 宏

删除宏时，建议按模块名称删除，而不是按索引。按索引删虽然简单，但模块顺序可能会变，容易误删其他模块。

下面的例子会检查是否存在名为 ReportTools 的标准模块。如果有就删掉，没有就保留文件并给出提示。

using Spire.Xls;
using System;

namespace DeleteVbaMacro
{
    internal class Program
    {
        static void Main(string[] args)
        {
            string inputFile = "添加宏.xlsm";
            string outputFile = "删除宏.xlsm";
            string moduleName = "ReportTools";

            Workbook workbook = new Workbook();
            workbook.LoadFromFile(inputFile);

            IVbaProject vbaProject = workbook.VbaProject;

            IVbaModule module = FindStandardModule(vbaProject, moduleName);

            if (module != null)
            {
                vbaProject.Modules.Remove(module.Name);
                Console.WriteLine("已删除标准模块：" + module.Name);
            }
            else
            {
                Console.WriteLine("未找到指定标准模块：" + moduleName);
            }

            workbook.Sa veToFile(outputFile, FileFormat.Xlsm);
            workbook.Dispose();

            Console.WriteLine("文件已保存。");
        }

        private static IVbaModule FindStandardModule(IVbaProject vbaProject, string moduleName)
        {
            foreach (IVbaModule module in vbaProject.Modules)
            {
                if (module.Name.Equals(moduleName, StringComparison.OrdinalIgnoreCase)
                    && module.Type == VbaModuleType.Module)
                {
                    return module;
                }
            }
            return null;
        }
    }
}

如果确实需要清空整个VBA工程里的所有模块，也可以用 vbaProject.Modules.Clear()。不过实际业务中要谨慎，这个操作会删掉所有模块代码。对于模板文件或历史报表文件，建议先备份再批量删除。

八、C# 操作 Excel 宏的实用建议

1. 文件保存格式要正确

带宏的文件必须保存为 .xlsm、.xls、.xlsb 或 .xltm。如果存成 .xlsx，宏代码就没了。

推荐用 .xlsm：

workbook.Sa veToFile("output.xlsm", FileFormat.Xlsm);

如果确实需要旧版 .xls，可以这样：

workbook.Sa veToFile("output.xls", FileFormat.Version97to2003);

2. 中文内容建议设置 CodePage

如果VBA代码里有中文注释、中文字符串或提示信息，记得设置代码页：

vbaProject.CodePage = 936;

常见编码参考：

• 936：简体中文
• 950：繁体中文
• 932：日文
• 949：韩文
• 1252：西欧语言

3. 配置宏安全规则

C#写入VBA宏代码后，Excel并不会自动运行宏。用户打开文件时，Excel会根据宏安全设置决定是否阻止宏运行。

在企业环境里，如果宏文件来自不受信任位置，Excel可能会提示“启用内容”。实际使用时应根据安全策略配置受信任位置、数字签名或宏安全规则。

4. 操作宏代码不等于执行宏

本文示例主要展示VBA宏工程的创建、读取、修改和删除。C#代码是在处理宏内容，而不是运行宏逻辑。如果需要执行宏，一般要在Excel里手动运行，或者在支持运行Excel宏的环境中进行。

九、总结

通过C#，完全可以在不依赖Microsoft Excel Interop的情况下，对Excel文件里的VBA宏进行自动化处理。本文介绍了添加、读取、修改和删除VBA宏代码的基本方法，也补充了VBA模块类型、宏启用文件格式以及实际开发中的注意事项。掌握了这些，后续在后台服务、批处理任务或自动化系统里管理Excel宏文件，就会灵活很多。