c#/vb.net 将 excel 工作表拆分为单独的文件-凯发线上登陆下载网址

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