?上次我們講到對(duì)單個(gè)工作簿內(nèi)具有相同格式的所有工作表進(jìn)行匯總埃难，那對(duì)來自不同工作簿的數(shù)據(jù)怎么進(jìn)行匯總呢？例如一個(gè)文件夾內(nèi)有10個(gè)工作簿（workbook）鸥拧，每個(gè)工作簿里的第一個(gè)工作表（worksheet）存放了某個(gè)班不同學(xué)生的成績(jī)（包括語文瘤旨、數(shù)學(xué)七问、英語）。現(xiàn)在要將所有班級(jí)的學(xué)生成績(jī)進(jìn)行匯總蜡镶。如果一個(gè)一個(gè)工作簿打開后進(jìn)行手工復(fù)制會(huì)顯得很麻煩雾袱。當(dāng)這樣工作簿過多時(shí)，更不可能用手工復(fù)制帽哑，此時(shí)怎么做才能更快完成工作呢谜酒？
例子
為了便于講解，我們以匯總4個(gè)班的成績(jī)?yōu)槔?個(gè)班的成績(jī)來自不同的工作簿的第一個(gè)工作表妻枕。成績(jī)?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ì)打開文件選擇對(duì)話框，我們打開圖1所示的文件夾述么，并選擇要匯總的工作簿（共4個(gè)）后蝌数，點(diǎn)擊確定會(huì)得到下圖的匯總結(jié)果。
這些代碼是怎么實(shí)現(xiàn)這一功能的呢度秘？
首先講解一下代碼思路顶伞，多工作簿不同于單工作簿，我們需要選擇一個(gè)裝有所要匯總工作簿的文件夾剑梳，這就涉及到對(duì)文件夾的操作唆貌。打開文件后，我們需要循環(huán)文件夾下所有工作簿垢乙。所以我們要先知道工作簿的路徑锨咙。最后通過路徑打開工作簿，進(jìn)行復(fù)制粘貼操作追逮。
我們首先使用FileDialog函數(shù)來獲取我們要匯總的所有工作簿的完整路徑酪刀。FileDialog的使用方法如下：
Filedialog函數(shù)使用方法
功能：顯示對(duì)話框，選擇文件钮孵，獲取指定路徑
application.FileDialog(3).Show表示顯示文件選擇對(duì)話框骂倘，如果文件選擇對(duì)話框中選擇文件或文件夾后點(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è)班成績(jī)的工作簿后居扒，此時(shí)有兩個(gè)打開的工作簿概漱，還有一個(gè)是我們新建的存放代碼的工作簿。為了區(qū)分這兩個(gè)工作簿喜喂，我們使用Set wb = ActiveWorkbook?進(jìn)行賦值瓤摧，以后wb就代表我們打開的代表成績(jī)的工作簿竿裂。在對(duì)wb進(jìn)行賦值前，需要用dim wb as workbook對(duì)其聲明照弥，說明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)閉我們打開的代表成績(jī)的工作簿机打。
要點(diǎn)：現(xiàn)在匯總工作表里有1班各個(gè)同學(xué)的成績(jī)，以及第一行顯示的變量名（姓名塞俱，語文姐帚，數(shù)學(xué)，英語）障涯。在復(fù)制其它班級(jí)成績(jī)的過程中，我們只需要復(fù)制各班成績(jī)膳汪，而不要第一行唯蝶。操作是相同的，所以我們使用循環(huán)來完成剩下的班級(jí)成績(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è)班的成績(jī)分別放在不同的工作表中，并且這樣的工作簿有多個(gè)時(shí)冯痢，應(yīng)該怎樣寫代碼呢氮昧？如果有興趣，請(qǐng)看下次的講解浦楣。
（本文為原創(chuàng)袖肥，未經(jīng)允許，不得轉(zhuǎn)載）
