PM> Install-Package Spire.XLS

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