前言

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

使用工具

程序環(huán)境

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

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

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

• （1）可以在Visual Studio中打開“解決方案資源管理器”，鼠標(biāo)右鍵點(diǎn)擊“引用”，“管理NuGet包”，然后搜索“Free Spire.XLS”，點(diǎn)擊“安裝”。等待程序安裝完成。
• （2）將以下內(nèi)容復(fù)制到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\\輸出結(jié)果\\";

//循環(huán)遍歷源文件中的工作表
for (int i = 0; i < wb.Worksheets.Count; i++)
{
//初始化Workbook對象
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對象
            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\輸出結(jié)果\"

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

                '初始化Workbook對象
                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

效果圖

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

到此這篇關(guān)于通過 C#/VB.NET 代碼將 Excel 工作表拆分為單獨(dú)的文件的文章就介紹到這了,更多相關(guān)C#/VB.NET Excel 工作表拆分內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

最新評論