如何将多个不同的excel文件放在一个excel文件里

将要合并的文件copy到一个新文件夹（只有这些Excel，且若打开某一文件，数据就能看见——即不用点其他sheet），建一新Excel，也存到该文件夹。仅打开该新Excel，按Alt+F11，点菜单的插入，模块，粘贴如下代码：
Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1) 'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0 'open
ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) 'copy sheet
Windows(Match).Activate
ActiveWindow.Close
End If
Match = Dir$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub

在此界面之间按F5运行此宏，所有表格复制到一个Excel里了。
注意：本操作只合并EXCEL中打开时看到的SHEET。即想要合并哪个sheet,就要在哪个sheet打开时点保存。

1）把几个excel文件同时都打开；

如何将两个不同的excel文件合并成一个？ 如何对比不同Excel文件内的信息是否相同 excel 2003 如何在不同的窗口打开不同的文件 如何将oracle中的多个表自动导入到同一个excel文件里的不同sheet？ 如何在两个excel不同 文件同时输入相同文字 excel如何使两行的列宽不同 如何快速从Excel表格文件中大量的不同地区的数据中调出同一地区的数据 如何将多个excel报表文件合并,重复的覆盖? Excel中如何通过一个共同的编号将不同文件或者不同工作表的内容汇集到一起？ 在没有excel的电脑中,如何查看excel文件?