用VBA合并Excel工作簿.

1、有許多實(shí)現(xiàn)Excel工作簿合并的方法，在將多個(gè)工作簿中的數(shù)據(jù)合并到一個(gè)工 作簿中介紹過例如，需要將多個(gè)Excel工作簿中的工作表合并到一個(gè)工作簿。這里假設(shè)需要合 并的工作簿在“ D示例Sub Comb in eWorkbooks(Dim strFileName As Stri ngDim wb As WorkbookDim ws As Object包含工作簿的文件夾，可根據(jù)實(shí)際修改示例數(shù)據(jù)記錄Applicati on .Scree nUpdat ing = FalseSet wb = Workbooks.Add(xlWorksheetstrFileName = Dir(strFileDir &

2、 *.xls*Do While strFileName vbNullStri ngDim wbOrig As WorkbookSet wbOrig = Workbooks.Ope n( File name:=strFileDir & strFileName,Read Only :=TruestrFileName = Left(Left(strFileName, Le n(strFileName - 4, 29For Each ws In wbOrig.Sheetsws.Copy After:=wb.Sheets(wb.Sheets.Co untIf wbOrig.Sheets.Count 1

3、Thenwb.Sheets(wb.Sheets.Co un t.Name = strFileName & ws.ln dexElsewb.Sheets(wb.Sheets.Co un t.Name = strFileNameEnd IfNextwbOrig.Close SaveCha nges:=FalsestrFileName = DirLoopApplicatio n.DisplayAlerts = Falsewb.Sheets(1.DeleteApplicatio n.DisplayAlerts = TrueApplicati on .Scree nUpdat ing = TrueSet

4、 wb = Nothi ngEnd Sub示例文檔下載：下面是合并多個(gè)Excel工作簿的另一種情形，也是Excel VBA實(shí)戰(zhàn)技巧精粹中 技巧91:匯總有四個(gè)工作簿，分別為:匯總工作簿.xls、一月.xls、二月.xls、三月.xls，其中一 月.xls、二月.xls在匯總工作簿.xls中打開VBE,并輸入下列代碼：Sub Con solidateWorkbook(Dim Ran geArray( As Stri ngDim bk As WorkbookDim sht As WorksheetDim WbCou nt As In tegerWbCou nt = Workbooks.Cou nt

5、ReDim Ran geArray(1 To WbCou nt - 1For Each bk In Workbooks在所有工作簿中循環(huán)If Not bk Is ThisWorkbook The n非代碼所在工作簿Set sht = bk.Worksheets(1引用工作簿的第一個(gè)工作表i = i + 1Ran geArray(i = & bk.Name & & sht.Name & ! & _sht.Range(A1.CurrentRegion.Address(ReferenceStyle:=xlR1C1 End IfNextWorksheets(1.Ra nge(A1.Co nsolida

6、te _Ran geArray, xlSum, True, TrueEnd Sub運(yùn)行上述代碼前，必須打開所有的工作簿。運(yùn)行代碼后，將自動(dòng)匯總所有工作表 中的值并將相應(yīng)示例文檔下載：下面是匯總多個(gè)工作簿的又一種情形，也是一名網(wǎng)友提出的問題：在同一文件夾 中有多個(gè)工作簿，其中Sub Un io nWorksheets(Applicati on .Scree nUpdat ing = FalseDim lj As Stri ngDim dir name As Stri ngDim nm As Stri nglj = ActiveWorkbook.Pathnm = ActiveWorkbook.Na

7、medirname = Dir(lj & *.xls*Cells.ClearDo While dirname If dir name nm ThenWorkbooks.Ope n File name:=lj & & dir nameWorkbooks( nm .Activate復(fù)制新打開工作簿的第一個(gè)工作表的已用區(qū)域到當(dāng)前工作表Workbooks(dirname.Sheets(1.UsedRa nge.Copy _ Ran ge(A65536.E nd(xlUp.Offset(1,0Workbooks(dir name.Close FalseEnd Ifdir name = DirLoopEn

8、d Sub簿中介紹過合并工作簿的示例。下面再列舉幾個(gè)示例，供有興趣的朋友參 考。的工作簿在“D示例數(shù)據(jù)記錄”文件夾中，含有兩個(gè)工作簿test1.xls、test2.xls（當(dāng)然，可以不限于兩個(gè),Read On ly:=True技巧91:匯總多個(gè)工作簿的工作表 所介紹的方法，即合并匯總。中一月.xls、二月.xls、三月.xls均只含有一張工作表且工作表中的數(shù)據(jù)均自單 元格A1開始，現(xiàn)在要求將它們合并至中的值并將相應(yīng)單元格的值求和。中有多個(gè)工作簿，其中有一個(gè)用于匯總的工作簿，要求將除該匯總工作簿外的其 它工作簿中的第一張工作表的數(shù)據(jù)匯不限于兩個(gè)，在test1.xls工作簿中含有三張工作表，在test2.xls