搜索
批量将多个excel中的多个工作簿合并到一个excel中(2011-01-2813:33:46)转载▼标签：杂谈将要合并的excel放到一个文件夹中，在这个目录中新建一个excel。打开新建的excel。按alt+F11.插入一个模块。将下面的东东复制进去。点击运行。搞定。SubCombineFiles()DimpathAsStringDimFileNameAsStringDimLastCellAsRangeDimWkbAsWorkbookDimWSAsWorksheetDimThisWBAsStringDimMyDirAsStringMyDir=ThisWorkbook.path&\'ChDriveLeft(MyDir,1)'findalltheexcelfiles'ChDirMyDir'Match=Dir$()ThisWB=ThisWorkbook.NameApplication.EnableEvents=FalseApplication.ScreenUpdating=Falsepath=MyDirFileName=Dir(path&\*.xls,vbNormal)DoUntilFileName=IfFileNameThisWBThenSetWkb=Workbooks.Open(FileName:=path&\&FileName)ForEachWSInWkb.WorksheetsSetLastCell=WS.Cells.SpecialCells(xlCellTypeLastCell)IfLastCell.Value=AndLastCell.Address=Range($A$1).AddressThenElseWS.CopyAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)EndIfNextWSWkb.CloseFalseEndIfFileName=Dir()LoopApplication.EnableEvents=TrueApplication.ScreenUpdating=TrueSetWkb=NothingSetLastCell=NothingEndSub