怎么通过C#/VB.NET代码将Excel工作表拆分为单独的文件(excel,vb.net,编程语言)

希望大家仔细阅读，能够学有所成！

使用工具: Free Spire.XLS for .NET（免费版）

程序环境：

本次测试时，在程序中引入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#

usingSpire.Xls;
usingSystem;
namespaceSplitWorksheets
{
classProgram
{
staticvoidMain(string[]args)
{
//创建Workbook对象
Workbookwb=newWorkbook();
//加载示例Excel文件
wb.LoadFromFile("企业营业数据表.xlsx");
//声明一个新的Workbook变量
WorkbooknewWb;
//声明一个字符串变量
StringsheetName;
//指定用于存储生成的Excel文件的文件夹路径
StringfolderPath="C:\Users\Tina\Desktop\输出结果\";
//循环遍历源文件中的工作表
for(inti=0;i<wb.Worksheets.Count;i++)
{
//初始化Workbook对象
newWb=newWorkbook();
//删除默认工作表
newWb.Worksheets.Clear();
//将源文档的特定工作表添加到新工作簿
newWb.Worksheets.AddCopy(wb.Worksheets[i]);
//获取worksheet名称
sheetName=wb.Worksheets[i].Name;
//将新工作簿保存到指定文件夹
newWb.SaveToFile(folderPath+sheetName+".xlsx",ExcelVersion.Version2013);
}
}
}
}

VB.NET

ImportsSpire.Xls
NamespaceSplitWorksheets
FriendClassProgram
PrivateSharedSubMain(ByValargsAsString())
'创建Workbook对象
DimwbAsWorkbook=NewWorkbook()
'加载示例Excel文件
wb.LoadFromFile("企业营业数据表.xlsx")
'声明一个新的Workbook变量
DimnewWbAsWorkbook
'声明一个字符串变量
DimsheetNameAsString
'指定用于存储生成的Excel文件的文件夹路径
DimfolderPath="C:\Users\Tina\Desktop\输出结果\"
'循环遍历源文件中的工作表
ForiAsInteger=0Towb.Worksheets.Count-1
'初始化Workbook对象
newWb=NewWorkbook()
'删除默认工作表
newWb.Worksheets.Clear()
'将源文档的特定工作表添加到新工作簿
newWb.Worksheets.AddCopy(wb.Worksheets(i))
'获取worksheet名称
sheetName=wb.Worksheets(i).Name
'将新工作簿保存到指定文件夹
newWb.SaveToFile(folderPath&sheetName&".xlsx",ExcelVersion.Version2013)
Next
EndSub
EndClass
EndNamespace

效果图

注意：测试代码中的文件路径为程序Debug路径，仅供参考，文件路径可自定义为其他路径。