多个同格式工作薄合并到一个汇总表中，求SQL或VBA!

悠哉乐哉

各位老师晚上好！打扰了。
　　我单位辖8所小学，每次考试后，进行成绩分析之前，要把他们报来的成绩汇总到一个表中，便于分析。我以前的汇总做法时，用函数，而且还要用到辅助列，并且这些表都要打开，很麻烦。
求老师们赐SQL和VBA的汇总方法，让我能提高工作效率。非常感谢！

excel好玩

悠哉乐哉 发表于 2013-3-28 20:57
非常感谢！还有一点点小问题，不知是什么原因？就是运行完宏后，汇总的第63行到67行是空格，麻烦老师再看 ...

呵呵，我也留意到了，我也不知道如何解释，是柳村那个表的问题，猜测是没有字符但依然有什么字符在，所以excel判断最后一行时多了几个空白行。

excel好玩

看看行不行，不做按钮了，汇总工作簿alt+f11，运行，即可

悠哉乐哉

excel好玩 发表于 2013-3-28 20:50
看看行不行，不做按钮了，汇总工作簿alt+f11，运行，即可

非常感谢！还有一点点小问题，不知是什么原因？就是运行完宏后，汇总的第63行到67行是空格，麻烦老师再看看。谢谢。

cmxxccxx

多个工作薄合并到一个汇总表中，求SQL或VBA。.zip (54.53 KB, 下载次数: 169)

2013-3-28 21:00 上传

点击文件名下载附件

,供参考

悠哉乐哉

excel好玩 发表于 2013-3-28 20:50
看看行不行，不做按钮了，汇总工作簿alt+f11，运行，即可

非常感谢！我把有空格的那两个学校后面的空行，又删除了一遍，再次运行宏，就没有空格了。

悠哉乐哉

cmxxccxx 发表于 2013-3-28 21:00
,供参考

非常感谢！老师辛苦了！

悠哉乐哉

cmxxccxx 发表于 2013-3-28 21:00
,供参考

请问老师，您的那个宏跟按钮是如何关联的？跟我以前对按钮加载宏的方法好像不一样，我以后想用这段VBA代码，该怎么办？

cmxxccxx

悠哉乐哉 发表于 2013-3-28 21:12
请问老师，您的那个宏跟按钮是如何关联的？跟我以前对按钮加载宏的方法好像不一样，我以后想用这段VBA代码 ...

我的土方法：如果选择窗体，直接用模块的宏名挂上即可；如果用控件，则画好控件后右键查看代码，然后就自动进入编写代码的，编好后修改控件名称，退出编辑，就搞定，呵呵

mps777

终于做出来了……核对楼主的各班的的标题，搞得我头大，用SQL……
而且生成出来的表能显示什么学校

1. select 序号,姓名,成绩,"胡河小学" as 学校 from [E:\汇\胡河小学小学四英成绩.xls].[Sheet1$a2:c] where 序号 is not null union all
   
2. select 序号,姓名,成绩,"康田小学" as 学校 from [E:\汇\康田小学四英成绩.xls].[Sheet1$a2:c] where 序号 is not null union all
   
3. select 序号,姓名,成绩,"梁东小学" as 学校 from [E:\汇\梁东小学四英成绩.xls].[Sheet1$a2:c] where 序号 is not null union all
   
4. select 序号,姓名,成绩,"梁西小学" as 学校 from [E:\汇\梁西小学四英成绩.xls].[Sheet1$a2:c] where 序号 is not null union all
   
5. select 序号,姓名,成绩,"柳林小学" as 学校 from [E:\汇\柳林小学四英成绩.xls].[Sheet1$a2:c] where 序号 is not null union all
   
6. select 序号,姓名,成绩,"卢畈小学" as 学校 from [E:\汇\卢畈小学四英成绩.xls].[Sheet1$a2:c] where 序号 is not null union all
   
7. select 序号,姓名,成绩,"欧庙一小" as 学校 from [E:\汇\欧庙一小四英成绩.xls].[Sheet1$a2:c] where 序号 is not null union all
   
8. select 序号,黄1,成绩,"潼口小学" as 学校 from [E:\汇\潼口小学四英成绩.xls].[Sheet1$a2:c] where 序号 is not null

复制代码