半岛外围网上直营

Spire.XLS for .NET 是一款专业的 .NET Excel 组件， 它可以用在各种.NET 框架中，包括 .NET Core、ASP.NET 和 Windows Forms 等相关的.NET 应用程序。

本文介绍使用Spire.XLS for .NET来压缩Excel工作表中的图片。

免费下载Spire.XLS最新版

在不同工作簿之间复制单元格范围

Spire.XLS 提供了Worksheet.Copy()方法来将数据从源范围复制到目标范围。目标区域可以是同一工作簿内的单元格区域，也可以是来自不同工作簿的单元格区域。以下是将单元格区域从工作簿复制到另一个工作簿的步骤。

• 创建一个Workbook对象以加载源 Excel 文档。
• 分别使用Workbook.Worksheets属性和Worksheet.Range属性获取源工作表和源单元格范围。
• 创建另一个Workbook对象以加载目标 Excel 文档。
• 获取目标工作表和单元格范围。
• 使用Worksheet.Copy(CellRange source, CellRange destRange)将数据从源范围复制到目标范围。
• 将列宽从源范围复制到目标范围，以便数据可以在目标工作簿中正确显示。
• 使用Workbook.SaveToFile()方法将目标工作簿保存到 Excel 文件。

C#

using Spire.Xls;

namespace CopyCellRange
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create a Workbook object
            Workbook sourceBook = new Workbook();

            //Load the source workbook
            sourceBook.LoadFromFile(@"C:\Users\Administrator\Desktop\source.xlsx");

            //Get the source worksheet
            Worksheet sourceSheet = sourceBook.Worksheets[0];

            //Get the source cell range
            CellRange sourceRange = sourceSheet.Range["A1:E4"];

            //Create another Workbook objecy
            Workbook destBook = new Workbook();

            //Load the destination workbook
            destBook.LoadFromFile(@"C:\Users\Administrator\Desktop\destination.xlsx");

            //Get the destination worksheet
            Worksheet destSheet = destBook.Worksheets[0];

            //Get the destination cell range
            CellRange destRange = destSheet.Range["B2:F5"];

            //Copy data from the source range to the destination range
            sourceSheet.Copy(sourceRange, destRange);

            //Loop through the columns in the source range
            for (int i = 0; i < sourceRange.Columns.Length; i++)
            {
                //Copy the column widths also from the source range to destination range
                destRange.Columns[i].ColumnWidth = sourceRange.Columns[i].ColumnWidth;
            }
            
            //Save the destination workbook to an Excel file
            destBook.SaveToFile("CopyRange.xlsx");
        }
    }
}

Imports Spire.Xls
 
Namespace CopyCellRange
    Class Program
        Shared  Sub Main(ByVal args() As String)
            'Create a Workbook object
            Dim sourceBook As Workbook =  New Workbook() 
 
            'Load the source workbook
            sourceBook.LoadFromFile("C:\Users\Administrator\Desktop\source.xlsx")
 
            'Get the source worksheet
            Dim sourceSheet As Worksheet =  sourceBook.Worksheets(0) 
 
            'Get the source cell range
            Dim sourceRange As CellRange =  sourceSheet.Range("A1:E4") 
 
            'Create another Workbook objecy
            Dim destBook As Workbook =  New Workbook() 
 
            'Load the destination workbook
            destBook.LoadFromFile("C:\Users\Administrator\Desktop\destination.xlsx")
 
            'Get the destination worksheet
            Dim destSheet As Worksheet =  destBook.Worksheets(0) 
 
            'Get the destination cell range
            Dim destRange As CellRange =  destSheet.Range("B2:F5") 
 
            'Copy data from the source range to the destination range
            sourceSheet.Copy(sourceRange, destRange)
 
            'Loop through the columns in the source range
            Dim i As Integer
            For  i = 0 To  sourceRange.Columns.Length- 1  Step  i + 1
                'Copy the column widths also from the source range to destination range
                destRange.Columns(i).ColumnWidth = sourceRange.Columns(i).ColumnWidth
            Next
 
            'Save the destination workbook to an Excel file
            destBook.SaveToFile("CopyRange.xlsx")
        End Sub
    End Class
End Namespace

慧都是E-iceblue官方友好合作伙伴，如果您对spire.xls，可以了解具体授权价格和使用机制