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

轉載請註明出處，本文鏈接：https://www.uj5u.com/net/258031.html

標籤：.NET技术

上一篇：搭建ASP.NET WEB API框架(1) 從零開始

下一篇：【一步一步入坑ABP VNEXT】安裝ABP CLI