将多个excel文件合成一个文件中的多个sheets

此处是以Excel2007为基础

1）新建一个空白的excel文件

2）选中宏，跳出如下窗口，在宏名下随便命名，点击创建…

3）将下列代码粘贴至创建后跳出的两行代码之间，啥都不用改，除了……如果excel格式是xls，把xlsx改成xls即可

Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True

4）粘贴好后可以直接关掉，再点一次宏，选中刚刚新建的，点击直接，全选要修改的excel，稍等几秒就成功。

sheets标签格式可能不如人意，可根据具体需要修改。