?上次我們講到對單個(gè)工作簿內(nèi)具有相同格式的所有工作表進(jìn)行匯總，那對來自不同工作簿的數(shù)據(jù)怎么進(jìn)行匯總呢？例如一個(gè)文件夾內(nèi)有10個(gè)工作簿（workbook），每個(gè)工作簿里的第一個(gè)工作表（worksheet）存放了某個(gè)班不同學(xué)生的成績（包括語文、數(shù)學(xué)、英語）?，F(xiàn)在要將所有班級(jí)的學(xué)生成績進(jìn)行匯總。如果一個(gè)一個(gè)工作簿打開后進(jìn)行手工復(fù)制會(huì)顯得很麻煩。當(dāng)這樣工作簿過多時(shí)，更不可能用手工復(fù)制，此時(shí)怎么做才能更快完成工作呢？
例子
為了便于講解，我們以匯總4個(gè)班的成績?yōu)槔?個(gè)班的成績來自不同的工作簿的第一個(gè)工作表。成績?nèi)缦聢D所示：
代碼如下:
Sub 多工作簿匯總()
Dim item As Integer
Dim fn As String
Dim wb As Workbook
If Application.FileDialog(3).Show = -1 Then
?fn = Application.FileDialog(3).SelectedItems(1)
Workbooks.Open fn
Set wb = ActiveWorkbook
wb.Worksheets(1).UsedRange.Copy ThisWorkbook.Worksheets(1).Cells(1)
Workbooks(wb.Name).Close
? For item = 2 To Application.FileDialog(3).SelectedItems.Count
? ? ? ? ? ? ? ? ? fn = Application.FileDialog(3).SelectedItems(item)
? ? ? ? ? ? ? ? ? Workbooks.Open fn
? ? ? ? ? ? ? ? ? Set wb = ActiveWorkbook
? ? ? ? ? ? ? ? ? wb.Worksheets(1).UsedRange.Offset(1, 0).Copy ThisWorkbook.Worksheets(1).Cells(ThisWorkbook.Worksheets(1).Rows.Count, 1).End(xlUp).Offset(1, 0)
? ? ? ? ? ? ? ? ? Workbooks(wb.Name).Close
? Next item
End If
End Sub
打開一個(gè)新工作簿，運(yùn)行上述代碼后，程序會(huì)打開文件選擇對話框，我們打開圖1所示的文件夾，并選擇要匯總的工作簿（共4個(gè)）后，點(diǎn)擊確定會(huì)得到下圖的匯總結(jié)果。
這些代碼是怎么實(shí)現(xiàn)這一功能的呢？
首先講解一下代碼思路，多工作簿不同于單工作簿，我們需要選擇一個(gè)裝有所要匯總工作簿的文件夾，這就涉及到對文件夾的操作。打開文件后，我們需要循環(huán)文件夾下所有工作簿。所以我們要先知道工作簿的路徑。最后通過路徑打開工作簿，進(jìn)行復(fù)制粘貼操作。
我們首先使用FileDialog函數(shù)來獲取我們要匯總的所有工作簿的完整路徑。FileDialog的使用方法如下：
Filedialog函數(shù)使用方法
功能：顯示對話框，選擇文件，獲取指定路徑
application.FileDialog(3).Show表示顯示文件選擇對話框，如果文件選擇對話框中選擇文件或文件夾后點(diǎn)擊“確定”，則返回?-1，點(diǎn)擊“取消”則返回0?。
用application.FileDialog(3).SelectedItems(i)表示第i個(gè)文件的完整路徑
用application.FileDialog(3).SelectedItems.Count表示所選擇的工作簿個(gè)數(shù)
接下來，我們來逐行看代碼的意思
If Application.FileDialog(3).Show = -1 Then
執(zhí)行代碼
end if
這一部分表示如果我們選擇文件中的工作簿后點(diǎn)擊“確定”按鈕則繼續(xù)執(zhí)行“執(zhí)行代碼”，如果點(diǎn)擊“取消”就結(jié)束if語句。在我們的代碼中如果結(jié)束了if語句，過程就結(jié)束了，不進(jìn)行任何操作。
如果我們選擇了文件，點(diǎn)擊確定后，則執(zhí)行下面的代碼：
?fn = Application.FileDialog(3).SelectedItems(1)表示將所選擇的第一個(gè)工作簿的完整路徑賦值給fn，fn是一個(gè)字符串，在使用前需要用dim fn as string進(jìn)行聲明。也可以用其它字母代替。
Workbooks.Open fn? 表示打開fn指定的工作簿。
當(dāng)我們打開代表某個(gè)班成績的工作簿后，此時(shí)有兩個(gè)打開的工作簿，還有一個(gè)是我們新建的存放代碼的工作簿。為了區(qū)分這兩個(gè)工作簿，我們使用Set wb = ActiveWorkbook?進(jìn)行賦值，以后wb就代表我們打開的代表成績的工作簿。在對wb進(jìn)行賦值前，需要用dim wb as workbook對其聲明，說明wb是一個(gè)工作簿，而不是字符串或者其它。
我們使用ThisWorkbook來代表代碼所在的工作簿，也就是匯總工作簿。
wb.Worksheets(1).UsedRange.Copy ThisWorkbook.Worksheets(1).Cells(1)這一句就表示復(fù)制第一個(gè)工作簿的內(nèi)容到代碼所在工作簿的第一個(gè)單元格。如果有不明白的地方可以查看單工作簿多工作表匯總一文的相應(yīng)部分。
wb代表我們打開的工作簿
wb.Name代表我們打開的工作簿的名稱
Workbooks(wb.Name).Close表示關(guān)閉我們打開的代表成績的工作簿。
要點(diǎn)：現(xiàn)在匯總工作表里有1班各個(gè)同學(xué)的成績，以及第一行顯示的變量名（姓名，語文，數(shù)學(xué)，英語）。在復(fù)制其它班級(jí)成績的過程中，我們只需要復(fù)制各班成績，而不要第一行。操作是相同的，所以我們使用循環(huán)來完成剩下的班級(jí)成績匯總。
循環(huán)形式如下：
For item = 2 To Application.FileDialog(3).SelectedItems.Count
? ? ? ? ? ? ? ? ? fn = Application.FileDialog(3).SelectedItems(item)
? ? ? ? ? ? ? ? ? Workbooks.Open fn
? ? ? ? ? ? ? ? ? Set wb = ActiveWorkbook
? ? ? ? ? ? ? ? ? wb.Worksheets(1).UsedRange.Offset(1, 0).Copy ThisWorkbook.Worksheets(1).Cells(ThisWorkbook.Worksheets(1).Rows.Count, 1).End(xlUp).Offset(1, 0)
? ? ? ? ? ? ? ? ? Workbooks(wb.Name).Close
? Next item
我們使用item作為循環(huán)變量，同樣使用前需要先聲明。?我們用For item = 2 To Application.FileDialog(3).SelectedItems.Count從第2個(gè)開始循環(huán)到最后一個(gè)。其它代碼的意思有不清楚的，結(jié)合前述和單工作簿多工作表匯總一文的說明進(jìn)行理解。
總結(jié)
今天講的是多個(gè)工作簿內(nèi)單工作表的匯總模板。
想像一下，如果一個(gè)工作簿內(nèi)有幾個(gè)班的成績分別放在不同的工作表中，并且這樣的工作簿有多個(gè)時(shí)，應(yīng)該怎樣寫代碼呢？如果有興趣，請看下次的講解。
（本文為原創(chuàng)，未經(jīng)允許，不得轉(zhuǎn)載）
