日本免费高清视频-国产福利视频导航-黄色在线播放国产-天天操天天操天天操天天操|www.shdianci.com

學無先后，達者為師

網站首頁 編程語言 正文

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

作者：毛毛雨大人??????? ? 更新時間： 2022-11-19 編程語言

前言

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

使用工具

程序環境

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

具體步驟

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

完整代碼

C#

using Spire.Xls;
using System;

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

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

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

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

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

//循環遍歷源文件中的工作表
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())
            '創建Workbook對象
            Dim wb As Workbook = New Workbook()

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

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

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

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

            '循環遍歷源文件中的工作表
            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

效果圖

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

原文鏈接：https://blog.51cto.com/u_15656056/5719657

欄目分類
最近更新