詳解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");
        }
    }
}

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 Class
End Namespace