Excel合并不同工作簿的表到同一个工作簿

此示例是将不同路径下的工作簿的第一个工作表合并到同一个工作簿的不同sheet,按照添加顺序把工作表合并进去。 如果要合并多个或者是其他情况可参照更改下即可。

主要分两块内容：
1.第一块，代码块
2.第二块，演示

一、代码块

Sub NewTest()
Dim book1 As String, book2 As String, flag1 As String, flag2 As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
arr = [a1].CurrentRegion
' flag1 和flag2用于判断对应文件是否存在，存在才进行一步处理，ThisWorkbook.Path返回当前执行VBA
'代码的工作簿的路径，可以直接指定路径,无论是读取还是存储皆可.
For Each i In arr
flag1 = Dir(ThisWorkbook.Path & "\test\testnew2\" & i & "-未超时.xlsx")
flag2 = Dir