如何通过 C#/VB.NET 重命名 Excel 表格并设置选项卡颜色

在 Excel 文件中创建多个工作表可以使数据更加井然有序。例如，可以为不同的区域、不同的月份/年份或不同的项目等创建不同的工作表。但要区分多个工作表，则需要更改它们的名称。同时，设置不同的选项卡颜色也是突出显示一些重要工作表的好方法。在本文中，将详细展示如何通过 C#/VB.NET 以编程的方式重命名 Excel 工作表并设置选项卡颜色。

使用工具: FreeSpire.XLS for .NET（免费版）

程序环境：

本次测试时，在程序中引入 Free Spire.XLS for .NET。可通过以下方法引用 Spire.XLS.dll 文件：

方法 1：将 Free Spire.XLS for .NET 下载到本地，解压，安装。安装完成后，找到安装路径下 BIN 文件夹中的 Spire.XLS.dll。然后在 Visual Studio 中打开“解决方案资源管理器”，鼠标右键点击“引用”，“添加引用”，将本地路径 BIN 文件夹下的 dll 文件添加引用至程序。

方法 2：通过NuGet安装。可通过以下 2 种方法安装：

（1）可以在 Visual Studio 中打开“解决方案资源管理器”，鼠标右键点击“引用”，“管理 NuGet 包”，然后搜索“Free Spire.XLS”，点击“安装”。等待程序安装完成。

（2）将以下内容复制到 PM 控制台安装。

Install-Package FreeSpire.XLS -Version 12.7

重命名 Excel 工作表并设置选项卡颜色

• 创建一个 Workbook 对象。

• 使用 Workbook.LoadFromFile() 方法加载示例 Excel 文件。

• 使用 Workbook.Worksheets[int] 属性获取指定的工作表。

• 使用 Worksheet.Name 属性重命名指定的工作表。

• 使用 Worksheet.TabColor 属性设置指定工作表的选项卡颜色。

• 使用 Workbook.SaveToFile() 方法将文档保存到另一个文件。

【C#】

using Spire.Xls;
using System.Drawing;

namespace RenameWorksheet
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create a Workbook object
            Workbook workbook = new Workbook();

            //Load a sample Excel file
            workbook.LoadFromFile("营业数据表.xlsx");

            //Get the specified worksheet
            Worksheet worksheet = workbook.Worksheets[0];
            Worksheet worksheet1 = workbook.Worksheets[1];
            Worksheet worksheet2 = workbook.Worksheets[2];

            //Rename Excel worksheet
            worksheet.Name = "数据";
            worksheet1.Name = "图表";
            worksheet2.Name = "总结";

            //Set tab color
            worksheet.TabColor = Color.Pink;
            worksheet1.TabColor = Color.Gold;
            worksheet2.TabColor = Color.LightSkyBlue;

            //Save to file
            workbook.SaveToFile("重命名并设置选项卡颜色.xlsx", ExcelVersion.Version2010);
        }
    }
}

【VB.NET】

Imports Spire.Xls
Imports System.Drawing

Namespace RenameWorksheet
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            'Create a Workbook object
            Dim workbook As Workbook = New Workbook()

            'Load a sample Excel file
            workbook.LoadFromFile("营业数据表.xlsx")

            'Get the specified worksheet
            Dim worksheet As Worksheet = workbook.Worksheets(0)
            Dim worksheet1 As Worksheet = workbook.Worksheets(1)
            Dim worksheet2 As Worksheet = workbook.Worksheets(2)

            'Rename Excel worksheet
            worksheet.Name = "数据"
            worksheet1.Name = "图表"
            worksheet2.Name = "总结"

            'Set tab color
            worksheet.TabColor = Color.Pink
            worksheet1.TabColor = Color.Gold
            worksheet2.TabColor = Color.LightSkyBlue

            'Save to file
            workbook.SaveToFile("重命名并设置选项卡颜色.xlsx", ExcelVersion.Version2010)
        End Sub
    End Class
End Namespace

效果图

——本文完——