如何把300个EXCEL文件集中到一个文件上，复制粘贴太麻烦，求具体方法！

Question

我有300多个文件，现在要集中到一个文件上，实在太麻烦，请大虾教下方法！用什么方法都可以，谢谢了！
我现在把全部的文档都归到一个文档里的不同SHEET里了，现在我想把这些SHEET合并到一个SHEET里，怎么做啊！急求！

Answer 1

工作中有时候会遇到需要合并excel文件的情况，不论是一个一个的复制粘帖还是利用excel提供的“移动或复制工作表”都感觉太麻烦。
这个合并有两种：
一是单纯的将多个excel文件中的工作簿合并到一个excel文件
二是不仅要实现多个excel文件工作簿的合并而且还可能实现不同工作簿中特定目标区域的合并
后者涉及到具体的编程问题。
前一种合并，可以用“EXCEL文件合并器”，合并多个相同结构的excel表格数据到一个新表格中，输出新表格。
后一种若不用编程，可以用excel汇总专家，它能快速批量处理多个Excel文件，快速合并Excel表格，解决跨Excel文件汇总难题。
Excel汇总专家功能介绍：
1、汇总格式相同的工作表
将多个行、列格式相同的工作表的内容汇总到单个工作表对应单元格中。参加汇总的工作表可以在一个Excel文件中，也可以在不同Excel文件中。您不需要编写任何Excel公式就能实现Excel表格数据的快速高效汇总，尤其适合参加合并的Excel文件数目不定，不便使用公式的情况。
2、从格式相同的工作表提取数据
可以提取一个Excel文件的多个工作表，也可以提取多个Excel文件的多个工作表的数据。例如，上级部门制定了统一的Excel表格，下发到下级部门填报，上级部门收集到下级部门填报的数据后，需要对某些数据项进行汇总分析，如果手工挑选这些数据项，势必非常麻烦。使用本项功能，工作将变得轻松快捷。
3、汇总多个Excel文件的工作表
有时你需要处理的工作表在多个不同的Excel文件中，不方便处理，而且Excel文件较多，逐一手工拷贝费时费力。本项功能可以将多个Excel文件的工作表快速拷贝到一个Excel文件中，如果有同名的工作表，自动重命名。这样就便于处理了.
4、汇总工作表行数据
本项功能可以把多个Excel文件内工作表的行数据复制到指定的单一工作表中。
5、分类汇总工作表行数据
本项功能和“汇总工作表行数据”类似的是，同样可以把多个Excel文件内工作表的行数据复制到指定的单一工作表中。所不同的是，可以指定一个关键列，所有这一列的值相同的行，都会被汇总成一行。此项功能可以在不使用公式的情况下实现Excel表格数据快速高效汇总，尤其适合参加合并的Excel文件数目不定且各工作表行数不等，排列顺序不同，不能使用公式的情况。
6、合并工作表的列数据
本项功能可以根据关键列合并两个工作表的列，并且不要求两个工作表的行按照顺序一一对应，程序可以根据关键列的值自动匹配对应行，然后把两个工作表中的行拼接成一行。
7、提取两工作表共有的行
本项功能可以将2个Excel工作表中具有相同关键列值的数据行输出到目的Excel文件中。这两个工作表可以在同一个Excel文件中，也可以在不同Excel文件中。
8、除去工作表1中与工作表2共有的行
本项功能将工作表1除去与工作表2具有相同关键列值的数据行。
9、审核格式相同的工作表
根据模版工作表审核其他工作表。这些工作表可以在同一个Excel文件中，也可以在不同Excel文件中。
审核内容： 1）单元格的数据是否满足公式 2）单元格的数据类型是否和模版工作表相同。

用VBA实现把多个Excel文件合并到一个Excel文件的多个工作表（Sheet）里
实现的功能是把多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里，并且新工作表的名称等于原Excel文件的文件名。开发环境Excel2007。代码如下：

'功能：把多个工作簿的第一个工作表合并到一个工作簿的多个工作表，新工作表的名称等于原工作簿的名称
Sub Books2Sheets()
'定义对话框变量
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)

'新建一个工作簿
Dim newwb As Workbook
Set newwb = Workbooks.Add

With fd
If .Show = -1 Then
'定义单个文件变量
Dim vrtSelectedItem As Variant

'定义循环变量
Dim i As Integer
i = 1

'开始文件检索
For Each vrtSelectedItem In .SelectedItems
'打开被合并工作簿
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)

'复制工作表
tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)

'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx
newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")

'关闭被合并工作簿
tempwb.Close SaveChanges:=False

i = i + 1
Next vrtSelectedItem
End If
End With

Set fd = Nothing
End Sub

风渡无痕

Answer 2

在数据选项里有一个导入外部数据，选择后，导入

Answer 3

还是采用数据导入方式吧。

Answer 4

全部框起来然后发送到，ok了