通過?C#/VB.NET?代碼將?Excel?工作表拆分為單獨的文件

更新時間：2022年09月29日 16:07:11 作者：毛毛雨大人???????

這篇文章主要介紹了通過C#/VB.NET代碼將Excel工作表拆分為單獨的文件，文章圍繞主題展開詳細的內容介紹，具有一定的參考價值，需要的小伙伴可以參考一下

前言

隨著數(shù)據(jù)的不斷擴大，有的數(shù)據(jù)表的規(guī)模會以幾何級增長，當數(shù)據(jù)達到一定規(guī)模時，數(shù)據(jù)的查詢，讀取性能就會變得緩慢，這時就需要拆分數(shù)據(jù)表，接下來在文章中將為大家詳細介紹您將學習如何通過C#/VB.NET代碼將 Excel 工作表拆分為單獨的Excel文件。下面是我整理的思路及具體步驟，希望對大家有所幫助。

使用工具

程序環(huán)境

本次測試時，在程序中引入 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

具體步驟

創(chuàng)建一個Workbook對象。
使用 Workbook.LoadFromFile()方法加載示例 Excel 文件。
聲明一個新的 Workbook 變量，用于創(chuàng)建新的 Excel 工作簿。
循環(huán)遍歷文檔中的工作表。
初始化 Workbook 對象，并將源文檔的特定工作表的副本添加到其中。
使用 Workbook.SaveToFile()方法將工作簿保存到 Excel 文件。

完整代碼

C#

using Spire.Xls;
using System;

namespace SplitWorksheets
{
class Program
{
static void Main(string[] args)
{
//創(chuàng)建Workbook對象
Workbook wb = new Workbook();

//加載示例 Excel 文件
wb.LoadFromFile("企業(yè)營業(yè)數(shù)據(jù)表.xlsx");

//聲明一個新的 Workbook 變量
Workbook newWb;

//聲明一個字符串變量
String sheetName;

//指定用于存儲生成的 Excel 文件的文件夾路徑
String folderPath = "C:\\Users\\Tina\\Desktop\\輸出結果\\";

//循環(huán)遍歷源文件中的工作表
for (int i = 0; i < wb.Worksheets.Count; i++)
{
//初始化Workbook對象
newWb = new Workbook();

//刪除默認工作表
newWb.Worksheets.Clear();

//將源文檔的特定工作表添加到新工作簿
newWb.Worksheets.AddCopy(wb.Worksheets[i]);

//獲取worksheet名稱
sheetName = wb.Worksheets[i].Name;

//將新工作簿保存到指定文件夾
newWb.SaveToFile(folderPath + sheetName + ".xlsx", ExcelVersion.Version2013);
}
}
}
}

VB.NET

Imports Spire.Xls

Namespace SplitWorksheets
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            '創(chuàng)建Workbook對象
            Dim wb As Workbook = New Workbook()

            '加載示例 Excel 文件
            wb.LoadFromFile("企業(yè)營業(yè)數(shù)據(jù)表.xlsx")

            '聲明一個新的 Workbook 變量
            Dim newWb As Workbook

            '聲明一個字符串變量
            Dim sheetName As String

            '指定用于存儲生成的 Excel 文件的文件夾路徑
            Dim folderPath = "C:\Users\Tina\Desktop\輸出結果\"

            '循環(huán)遍歷源文件中的工作表
            For i As Integer = 0 To wb.Worksheets.Count - 1

                '初始化Workbook對象
                newWb = New Workbook()

                '刪除默認工作表
                newWb.Worksheets.Clear()

                '將源文檔的特定工作表添加到新工作簿
                newWb.Worksheets.AddCopy(wb.Worksheets(i))

                '獲取worksheet名稱
                sheetName = wb.Worksheets(i).Name

                '將新工作簿保存到指定文件夾
                newWb.SaveToFile(folderPath & sheetName & ".xlsx", ExcelVersion.Version2013)
            Next
        End Sub
    End Class
End Namespace