Spire.XLS教程：在C＃中將工作簿拆分為多個Excel文檔

Spire.XLS for .NET 是一款專業的 .NET Excel 組件， 它可以用在各種.NET 框架中，包括 .NET Core、ASP.NET 和 Windows Forms 等相關的.NET 應用程序。在Excel表格中圖片也是我們經常會使用到的工具，這時我們如何使用Spire.XLS來完成呢？這就是本系列教程將給大家詳細講解的。

免費下載Spire.XLS最新版

將工作簿拆分為多個Excel文檔

本文將介紹如何通過將Spire.XLS與C＃或VB.NET一起使用來拆分工作簿。

C#

using Spire.Xls;
using System;

namespace SplitWorkbook
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create a Workbook object
            Workbook wb = new Workbook();

            //Load an Excel document
            wb.LoadFromFile("C:\\Users\\Administrator\\Desktop\\data.xlsx");

            //Declare a new Workbook variable
            Workbook newWb;

            //Declare a String variable
            String sheetName;

            //Specify the folder path, which is used to store the generated Excel files
            String folderPath = "C:\\Users\\Administrator\\Desktop\\Output\\";

            //Loop through the worksheets in the source file
            for (int i = 0; i < wb.Worksheets.Count; i++) { //Initialize the Workbook object newWb = new Workbook(); //Remove the default sheets newWb.Worksheets.Clear(); //Add the the specific worksheet of the source document to the new workbook newWb.Worksheets.AddCopy(wb.Worksheets[i]); //Get the worksheet name sheetName = wb.Worksheets[i].Name; //Save the new workbook to the specified folder newWb.SaveToFile(folderPath + sheetName + ".xlsx", ExcelVersion.Version2013); } } } } 

VB.NET

Imports Spire.Xls
Imports System
 
Namespace SplitWorkbook
    Class Program
        Shared  Sub Main(ByVal args() As String)
            'Create a Workbook object
            Dim wb As Workbook =  New Workbook() 
 
            'Load an Excel document
            wb.LoadFromFile("C:\\Users\\Administrator\\Desktop\\data.xlsx")
 
            'Declare a new Workbook variable
            Dim NewWb As Workbook
 
            'Declare a String variable
            Dim sheetName As String
 
            'Specify the folder path, which is used to store the generated Excel files
            Dim folderPath As String =  "C:\\Users\\Administrator\\Desktop\\Output\\" 
 
            'Loop through the worksheets in the source file
            Dim i As Integer
            For  i = 0 To  wb.Worksheets.Count- 1  Step  i + 1
 
                'Initialize the Workbook object
                NewWb = New Workbook()
 
                'Remove the default sheets
                NewWb.Worksheets.Clear()
 
                'Add the the specific worksheet of the source document to the new workbook
                NewWb.Worksheets.AddCopy(wb.Worksheets(i))
 
                'Get the worksheet name
                sheetName = wb.Worksheets(i).Name
 
                'Save the new workbook to the specified folder
                NewWb.SaveToFile(folderPath + sheetName + ".xlsx", ExcelVersion.Version2013)
            Next
        End Sub
    End Class
End Namespace