使用vba合并多個(gè)excel工作簿(3種形式)

1、使用使用VBA合并多個(gè)合并多個(gè)Excel工作簿工作簿例如，需要將多個(gè)Excel工作簿中的工作表合并到一個(gè)工作簿。這里假設(shè)需要合并的工作簿在“D:示例數(shù)據(jù)記錄”文件夾中，含有兩個(gè)工作簿test1.xls、test2.xls（當(dāng)然，可以不限于兩個(gè)），在test1.xls工作簿中含有三張工作表，在test2.xls工作簿中含有兩張工作表，現(xiàn)在使用一段VBA代碼合并這兩個(gè)工作簿到一個(gè)新工作簿中，合并到新工作簿中的工作表分別以原工作簿名加索引值命

2、名。代碼如下：SubCombineWkbooks()DimstrFileNameAsStringDimwbAsWkbookDimwsAsObject包含工作簿的文件夾可根據(jù)實(shí)際修改ConststrFileDirAsString=“D:示例數(shù)據(jù)記錄“Application.ScreenUpdating=FalseSetwb=Wkbooks.Add(xlWksheet)strFileName=Dir(strFileDir&“.xls“)Do

3、WhilestrFileName1Thenwb.Sheets(wb.Sheets.Count).Name=strFileName&ws.IndexElsewb.Sheets(wb.Sheets.Count).Name=strFileNameEndIfNextwbig.CloseSaveChanges:=FalsestrFileName=DirLoopApplication.DisplayAlerts=Falsewb.Sheets(1).

4、Application.DisplayAlerts=TrueCells.ClearDoWhiledirnamenmThenWkbooks.OpenFilename:=lj&““&dirnameWkbooks(nm).Activate復(fù)制新打開(kāi)工作簿的第一個(gè)工作表的已用區(qū)域到當(dāng)前工作表Wkbooks(dirname).Sheets(1).UsedRange.Copy_Range(“A65536“).End(xlUp).Offset(10)