原創(chuàng)|其它|編輯:郝浩|2012-09-05 15:22:10.000|閱讀 690 次
概述:有時(shí)候,我們需要將幾個(gè)工作表合并為一個(gè),用Aspose.Cells可輕松實(shí)現(xiàn)這點(diǎn):
# 界面/圖表報(bào)表/文檔/IDE等千款熱門(mén)軟控件火熱銷(xiāo)售中 >>
有時(shí)候,我們需要將幾個(gè)工作表合并為一個(gè),用Aspose.Cells可輕松實(shí)現(xiàn)這點(diǎn):
首先,我們來(lái)看一下合并前的工作表:
然后,我們輸入相應(yīng)代碼:
[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")
最后,讓我們一起來(lái)看合并后的工作表:
本站文章除注明轉(zhuǎn)載外,均為本站原創(chuàng)或翻譯。歡迎任何形式的轉(zhuǎn)載,但請(qǐng)務(wù)必注明出處、不得修改原文相關(guān)鏈接,如果存在內(nèi)容上的異議請(qǐng)郵件反饋至chenjj@fc6vip.cn
文章轉(zhuǎn)載自:慧都控件網(wǎng)