Displaying items by tag: xlsnetdocumentoperation

PM> Install-Package Spire.XLS

using Spire.Xls;

namespace MergeExcelFiles
{
    class Program
    {
        static void Main(string[] args)
        {
            //マージが必要なExcelファイルのパスを文字列配列に保存する
            string[] inputFiles = new string[] { "2019.xlsx", "2020.xlsx", "2021.xlsx" };

            //Workbookクラスのオブジェクトを初期化する
            Workbook newWorkbook = new Workbook();
            //ワークブック内のデフォルトのワークシートを消去する
            newWorkbook.Worksheets.Clear();

            //別の一時的なWorkbookクラスのオブジェクトを初期化する
            Workbook tempWorkbook = new Workbook();

            //文字列配列をループする
            foreach (string file in inputFiles)
            {
                //現在のワークブックをロードする
                tempWorkbook.LoadFromFile(file);
                //現在のワークブック内のワークシートをループする
                foreach (Worksheet sheet in tempWorkbook.Worksheets)
                {
                    //各ワークシートを現在のワークブックから新しいワークブックにコピーする
                    newWorkbook.Worksheets.AddCopy(sheet, WorksheetCopyType.CopyAll);
                }
            }

            //新しいワークブックをファイルに保存する
            newWorkbook.SaveToFile("MergeWorkbooks.xlsx", ExcelVersion.Version2013);
        }
    }
}

Imports Spire.Xls

Namespace MergeExcelFiles
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            ' マージが必要なExcelファイルのパスを文字列配列に保存する
            Dim inputFiles = New String() {"2019.xlsx", "2020.xlsx", "2021.xlsx"}

            ' Workbookクラスのオブジェクトを初期化する
            Dim newWorkbook As Workbook = New Workbook()
            'ワークブック内のデフォルトのワークシートを消去する
            newWorkbook.Worksheets.Clear()

            '別の一時的なWorkbookクラスのオブジェクトを初期化する
            Dim tempWorkbook As Workbook = New Workbook()

            '文字列配列をループする
            For Each file In inputFiles
                '現在のワークブックをロードする
                tempWorkbook.LoadFromFile(file)
                '現在のワークブック内のワークシートをループする
                For Each sheet As Worksheet In tempWorkbook.Worksheets
                    '各ワークシートを現在のワークブックから新しいワークブックにコピーする
                    newWorkbook.Worksheets.AddCopy(sheet, WorksheetCopyType.CopyAll)
                Next
            Next

            '新しいワークブックをファイルに保存する
            newWorkbook.SaveToFile("MergeWorkbooks.xlsx", ExcelVersion.Version2013)
        End Sub
    End Class
End Namespace

using Spire.Xls;

namespace MergeExcelWorksheets
{
    class Program
    {
        static void Main(string[] args)
        {
            //Workbookクラスのオブジェクトを初期化する
            Workbook workbook = new Workbook();
            //Excelファイルをロードする
            workbook.LoadFromFile("Sample.xlsx");

            //最初のワークシートを取得する
            Worksheet sheet1 = workbook.Worksheets[0];
            //2つ目のワークシートを取得する
            Worksheet sheet2 = workbook.Worksheets[1];

            //2つ目のワークシートの使用範囲を取得する
            CellRange sourceRange = sheet2.AllocatedRange;
            //最初のワークシートのターゲット範囲を指定する
            CellRange destRange = sheet1.Range[sheet1.LastRow + 1, 1];

            //2つ目のワークシートの使用範囲を1つ目のワークシートのターゲット範囲にコピーする
            sourceRange.Copy(destRange);

            //2番目のシートを削除する
            sheet2.Remove();

            //結果ファイルを保存する
            workbook.SaveToFile("MergeWorksheets.xlsx", ExcelVersion.Version2013);
        }
    }
}

Imports Spire.Xls

Namespace MergeExcelWorksheets
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            'Workbookクラスのオブジェクトを初期化する
            Dim workbook As Workbook = New Workbook()
            'Excelファイルをロードする
            workbook.LoadFromFile("Sample.xlsx")

            '最初のワークシートを取得する
            Dim sheet1 As Worksheet = workbook.Worksheets(0)
            '2つ目のワークシートを取得する
            Dim sheet2 As Worksheet = workbook.Worksheets(1)

            '2つ目のワークシートの使用範囲を取得する
            Dim sourceRange As CellRange = sheet2.AllocatedRange
            '最初のワークシートのターゲット範囲を指定する
            Dim destRange As CellRange = sheet1.Range(sheet1.LastRow + 1, 1)

            '2つ目のワークシートの使用範囲を1つ目のワークシートのターゲット範囲にコピーする
            sourceRange.Copy(destRange)

            '2番目のシートを削除する
            sheet2.Remove()

            '結果ファイルを保存する
            workbook.SaveToFile("MergeWorksheets.xlsx", ExcelVersion.Version2013)
        End Sub
    End Class
End Namespace