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，可以了解具體授權價格和使用機制