多个excel工作簿如何汇总?

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

我来回答

共5个回答

热心网友 时间：2022-06-23 02:31

先复制一家的工作簿作为汇总工作簿，再打开第2家工作簿，点击“录制宏”（2007左下角有一个带红点的表格样图标按钮就是录制宏的开关，2000菜单为“工具－宏－录制新宏”），再将每个工作表复制，以“选择性粘贴－数值－加”方式粘贴到对应的汇总簿表单，全部完成后，停止录制宏，进入宏编辑器（2007菜单为开发工具，2000菜单“工具－宏－编辑器”），修改其中有第2家工作簿名称的参数，如：将workbooks("第2家报表.xls")改为activeworkbook，之后，再打开依次打开其余工作簿，每打开一个，就运行一次宏（按Alt+F8可以看到宏名称，点击“执行”即可）。

也可自行编辑一个宏过程，先进入宏编辑器，选中汇总簿名称，点击菜单“插入－ 模块”，双击插入的宏模块，就可以编写下面的宏过程了：
sub 汇总报表()
a=thisworkbook.fullname
b=thisworkbook.name
c=left(a,len(a)-len(b)) '取得汇总簿所在路径
If right(c,1)<>"\" Then c=c+"\"
set y=createobject("Scripting.FileSystemObject")
set d=y.getfolder(c)
set f=d.files
for each k In f '检查和处理每个文件
if (lcase(right(k.name,3))="xls") and (k.name<>thisworkbook.name) then
'如果是2007，扩展名为xlsx，就将上句中“3))="xls"”改为“4))="xlsx"”
m=c+k.name
workbooks.open m '打开要汇总的文件
for each s in activeworkbook.sheets '检查处理每个表单
s.select
x=s.name
cells.copy '复制并选择相加式数值粘贴到对应表单
thisworkbook.sheets(x).range("a1").PasteSpecial Paste:=xlValues, Operation:=xlAdd
next s
activeworkbook.close false '关闭已处理文件
end if
next k
end sub
编写完毕，全选汇总簿所有表单和全部区域，一次性删除（清空）后，即可运行，运行完毕即可一次性完成全部汇总工作。
注意：这里假设的是所有数据都是加总求和，没有计数和平均值，所有文字项都不作处理，运行前保证全部报表与汇总簿在同一文件夹内，文件夹没有无关文件，所有报表拥有完全相同的文件类型、表单名称和格式。如果汇总簿是2007的xlsx文件，保存后，宏过程会自动丢失。

热心网友 时间：2022-06-23 02:32

那要看你这些工作簿的格式了，
设计工作簿的时候就该考虑到如何合并，否者工作簿分发给34个单位之后，你收回来也没什么意义！
如果你愿意，表格发给我，我做过合并报价单之类的表格！
nkhys@qq.com

热心网友 时间：2022-06-23 02:32

你的问题不清楚，不好怎么做
但你的那个想法好实现，用SQL查询能实现，不知你对ACCESS熟不熟，SQL和那个差不多，
那里可以用多张表相连，然后找到各个表*有那个名称，也就主键，
做好后，只要工作表的位置，名称不变，每次点刷新一下就完事了

热心网友 时间：2022-06-23 02:33

如果所有表的格式都一样“A1是姓名 B1是手机号 C1是家庭住址……”
可以用导入外部数据编辑OLE DB query来实现

select 姓名,手机号,家庭住址 from [sheet1$] union all select 姓名,手机号,家庭住址 from [sheet2$] union all select 姓名,手机号,家庭住址 from [sheet3$]

复制以上SQL语句，依次点菜单数据，导入外部数据，导入数据，找到你保存文件的地址，确定，点击“Edit query”在“command text”里面输入以上SQL语句，确定，在弹出的对话框上点“创建一个透视表”，完成，然后根据需要把自己需要的字段拖拉到相应的行列数据区域即可。

PS：SQL语句可以根据表格的布局加进去，格式模仿一下，相信自己
另外,虚机团上产品团购,超级便宜

热心网友 时间：2022-06-23 02:33

什么样的表格？需要怎样汇总数据？
贴出来看看框架结构啊