半岛权威十大直营(官方)网站

有时候，我们需要将几个工作表合并为一个，用Aspose.Cells可轻松实现这点：

首先，我们来看一下合并前的工作表：

然后，我们输入相应代码：

[C#]

string filePath = @"c:\source.xlsx";

Workbook workbook = new Workbook(filePath);

Workbook destWorkbook = new Workbook();

Worksheet destSheet = destWorkbook.Worksheets[0];

int TotalRowCount = 0;

for (int i = 0; i < workbook.Worksheets.Count; i++)
{
&nbsp;     Worksheet sourceSheet = workbook.Worksheets[i];

    &nbsp; Range sourceRange =

sourceSheet.Cells.MaxDisplayRange;

 &nbsp;    Range destRange = destSheet.Cells.CreateRange

(sourceRange.FirstRow + TotalRowCount,

sourceRange.FirstColumn,
  &nbsp;         sourceRange.RowCount, sourceRange.ColumnCount);

    &nbsp; destRange.Copy(sourceRange);

      TotalRowCount = sourceRange.RowCount + TotalRowCount;
}

destWorkbook.Save("output.xlsx");

[VB]

 Dim filePath As String = "C:\source.xlsx"

Dim workbook As Workbook = New Workbook(filePath)

Dim destWorkbook As Workbook = New Workbook()

Dim destSheet As Worksheet = destWorkbook.Worksheets(0)

Dim TotalRowCount As Integer = 0

For i = 0 To workbook.Worksheets.Count - 1
    Dim sourceSheet As Worksheet = workbook.Worksheets(i)

    Dim sourceRange As Range =

sourceSheet.Cells.MaxDisplayRange

    Dim destRange As Range = destSheet.Cells.CreateRange

(sourceRange.FirstRow + TotalRowCount,

sourceRange.FirstColumn, _
  sourceRange.RowCount, sourceRange.ColumnCount)

    destRange.Copy(sourceRange)

  &nbsp; TotalRowCount = sourceRange.RowCount + TotalRowCount

Next

destWorkbook.Save("output.xlsx")

最后，让我们一起来看合并后的工作表：