使用VBA合并多個Excel工作簿

使用VBA合并多個Excel工作簿使用VBA合并多個Excel工作簿例如，需要將多個 Excel工作簿中的工作表合并到一個工作簿。這里假設(shè)需要合并的工作簿在“ D:示例數(shù)據(jù)記錄 ”文件夾中，含有兩個工作簿test1.xls 、test2.xls （當(dāng)然，可以不限于兩個），在test1.xls 工作簿中含有三張工作表，在 test2.xls 工作簿中含有兩張工作表，現(xiàn)在使用一段VBA代碼合并這兩個工作簿到一個新工作簿中，合并到新工作簿中的工作表分別以原工作簿名加 xx值命名。代碼如下：SubCombineWorkbooks()DimstrFileNameAsStringDimwbAsWorkbookDimwsAsObject包含工作簿的文件夾,可根據(jù)實際修改示例數(shù)據(jù)記錄\"Application.ScreenUpdating=FalseSetwb=Workbooks.Add(xlWorksheet)使用VBA合并多個Excel工作簿strFileName=Dir(strFileDir&"*.xls*")DoWhilestrFileName<>vbNullStringDimwbOrigAsWorkbookSetwbOrig=Workbooks.Open(Filename:=strFileDir&strFileName,ReadOnly:=True)strFileName=Left(Left(strFileName,Len(strFileName)-4),29)ForEachwsInwbOrig.SheetsElseEndIfNext使用VBA合并多個Excel工作簿wbOrig.CloseSaveChanges:=FalsestrFileName=DirLoopApplication.DisplayAlerts=Falsewb.Sheets(1).DeleteApplication.DisplayAlerts=TrueApplication.ScreenUpdating=TrueSetwb=NothingEndSub下面是合并多個Excel工作簿的另一種情形，也是《ExcelVBA實戰(zhàn)技巧精粹》中<技巧91：匯總多個工作簿的工作表 >所介紹的方法，即合并匯總。有四個工作簿，分別為：匯總工作簿.xls、一月.xls、二月.xls、三月.xls，其中一月.xls、二月.xls、三月.xls均只含有一張工作表使用VBA合并多個Excel工作簿且工作表中的數(shù)據(jù)均自 xxA1開始，現(xiàn)在要求將它們合并至“匯總工作簿.xls”中。在“匯總工作簿.xls”中打開VBE，并輸入下列代碼：SubConsolidateWorkbook()DimRangeArray()AsStringDimbkAsWorkbookDimshtAsWorksheetDimWbCountAsIntegerWbCount=Workbooks.CountReDimRangeArray(1ToWbCount-1)ForEachbkInWorkbooks' 在所有工作簿中循環(huán)IfNotbkIsThisWorkbookThen' 非代碼所在工作簿Setsht=bk.Worksheets(1)' 引用工作簿的第一個工作表i=i+1RangeArray(i)="'["&bk.Name&"]"&sht.Name&"'!"&_使用VBA合并多個Excel工作簿sht.Range("A1").CurrentRegion.Address(ReferenceStyle:=xlR1)EndIfNextWorksheets(1).Range("A1").Consolidate_RangeArray,xlSum,True,TrueEndSub下面是匯總多個工作簿的又一種情形，也是一名網(wǎng)友提出的問題：在同一文件夾中有多個工作簿，其中有一個用于匯總的工作簿，要求將除該匯總工作簿外的其它工作簿中的第一張工作表的數(shù)據(jù)匯總到該匯總工作簿中。代碼如下：SubUnionWorksheets()Application.ScreenUpdating=FalseDimljAsStringDimdirnameAsStringDimnmAsString使用VBA合并多個Excel工作簿lj=ActiveWorkbook.Pathnm=ActiveWorkbook.Namedirname=Dir(lj&"\*.xls*")Cells.ClearDoWhiledirname<>""Ifdirname<>nmThenWorkbooks.OpenFilename:=lj&"\"&dirnameWorkbooks(nm).Activate復(fù)制新打開工作簿的第一個工作表的已用區(qū)域到當(dāng)前工作表Workbooks(dirname).Sheets(1).UsedRange.Copy_Ran