有時(shí)，需要將多個(gè)工作表合并成一個(gè)。如果單純的手工操作，費(fèi)時(shí)又費(fèi)力，效果還不佳，但是使用Aspose.Cells就可以很簡單的實(shí)現(xiàn)。本文將展示讀取一個(gè)源工作簿,并將其中的工作表合并成一個(gè)的代碼示例。

我們將利用復(fù)制的方法將工作簿中的多個(gè)源工作表內(nèi)容復(fù)制到一個(gè)工作表中。

源工作簿

在這里我們先創(chuàng)建一個(gè)源工作簿,其中有三個(gè)工作表。請參見圖片的所有三個(gè)工作表。

輸出的工作薄

在運(yùn)行下面的示例代碼之后,您將得到只有一個(gè)工作表的工作簿，其中包含上面三個(gè)工作表中的所有數(shù)據(jù)，如圖所示：

示例代碼：

 [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++)
{
      Worksheet sourceSheet = workbook.Worksheets[i];

      Range sourceRange = sourceSheet.Cells.MaxDisplayRange;

      Range destRange = destSheet.Cells.CreateRange(sourceRange.FirstRow + TotalRowCount, sourceRange.FirstColumn,
            sourceRange.RowCount, sourceRange.ColumnCount);

      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)

    TotalRowCount = sourceRange.RowCount + TotalRowCount

Next

destWorkbook.Save("output.xlsx")