作业帮 > 综合 > 作业

如何合并多个excel2007的统计表格文件到1个文件当中?

来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/14 15:43:02
如何合并多个excel2007的统计表格文件到1个文件当中?
有几百份从地方上报上来的统计表格,每个表格表头都一样,下面的数据各不相同,想把几百份excel2007文件合并到1个文件中,请问除了累断手的一个个复制黏贴还可以怎么做?
注：本人所用EXCEL为OFFICE2003,在OFFICE2007中请将代码中的xls改为xlsx
你可以使用VBA,打开一个新的EXCEL文件,只要在EXCEL宏里运行以下代码（里面的文件夹地址一定要改成你要合并的EXCEL所在的文件夹地址）
Sub cfl()
Dim fs,f,f1,fc,s,x,rowss,columnss
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("D:\test\asdfg\") '存放文件的目录
Set fc = f.Files
x = 1
For Each f1 In fc
If Right(f1.Name,3) = "xls" Then
Workbooks.Open (f1.Path)
rowss = Workbooks(f1.Name).Sheets(1).Range("A65536").End(xlUp).Row
columnss = Workbooks(f1.Name).Sheets(1).columns.Count
Workbooks(f1.Name).Sheets(1).Range("A1:z" & CStr(rowss)).Copy
Workbooks(1).Activate
Workbooks(1).Sheets(1).Range("A" & CStr(x) & ":z" & CStr( x + rowss)).Select
Workbooks(1).Sheets(1).Paste
Application.CutCopyMode = False
x = x + rowss
Workbooks(f1.Name).Close savechanges:=False
End If
Next
End Sub
补充：
1.无论在哪里打开一个新的EXCEL文件（此文件保存合并后的数据）,然后点击EXCEL菜单栏里的“工具”/“宏”/VB编辑器（V）,在“VB编辑器”中将以上代码复制进去
2.将程序里第四行的（Set f = fs.GetFolder("D:\test\asdfg\") '存放文件的目录 ）里的路径名改成你所要合并EXCEL文件所在的文件夹路径名
3.运行（里面的文件夹地址一定要改成你要合并的EXCEL所在的文件夹地址）
如何合并多个excel2007的统计表格文件到1个文件当中? 请问谁知道如何合并多个excel的统计表格文件到1个文件当中? 如何合并多个excel的统计表格文件到1个文件当中? 说下如何合并多个excel的统计表格文件到1个文件当中? 请问下有谁知道如何合并多个excel的统计表格文件到1个文件当中? 请问谁知道如何合并多个excel的统计表格文件到1个文件当中?　有点急, 请问一下有谁知道如何合并多个excel的统计表格文件到1个文件当中? 请问下有谁知道如何合并多个excel的统计表格文件到1个文件当中?　有点急, 麻烦大家看一下如何合并多个excel的统计表格文件到1个文件当中? 大家帮看看如何合并多个excel的统计表格文件到1个文件当中? Excel2007中如何统计系统含有逗号的个数中,统计有多少个数字 Excel 我想统计个表格 如下图 我想在 1-8当中 输入 数字