將多個(gè)Excel工作簿合并成一個(gè)新的工作簿

1、怎么將多個(gè)Excel工作簿合并成一個(gè)新的 工作簿已知有多個(gè)獨(dú)立的excel工作簿文件，現(xiàn)在需要將這些文件合并到一個(gè)新的工作 簿中。保留原來excel工作簿中各個(gè)excel工作表名稱。如果量小，可以采用打 開一個(gè)個(gè)復(fù)制的方法。在這里，我將向大家分享，怎么批量處理多個(gè)工作簿（ps： 不是工作表）的合并。工具/原料microsoft office excel 2007方法/步驟1將需要合并的excel工作簿文件放置在一個(gè)文件夾中 每個(gè)文件夾中的工作簿都輸入了簡單的內(nèi)容。2.在該文件夾中，新建立一個(gè)新的excel工作簿文件。重命名為8.瞠昶如 工鼻心 塘陽妙誦if 丫 ) 予 WT 衛(wèi)評癸 苫(/&g

2、t;“切5yw3. 打開新建立的excel工作簿文件8.按Alt+F11或者將鼠標(biāo)移動到下方工作表 名稱sheetl上右鍵，選擇查看代碼。4. 在彈出的代碼編輯窗口中，輸入代碼。注意：通過快捷鍵Alt+F11打開的窗口 如下沒有直接復(fù)制代碼的面板，需要點(diǎn)擊左上方的工程-VBA project 模塊，雙擊sheet1，即可打開代碼窗口。而步驟 3中的第二種方法可以直接打開代 碼輸入窗口。5. 在代碼窗口中，黏貼下列代碼:6. Sub Combi neFiles()Dim pathAs Stri ngDimAs Stri ngDim LastCellAs RangeDim WkbAs Workbo

3、okDim WSAs WorksheetDim ThisWBAs Stri ngDim MyDir As Stri ngMyDir = ThisWorkbook.path & ""'ChDriveLeft(MyDir, 1) 'find all the excel files'ChDir MyDir'Match =Dir$("”)ThisWB = ThisWorkbook.NameApplicatio n.En ableEve nts = FalseApplicati on. Scree nUpdati ng = False

4、path = MyDir=Dir(path & "*.xlsx", vbNormal)Do Un til =""If <> ThisWB The nSet Wkb = Workbooks.Ope n( & "" & )For Each WS In Wkb.WorksheetsSet LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell)If LastCell.Value = "" A nd LastCell.Address =Ran ge("$A$1").Address The nElseWS.CopyAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Cou nt)End IfNext WSWkb.Close FalseEnd If=Dir()LoopApplicatio n.E nableEve nts = TrueApplicatio n. Scree nUpdat ing = TrueSet Wkb = Nothi ngSet LastCell = Noth ingEnd Subdfll-Lrd idlQ7點(diǎn)擊菜單欄運(yùn)行-運(yùn)行子過程-