SQL求字段TOP20,高手请进

nkgsm

看来楼主讲VBA和SQL实现的速度有点问题，果不其然，我用小蚁雄兵的语句试了一下，占内存太大了，速度非常慢。

wangjian6931

Sub subgrp_top20()
    Dim Sql$
    Set conn = CreateObject("adodb.connection")
    conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=D:\2009-8-6 求助文件.xls"
    Sql = "select t1.*,(select count(*) from [Source$] t2 where t2.大分类=t1.大分类 and t2.销售额>=t1.销售额) as rank from [Source$] t1 where (select count(*) from [Source$] t2 where t2.大分类=t1.大分类 and t2.销售额>=t1.销售额)<=20"
    Sheets("Result").Range("a2").CopyFromRecordset conn.Execute(Sql)
    Sheets("Result").Activate
    conn.Close
    Set conn = Nothing
End Sub

这是最终结果,没有想到真的可以做到,而且速度还可以，不过得在另外一张表格里面运行这个程序，如果在数据本身的表里运行的话，会导致内存不足。在这里感谢小蚁雄兵的帮忙。
还有，我把这个方法应用到ORACLE数据库的话，好像可以运行，没有提示出错，不过运行很长时间也没有运行出结果，我没有耐心等，把它停掉了。（要处理的数据太多，也许我用VBA代码会比那个速度更快一点。）

[ 本帖最后由 wangjian6931 于 2009-8-10 17:26 编辑 ]

nkgsm

个人认为SQL还是速度上有一定的问题，原因可能SQL不是excel原件，而是外来配件嫁接在excel上，可能嫁接的不太好。为了你的速度和自动化我重新做了一个宏，将排序动作录入进去了，如果将这个宏做成一个按钮，这样只要每周点击一下按钮即可轻松实现你的分类前20名记录给老板看。
注意的是：如果数据表格式发生了变化，则必须修改宏代码，这个例表只有1303行，我设计了到2000行，这个数据可以修改，预测每周最高记录数如果是4千多，可以修改为5000行。公式是在H和I列，如果扩大了列数，也必须修改。如果第一行不是列字段，比如插入了标题，总之发生了格式的变化，代码选择的区域（包括单个的单元格选择）参数必须相应修改。
希望这个宏能给你带来轻松。具体见附件。

wangjian6931

谢谢nkgsm的热心回答~!
其实我要做的报表里，总共有四个SHEET，第个SHEET里面有大概3万多行的数据，数据的内容也跟我提供的附件有些许差别。而我真正要做的是对每个部门进行筛选前20名。如果数据太多的话，用公式进行运算其实是不怎么划算的。宏程序我去年就做好了，轻松是自然的，只是速度上有点慢而已，前两天我又对去年的代码作了一下优化，运行时间变成了之前的一半。这样一份数据报表2分钟可以将数据从ORACLE数据库中调出并筛选出每个部门的TOP20。
我来这里的目的不是在于找到一个宏程序，而是找到一个能否直接在数据库中拉出TOP20的SQL语句来。现在看来是有的，只是视处理数据的多少，运行的效率划不划得来的问题。