excel数个文件整合到一个文件

来源：百度知道 编辑：UC知道 时间：2024/09/28 06:47:31
有1000个excel文件，名字为1.xls,2.xls...1000.xls.
格式都为：
A B C D
1 批次 邮箱 时间 姓名
2
3
4
想把这一千个excel文件复制到 整合.xls，
整合.xls 格式也为
A B C D
1 批次 邮箱 时间 姓名
2
3
4
... ...
4000。
把每个文件都打开再复制粘贴太慢了。
谢谢！

可以用“宏”将复制粘贴的过程自动化。

运行excel后按住ALT再依次按F11,I,M
粘贴下面的代码后按F5即可

Sub 整合数据()
Application.ScreenUpdating = False
p = "C:\path\" '源文件存放的路径，根据实际修改
f = Dir(p & "*.xls")
Do While f <> ""
Workbooks.Open p & f
ActiveWorkbook.Sheets(1).UsedRange.Copy Workbooks("整合.xls").Sheets(1).[A65536].End(xlUp).Offset(1, 0) '整合.xls必须存在且结构与要汇总的文件相同,不要和被汇总的文件放在同一文件夹中。
ActiveWorkbook.Saved = True
ActiveWindow.Close
f = Dir
Loop
Application.ScreenUpdating = True
End Sub