Install-Package Spire.XLS

dotnet add package Spire.XLS

using Spire.Xls;
using System.IO;

namespace CreateExcelVBA
{
    internal class Program
    {
        static void Main(string[] args)
        {
            // 創(chuàng)建新的 Excel 工作簿
            Workbook workbook = new Workbook();
            
            // 添加 VBA 項目到文檔
            IVbaProject vbaProject = workbook.VbaProject;
            vbaProject.Name = "SampleVBAMacro";
            
            // 記錄編碼設(shè)置信息（中文支持）
            string text = "編碼修改前: " + vbaProject.CodePage.ToString() + "\n";
            vbaProject.CodePage = 936; // 設(shè)置為簡體中文編碼
            text += "編碼修改后: " + vbaProject.CodePage.ToString() + "\n";
            File.WriteAllText("encoding_info.txt", text);
            
            // 添加 VBA 模塊到項目
            IVbaModule vbaModule = vbaProject.Modules.Add("SampleModule", VbaModuleType.Module);
            
            // 設(shè)置 VBA 宏源代碼
            vbaModule.SourceCode = @"
Sub ExampleMacro()
    ' 聲明變量
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 設(shè)置對活動工作表的引用
    Set ws = ActiveSheet 
    
    ' 清除工作表內(nèi)容（可選）
    ws.Cells.Clear
    
    ' 填充示例數(shù)據(jù)
    With ws
        ' 寫入表頭行
        .Range(""A1:C1"").Value = Array(""序號"", ""項目名稱"", ""金額"")
        
        ' 循環(huán)填充10行數(shù)據(jù)
        For i = 1 To 10
            .Cells(i + 1, 1).Value = i  ' 序號列
            .Cells(i + 1, 2).Value = ""項目 "" & i  ' 項目名稱列
            .Cells(i + 1, 3).Value = i * 100  ' 金額列（示例計算）
        Next i
        
        ' 自動調(diào)整列寬
        .Columns(""A:C"").AutoFit
        
        ' 格式化表頭行
        With .Range(""A1:C1"")
            .Font.Bold = True
            .Interior.Color = RGB(200, 220, 255)  ' 淺藍色背景
        End With
        
        ' 格式化金額列
        .Range(""C2:C11"").NumberFormat = ""$#,##0.00""
    End With
    
    ' 顯示完成消息
    MsgBox ""數(shù)據(jù)填充完成！"", vbInformation, ""操作提示""
End Sub";
            
            // 保存 Excel 文件（97-2003 格式）
            workbook.SaveToFile("SampleWithMacro.xls", FileFormat.Version97to2003);
            Console.WriteLine("VBA 宏創(chuàng)建成功！");
        }
    }
}

using Spire.Xls;
using System.IO;

namespace ReadExcelVBA
{
    internal class Program
    {
        static void Main(string[] args)
        {
            // 加載包含 VBA 項目的 Excel 文件
            Workbook wb = new Workbook();
            wb.LoadFromFile("SampleWithMacro.xls");
            
            // 獲取 VBA 項目
            IVbaProject vbaProject = wb.VbaProject;
            
            // 讀取 VBA 項目基本信息
            string text = "是否受保護：" + vbaProject.IsProtected + "\n";
            text += "項目名稱：" + vbaProject.Name + "\n";
            text += "項目描述：" + vbaProject.Description + "\n";
            text += "幫助文件名：" + vbaProject.HelpFileName + "\n";
            text += "條件編譯：" + vbaProject.ConditionalCompilation + "\n";
            text += "鎖定項目視圖：" + vbaProject.LockProjectView + "\n";
            text += "密碼：" + vbaProject.Password + "\n";
            text += "代碼頁：" + vbaProject.CodePage + "\n";
            
            // 獲取工作表模塊
            Worksheet ws = wb.Worksheets[0];
            IVbaModule mod = vbaProject.Modules.GetWorksheetModule(ws);
            
            text += "\nVBA 模塊信息：\n";
            text += "模塊名稱：" + mod.Name + "\n";
            text += "模塊類型：" + mod.Type + "\n";
            text += "源代碼：\n" + mod.SourceCode + "\n";
            
            // 保存到文本文件
            File.WriteAllText("vba_project_info.txt", text);
            Console.WriteLine("VBA 項目信息讀取完成！");
        }
    }
}

using Spire.Xls;

namespace ModifyExcelVBA
{
    internal class Program
    {
        static void Main(string[] args)
        {
            // 加載 Excel 文件
            Workbook wb = new Workbook();
            wb.LoadFromFile("SampleWithMacro.xls");
            
            // 獲取 VBA 項目
            IVbaProject vbaProject = wb.VbaProject;
            
            // 修改 VBA 項目屬性
            vbaProject.Password = "1234";                    // 設(shè)置項目密碼
            vbaProject.Name = "ModifiedProject";             // 修改項目名稱
            vbaProject.Description = "這是一個修改后的項目";  // 添加描述
            vbaProject.HelpFileName = "help.png";            // 設(shè)置幫助文件
            vbaProject.ConditionalCompilation = "DEBUG = 2"; // 設(shè)置條件編譯
            vbaProject.LockProjectView = true;               // 鎖定項目視圖
            
            // 修改工作表模塊
            Worksheet ws = wb.Worksheets[0];
            IVbaModule mod = vbaProject.Modules.GetWorksheetModule(ws);
            mod.Name = "ModifiedModule";                     // 修改模塊名稱
            mod.SourceCode = "Dim lRow As Long";             // 修改源代碼
            mod.Type = VbaModuleType.Module;                 // 修改模塊類型
            
            // 保存修改
            wb.SaveToFile("ModifiedMacro.xls");
            Console.WriteLine("VBA 項目修改成功！");
        }
    }
}

using Spire.Xls;

namespace RemoveExcelVBA
{
    internal class Program
    {
        static void Main(string[] args)
        {
            // 加載 Excel 文件
            Workbook wb = new Workbook();
            wb.LoadFromFile("SampleWithMacro.xls");
            
            // 獲取 VBA 項目
            IVbaProject vbaProject = wb.VbaProject;
            
            // 刪除特定模塊（通過名稱）
            vbaProject.Modules.Remove("SampleModule");
            
            // 刪除第一個模塊（通過索引）
            vbaProject.Modules.RemoveAt(0);
            
            // 或者清空所有模塊
            // vbaProject.Modules.Clear();
            
            // 保存修改
            wb.SaveToFile("MacroRemoved.xls");
            Console.WriteLine("VBA 模塊刪除成功！");
        }
    }
}

try
{
    Workbook wb = new Workbook();
    wb.LoadFromFile("file.xls");
    
    if (wb.VbaProject != null)
    {
        // 安全地操作 VBA 項目
        IVbaProject vbaProject = wb.VbaProject;
        // ... 操作代碼
    }
    else
    {
        Console.WriteLine("該文件不包含 VBA 項目");
    }
}
catch (Exception ex)
{
    Console.WriteLine("操作失敗: " + ex.Message);
}

vbaProject.CodePage = 936;  // 簡體中文

// vbaProject.CodePage = 950;  // 繁體中文