可否通过SQL查找学生清单信息

睡虫E梦

一、在共同一个文件夹里有一个表格名称为：《学生成绩表查询》，同时，该文件夹内有很多份各年级的学生清单表格，如《一年级》，《二年级》，《三年级》等等
二、问题是：在不用逐个打开学生清单表格时，可以通过《学生成绩表查询》进行已有的学生的“考号”及“姓名”查询他们的成绩出来，由于可能有很多表格，用VLOOKUP时会有报错及会重复值不显示。
因本人对VBA及SQL不懂，请老师们帮忙帮忙，无限感谢，先行谢谢好人

睡虫E梦

@所有人      各位老师,能抽空帮个忙不？看能否写个代码快速查询。现在我要搞一个学生考试成绩查询，但本人不会VBA及SQL，先行谢谢您老。地址是http://club.excelhome.net/thread-1338080-1-1.html
@zhaogang1960      赵老师，有您百忙中打扰您。看多贴说您老是这方面的能人专家，您老能抽空帮个忙不？看能否写个代码快速查询。现在我要搞一个学生考试成绩查询，但本人不会VBA及SQL，先行谢谢您老。地址是http://club.excelhome.net/thread-1338080-1-1.html

活在理想的世界

先用([六年级] UNION ALL [五年级])A，再用[学生成绩查询表]B LEFT JOIN A ON A.考号=B.考号

睡虫E梦

不太懂,能进一步指点下吗?谢谢

youer_ma

学生查询.rar (69.18 KB, 下载次数: 9)

2017-4-3 11:44 上传

点击文件名下载附件

本人也是菜鸟，EXECL，ACCESS，SQL都知道一点，VBA更菜，平时也是用到什么学什么，记不住。帮你做了个查询，也就是把一五六年级数据放到了一张表里（SHEET2），而且文件放在了d:\学生查询，删除了原表中第一行。查询设置为关闭时删除外部数据，你打开查询，把文件路径改一下应该可以，我没试，同时把其它年级的数据查询加到后面。试试吧！

睡虫E梦

已经请教了一位云南老师,已经达到我的效果了,但如果原始学生清单内如果存在某一空行时(如六年级学生清单中有一空行),就不能运行下去了,因老师较忙,怕影响他老,就发到这里给大侠们再帮忙完善下,看能否自动识别即使如有空行则进一步往来查询下去,谢谢.

睡虫E梦

youer_ma 发表于 2017-4-3 11:26
本人也是菜鸟，EXECL，ACCESS，SQL都知道一点，VBA更菜，平时也是用到什么学什么，记不住。帮你做了个查询 ...

您发过来的没有代码效果在里面,能再发一次吗?谢谢

蓝桥玄霜

1. Sub cax()
   
2. Dim Conn, SQL$, myPath$
   
3. myPath = ThisWorkbook.Path & ""
   
4. Set Conn = CreateObject("adodb.connection")
   
5. Conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & myPath & [k1].Value & ".xls"
   
6. SQL = "select * from [年级$a2:g]"
   
7. Range("c3:g1000").ClearContents
   
8. [a3].CopyFromRecordset Conn.Execute(SQL)
   
9. Conn.Close
   
10. Set Conn = Nothing
    
11. End Sub
    
12. 
    

复制代码

蓝桥玄霜

请见附件。

睡虫E梦

蓝桥玄霜 发表于 2017-4-3 17:13
请见附件。

谢谢老师，每次都是您老帮忙！无限感谢！