如何把多个相同工作簿数据汇总到一个工作簿内

《如何把多个相同工作簿数据汇总到一个工作簿内》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、发下去的表都是一样，收上来汇总的时候一个个打开复制粘贴汇总太麻烦，有个代码就万事大吉。将需要合并的excel工作簿文件放置在一个文件夹中。>计霣机►LENOVO(D:)►work►iSW工作►~~~__屮111沒索浐S...p在文件夹内新建一个excel表，用于汇总，双击打开，鼠标在表格右下角的标签页sheetl上右键，选择查看代码55』八©中J••Q粘贴如下代码：SubCombineFiles()DimpathDimFileNameDimLastCellDimWkbDimWSDimThisWBAs

2、StringAsStringAsRangeAsWorkbookAsWorksheetAsStringDimMyDirAsStringMyDir=ThisWorkbook.path&rChDriveLeft(MyDir,表1)ffindalltheexcelfiles’ChDirMyDir’Match=Dir$(’’’’)ThisWB=ThisWorkbook.NameApplication.EnableEvents=FalseApplication.ScreenUpdating=Falsepath=M

3、yDirFileName=Dir(path&,r*.xls,r,vbNormal)DoUntilFileName=IfFileName<>ThisWBThenSetWkb=Workbooks.Open(FileName：=path&n’r&FileName)ForEachWSInWkb.WorksheetsSetLastCellWS.Cells.SpecialCells(xlCellTypeLastCell)IfLastCell.Value=’"rAndLastCell.Address=Range

4、(n$A$l’’)•AddressThenElseWS.CopyAfter：=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)EndIfNextWSWkb.CloseFalseEndIfFileName=Dir()LoopApplication.EnableEvents=TrueApplication.ScreenUpdating=TrueSetWkb=NothingSetLastCell=NothingEndSub其中，代码中的“表1”，可以是文件夹内的任

5、意一个文件名DimMvDirAsStringsWWAAAAAAAzMvDir=ThisWorkbook*path&'A"*3'ChDriveLeft(MyDir，

6、表0'findalltheexcelfiles^'ChDirMvDirzMatch=DirSC,若代码框内无红色标记，表明代码正确，单击运行，或按F5运行；若代码框内有红色标记，检查代码是否粘贴完整F场VBAPr^ject钮建白广二iMicrosoftExcel対番®SheellCShe^tl)ffi]Sheet2(Sheet2)®She

7、el3CSh«U3)rhisWorkbook咮饪•Sheetl2£lSheetlWorksheet鮮母序

8、敝辦

9、SheetlDizplayPag：oBr«Fols«Displ«yRichtT«FftlseEnftbleAuloPxltF«Is«Sn&bleCalcnl&tTrue2nftbl«0utlinmFals«Zn«bl«FivotTabF«Is«ZnableSelectiaO-xlHoRestrManeSheetlScrollAraa(名称)Stftndfitrdyidth838Visible

10、-t-☆新建MicrosoftExcel97-2003工作衷.xls•Sheetl(代55)P?SiB)[CMbiBeFilesSubConbin«Fil«s0OibpathAsDmFileManeAsDiaLastCellAsDiaVkbAsDibVSAsDibThisVBAsDi»KyDirAsStringByDir=ThisVorkbook'thBriv«L«£t(JlyDir,"CMirMyDir?nauh=Dir$C*)2=StringStringRanceVorkbookVorksh««t

11、String•atha，l)*find«d.lth«ozcolfxlosThisVB=ThisYorkbookApplic槪tioxvEntbl«Ev*iUs=F«=**I£FilcMancOTEisVBThenSetVkb=Workbooks.OpenCFileNane=path