如何通过 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