將 Excel 工作簿合並為一個工作簿

Question

我有 50 個工作簿，每個工作簿有 7 個工作表。 現在我需要以這樣的方式組合它們，新工作簿應該有 7 個工作表，每個工作表應該有來自所有 50 個工作簿的相應數據。

例如：新工作簿的工作表 1 必須包含來自 50 個工作簿的所有工作表的數據。 同樣，Worksheet2 應該包含所有 50 個工作簿的 sheet2 中的所有數據，依此類推......直到 sheet7。

Answer 1

子 simpleXlsMerger()

Dim bookList 作為工作簿

Dim mergeObj 作為對象，dirObj 作為對象，filesObj 作為對象，everyObj 作為對象

Application.ScreenUpdating = False

Set mergeObj = CreateObject("Scripting.FileSystemObject")

'在這里更改excel文件的文件夾路徑

Set dirObj = mergeObj.Getfolder("C:\\Users\\607182604\\desktop\\Heinz Jun'15 MI Template\\consolidated")

設置 filesObj = dirObj.Files

對於每個everyObj 文件中的Obj

設置 bookList = Workbooks.Open(everyObj)

Range("A2:IV" & Range("A65536").End(xlUp).Row).Copy

ThisWorkbook.Worksheets(1).Activate

Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial

Application.CutCopyMode = False

bookList.Close

下一個

結束子

@dougGlancy 和 @omegastripes 我希望數據逐行合並，沒有任何間隙，是的，所有工作簿都在同一個文件夾中。 我面臨的問題是它只合並每個工作簿的第一個工作表。 我想要的是，它應該將所有 50 個 excel 文件的數據與 7 個工作表合並在一個合並的工作簿中，但有 7 個不同的工作表。