本文介绍C#及程序代码来复制Excel中的指定单元格区域,包括复制单元格文本及单元格样式。复制时,可在工作簿中的同一个sheet工作表内复制,也可在不同工作簿的不同sheet工作表间复制。
程序环境:引用spire.Xls.dll 版本:10.10;.NET Framework4.5.1;
1.在同一个sheet工作表中复制
【C# 】
using Spire.Xls;namespace CopyRanges_XLS{class Program{static void Main(string[] args){//加载Excel工作簿Workbook book = new Workbook();book.LoadFromFile("sample.xlsx", ExcelVersion.Version);//获取第一个工作表Worksheet sheet = book.Worksheets[0];//将源数据数据复制到目标单元格区域sheet.Copy(sheet.Range["A1:F1"], sheet.Range["A6:F6"], true);//保存文档book.SaveToFile("result.xlsx", ExcelVersion.Version);System.Diagnostics.Process.Start("result.xlsx");}}}
复制效果:
【】
Imports Spire.XlsNamespace CopyRanges_XLSClass ProgramPrivate Shared Sub Main(args As String())'加载Excel工作簿Dim book As New Workbook()book.LoadFromFile("sample.xlsx", ExcelVersion.Version)'获取第一个工作表Dim sheet As Worksheet = book.Worksheets(0)'将源数据数据复制到目标单元格区域sheet.Copy(sheet.Range("A1:F1"), sheet.Range("A6:F6"), True)'保存文档book.SaveToFile("result.xlsx", ExcelVersion.Version)System.Diagnostics.Process.Start("result.xlsx")End SubEnd ClassEnd Namespace
2.在不同工作簿的sheet工作表间复制
【C#】
using Spire.Xls;namespace CopyRanges2{class Program{static void Main(string[] args){//加载Excel工作簿1Workbook book1 = new Workbook();book1.LoadFromFile("sample.xlsx", ExcelVersion.Version);//加载Excel工作簿2Workbook book2 = new Workbook();book2.LoadFromFile("test.xlsx");//获取工作表Worksheet sheet1 = book1.Worksheets[0];Worksheet sheet2 = book2.Worksheets[1];//将源数据数据复制到目标单元格区域sheet1.Copy(sheet1.Range["A1:F1"], sheet2.Range["B4:G4"], true);//保存工作簿2book2.SaveToFile("result2.xlsx", ExcelVersion.Version);System.Diagnostics.Process.Start("result2.xlsx");}}}
跨工作表复制效果:
【】
Imports Spire.XlsNamespace CopyRanges2Class ProgramPrivate Shared Sub Main(args As String())'加载Excel工作簿1Dim book1 As New Workbook()book1.LoadFromFile("sample.xlsx", ExcelVersion.Version)'加载Excel工作簿2Dim book2 As New Workbook()book2.LoadFromFile("test.xlsx")'获取工作表Dim sheet1 As Worksheet = book1.Worksheets(0)Dim sheet2 As Worksheet = book2.Worksheets(1)'将源数据数据复制到目标单元格区域sheet1.Copy(sheet1.Range("A1:F1"), sheet2.Range("B4:G4"), True)'保存工作簿2book2.SaveToFile("result2.xlsx", ExcelVersion.Version)System.Diagnostics.Process.Start("result2.xlsx")End SubEnd ClassEnd Namespace