C#/VB.NET 復制Excel中的指定單元格區域

本文介紹C#及VB.NET程序代碼來復制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.Version2013);

            //獲取第一個工作表
            Worksheet sheet = book.Worksheets[0];

            //將源數據數據復制到目標單元格區域
            sheet.Copy(sheet.Range["A1:F1"], sheet.Range["A6:F6"], true);

            //保存文檔
            book.SaveToFile("result.xlsx", ExcelVersion.Version2013);
            System.Diagnostics.Process.Start("result.xlsx");
        }
    }
}

復制效果：

【VB.NET】

Imports Spire.Xls

Namespace CopyRanges_XLS
    Class Program
        Private Shared Sub Main(args As String())
            '加載Excel工作簿
            Dim book As New Workbook()
            book.LoadFromFile("sample.xlsx", ExcelVersion.Version2013)

            '獲取第一個工作表
            Dim sheet As Worksheet = book.Worksheets(0)

            '將源數據數據復制到目標單元格區域
            sheet.Copy(sheet.Range("A1:F1"), sheet.Range("A6:F6"), True)

            '保存文檔
            book.SaveToFile("result.xlsx", ExcelVersion.Version2013)
            System.Diagnostics.Process.Start("result.xlsx")
        End Sub
    End Class
End Namespace

 

2. 在不同工作簿的sheet工作表間復制

【C#】

using Spire.Xls;

namespace CopyRanges2
{
    class Program
    {
        static void Main(string[] args)
        {
            //加載Excel工作簿1
            Workbook book1 = new Workbook();
            book1.LoadFromFile("sample.xlsx", ExcelVersion.Version2013);
            //加載Excel工作簿2
            Workbook 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);

            //保存工作簿2
            book2.SaveToFile("result2.xlsx", ExcelVersion.Version2013);
            System.Diagnostics.Process.Start("result2.xlsx");
        }
    }
}

跨工作表復制效果：

【VB.NET】

Imports Spire.Xls
Namespace CopyRanges2
    Class Program
        Private Shared Sub Main(args As String())
            '加載Excel工作簿1
            Dim book1 As New Workbook()
            book1.LoadFromFile("sample.xlsx", ExcelVersion.Version2013)
            '加載Excel工作簿2
            Dim 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)
            '保存工作簿2
            book2.SaveToFile("result2.xlsx", ExcelVersion.Version2013)
            System.Diagnostics.Process.Start("result2.xlsx")
        End Sub
    End Class
End Namespace