前言

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

使用工具

程序環(huán)境

本次測(cè)試時(shí)，在程序中引入?Free Spire.XLS for .NET?？赏ㄟ^(guò)以下方法引用Spire.XLS.dll文件：

方法1：將 Free Spire.XLS for .NET 下載到本地，解壓，安裝。安裝完成后，找到安裝路徑下BIN文件夾中的Spire.XLS.dll。然后在Visual Studio中打開(kāi)“解決方案資源管理器”，鼠標(biāo)右鍵點(diǎn)擊“引用”，“添加引用”，將本地路徑BIN文件夾下的dll文件添加引用至程序。

方法2：通過(guò)?NuGet安裝?？赏ㄟ^(guò)以下2種方法安裝：

• （1）可以在Visual Studio中打開(kāi)“解決方案資源管理器”，鼠標(biāo)右鍵點(diǎn)擊“引用”，“管理NuGet包”，然后搜索“Free Spire.XLS”，點(diǎn)擊“安裝”。等待程序安裝完成。
• （2）將以下內(nèi)容復(fù)制到PM控制臺(tái)安裝。

Install-Package FreeSpire.XLS -Version 12.7

具體步驟

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

完整代碼

C#

using Spire.Xls;
using System;

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

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

//聲明一個(gè)新的 Workbook 變量
Workbook newWb;

//聲明一個(gè)字符串變量
String sheetName;

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

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

//刪除默認(rèn)工作表
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對(duì)象
            Dim wb As Workbook = New Workbook()

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

            '聲明一個(gè)新的 Workbook 變量
            Dim newWb As Workbook

            '聲明一個(gè)字符串變量
            Dim sheetName As String

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

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

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

                '刪除默認(rèn)工作表
                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

效果圖

注意：測(cè)試代碼中的文件路徑為程序Debug路徑，僅供參考，文件路徑可自定義為其他路徑。