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

发布网友 发布时间：2022-04-20 04:25

我来回答

共5个回答

热心网友 时间：2023-05-07 19:30

1、新建一份表格，点击工具栏上面的数据，新建查询-从文件-从文件夹路径点击打开。

2、然后就弹出一个对话框，点击右手边的浏览选项。

3、然后在电脑里面选择需要合并的excel文件，点击下面的合并选项。

4、点击了之后再合并文件，合并后就可以点击sheet1，进入到查询编辑器里面。

5、进入查询编辑器里面之后就可以看到多个excel合并后的文件，可以在里面将不需要的内容删除，或者是进行其他的编辑。

6、编辑完之后，点击左上角的关闭并上载，这样就可以将多个不同的excel文件放在一个excel文件里了。

热心网友 时间：2023-05-07 19:31

1、新建一份表格，点击工具栏上面的数据，新建查询-从文件-从文件夹路径点击打开。

2、然后就弹出一个对话框，点击右手边的浏览选项。

3、然后在电脑里面选择需要合并的excel文件，点击下面的合并选项。

4、点击了之后再合并文件，合并后就可以点击sheet1，进入到查询编辑器里面。

5、进入查询编辑器里面之后就可以看到多个excel合并后的文件，可以在里面将不需要的内容删除，或者是进行其他的编辑。

6、编辑完之后，点击左上角的关闭并上载，这样就可以将多个不同的excel文件放在一个excel文件里了。

热心网友 时间：2023-05-07 19:30

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

2）逐个excel文件，sheet标签处右键菜单---移动或复制选项---选中要导入那个excel文件，哪个sheet中，即可。

   

热心网友 时间：2023-05-07 19:31

将要合并的文件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打开时点保存。

热心网友 时间：2023-05-07 19:31

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

2）逐个excel文件，sheet标签处右键菜单---移动或复制选项---选中要导入那个excel文件，哪个sheet中，即可。

   

热心网友 时间：2023-05-07 19:31

将要合并的文件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打开时点保存。

热心网友 时间：2023-05-07 19:31

你好，在Excel表格中的左下角有添加表格的标识，sheet1，sheet2和sheet3，在他们后面有个+标识，想多创建表格直接点击＋即可，这样一个Excel表格中就有锁多个Excel表。
希望可以帮到你。

热心网友 时间：2023-05-07 19:32

你好，在Excel表格中的左下角有添加表格的标识，sheet1，sheet2和sheet3，在他们后面有个+标识，想多创建表格直接点击＋即可，这样一个Excel表格中就有锁多个Excel表。
希望可以帮到你。

热心网友 时间：2023-05-07 19:33

先打开第一个文件，按住键盘的“Ctrl”键再点击工作表的名称（如“sheet”）向右拖动复制另外一个内容一样但名称不同的工作表（名称可以修改），你有多少个文件就复制多少个表，然后依次打开你的第二个文件，第三个文件。。。，并全选这些内容复制-粘贴到刚刚在第一个文件复制出来的表里边，这样反复制作后就合成一个文件了。

热心网友 时间：2023-05-07 19:32

先打开第一个文件，按住键盘的“Ctrl”键再点击工作表的名称（如“sheet”）向右拖动复制另外一个内容一样但名称不同的工作表（名称可以修改），你有多少个文件就复制多少个表，然后依次打开你的第二个文件，第三个文件。。。，并全选这些内容复制-粘贴到刚刚在第一个文件复制出来的表里边，这样反复制作后就合成一个文件了。