在处理 Excel 文档时，我们经常需要将数据整合到一个工作表以便于我们进行管理或数据对比。为了提高工作效率，我们可以在不同的工作簿之间复制选定的单元格区域或整个工作表。本文将演示如何通过编程方式将选定的单元格区域从一个工作簿复制到另一个工作簿。
程序环境：
本次测试时，在程序中引入 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 对象以加载源 Excel 文档。
分别使用 Workbook.Worksheets 属性和 Worksheet.Range 属性获取源工作表和源单元格区域。
创建另一个 Workbook 对象以加载目标 Excel 文档。
获取目标工作表和单元格区域。
使用 Worksheet.Copy(CellRange source, CellRangedestRange) 将数据从源区域复制到目标区域。
将源区域的列宽复制到目标区域，以便数据可以在目标工作簿中正常显示。
使用 Workbook.SaveToFile() 方法将目标工作簿保存到 Excel 文件。
完整代码
C#
using Spire.Xls;
namespace CopyCellRange{ class Program { static void Main(string[] args) { //创建一个Workbook对象 Workbook sourceBook = new Workbook();
//加载源 Excel 文档 sourceBook.LoadFromFile("营业状况表.xlsx");
//获取源工作表 Worksheet sourceSheet = sourceBook.Worksheets[0];
//获取源单元格区域 CellRange sourceRange = sourceSheet.Range["A1:G5"];
//创建另一个Workbook对象 Workbook destBook = new Workbook();
//加载目标工作簿 destBook.LoadFromFile("目标文档.xlsx");
//获取目标工作表 Worksheet destSheet = destBook.Worksheets[0];
//获取单元格区域 CellRange destRange = destSheet.Range["B2:H6"];
//将数据从源范围复制到目标范围 sourceSheet.Copy(sourceRange, destRange);
//循环遍历源范围中的列 for (int i = 0; i < sourceRange.Columns.Length; i++) { //将列宽也从源范围复制到目标范围 destRange.Columns[i].ColumnWidth = sourceRange.Columns[i].ColumnWidth; }
//将目标工作簿保存到 Excel 文件 destBook.SaveToFile("复制单元格范围.xlsx"); } }}
复制代码
VB.NET
Imports Spire.Xls
Namespace CopyCellRange Friend Class Program Private Shared Sub Main(ByVal args As String()) '创建一个Workbook对象 Dim sourceBook As Workbook = New Workbook()
'加载源 Excel 文档 sourceBook.LoadFromFile("营业状况表.xlsx")
'获取源工作表 Dim sourceSheet As Worksheet = sourceBook.Worksheets(0)
'获取源单元格区域 Dim sourceRange As CellRange = sourceSheet.Range("A1:G5")
'创建另一个Workbook对象 Dim destBook As Workbook = New Workbook()
'加载目标工作簿 destBook.LoadFromFile("目标文档.xlsx")
'获取目标工作表 Dim destSheet As Worksheet = destBook.Worksheets(0)
'获取单元格区域 Dim destRange As CellRange = destSheet.Range("B2:H6")
'将数据从源范围复制到目标范围 sourceSheet.Copy(sourceRange, destRange)
'循环遍历源范围中的列 For i As Integer = 0 To sourceRange.Columns.Length - 1 '将列宽也从源范围复制到目标范围 destRange.Columns(i).ColumnWidth = sourceRange.Columns(i).ColumnWidth Next
'将目标工作簿保存到 Excel 文件 destBook.SaveToFile("复制单元格范围.xlsx") End Sub End ClassEnd Namespace
复制代码
效果图
—本文完—
评论