C#怎么在不同工作簿之间复制选定单元格区域(云服务器、云主机、高防IP、高防服务器、香港服务器、美国服务器,开发技术)

程序环境

本次测试时，在程序中引入 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, CellRange destRange) 将数据从源区域复制到目标区域。

• 将源区域的列宽复制到目标区域，以便数据可以在目标工作簿中正常显示。

• 使用 Workbook.SaveToFile() 方法将目标工作簿保存到 Excel 文件。

完整代码

C#

usingSpire.Xls;namespaceCopyCellRange{classProgram{staticvoidMain(string[]args){//创建一个Workbook对象WorkbooksourceBook=newWorkbook();//加载源Excel文档sourceBook.LoadFromFile("营业状况表.xlsx");//获取源工作表WorksheetsourceSheet=sourceBook.Worksheets[0];//获取源单元格区域CellRangesourceRange=sourceSheet.Range["A1:G5"];//创建另一个Workbook对象WorkbookdestBook=newWorkbook();//加载目标工作簿destBook.LoadFromFile("目标文档.xlsx");//获取目标工作表WorksheetdestSheet=destBook.Worksheets[0];//获取单元格区域CellRangedestRange=destSheet.Range["B2:H6"];//将数据从源范围复制到目标范围sourceSheet.Copy(sourceRange,destRange);//循环遍历源范围中的列for(inti=0;i<sourceRange.Columns.Length;i++){//将列宽也从源范围复制到目标范围destRange.Columns[i].ColumnWidth=sourceRange.Columns[i].ColumnWidth;}//将目标工作簿保存到Excel文件destBook.SaveToFile("复制单元格范围.xlsx");}}}

VB.NET

ImportsSpire.XlsNamespaceCopyCellRangeFriendClassProgramPrivateSharedSubMain(ByValargsAsString())'创建一个Workbook对象DimsourceBookAsWorkbook=NewWorkbook()'加载源Excel文档sourceBook.LoadFromFile("营业状况表.xlsx")'获取源工作表DimsourceSheetAsWorksheet=sourceBook.Worksheets(0)'获取源单元格区域DimsourceRangeAsCellRange=sourceSheet.Range("A1:G5")'创建另一个Workbook对象DimdestBookAsWorkbook=NewWorkbook()'加载目标工作簿destBook.LoadFromFile("目标文档.xlsx")'获取目标工作表DimdestSheetAsWorksheet=destBook.Worksheets(0)'获取单元格区域DimdestRangeAsCellRange=destSheet.Range("B2:H6")'将数据从源范围复制到目标范围sourceSheet.Copy(sourceRange,destRange)'循环遍历源范围中的列ForiAsInteger=0TosourceRange.Columns.Length-1'将列宽也从源范围复制到目标范围destRange.Columns(i).ColumnWidth=sourceRange.Columns(i).ColumnWidthNext'将目标工作簿保存到Excel文件destBook.SaveToFile("复制单元格范围.xlsx")EndSubEndClassEndNamespace

效果图