水泥做的女人——浅谈Excel函数的调用

roych

       Access在计算方面并不如Excel，复杂的统计不该由Access完成，而是在Excel里完成之后再把数据导入到Access里。不过，有些版友希望Access可以完成Excel的一些工作，这样就可以一劳永逸了。
       我一直觉得应该软件之间尽可能交互使用，扬长避短才能优化工作效率。正如男人是泥做的，女人是水做的，世界才更加精彩。而一旦女子偶尔强势一下无可厚非，但如果永远都一片阳刚，那她也不再是水做的了，应该是水泥做的吧。
       言归正传，以下是对成绩高低进行排名的一段代码（附件里有注释）：

1. Private Sub 排名_Click()
   
2. Dim exl As Excel.Application
   
3. Dim wb As Excel.Workbook
   
4. Dim ws As Excel.Worksheet
   
5. Dim rst As New ADODB.Recordset
   
6. rst.Open "select * from 成绩表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
7. Set exl = CreateObject("Excel.Application")
   
8. exl.Workbooks.Add
   
9. Set wb = exl.ActiveWorkbook
   
10. With wb
    
11. Set ws = exl.Worksheets(1)
    
12. ws.Activate
    
13. With ws
    
14. .Range("A1").CopyFromRecordset rst
    
15. rnk = exl.WorksheetFunction.Rank(Me.成绩, .Range("C:C"))
    
16. End With
    
17. wb.Close False, Me.Name
    
18. End With
    
19. MsgBox Me.姓名 & "的成绩排名为:第" & rnk & "名", vbInformation
    
20. rst.Close
    
21. End Sub

复制代码

      这里的知识点有两三个：1、使用ADO打开数据集。2、导出数据集到工作表。3、调用Excel内置函数Rank。
       此外，还有更简单的办法，不过测试时发现第二种方法运行要慢些：

1. Private Sub 排名2_Click()
   
2. Dim xcl As Object
   
3. Dim rs As New ADODB.Recordset
   
4. rs.Open "select * from 成绩表", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
5. Set xcl = CreateObject("excel.sheet")
   
6. Set xcl = xcl.Application.ActiveWorkbook.ActiveSheet
   
7. With xcl
   
8. .[a1].CopyFromRecordset rs
   
9. .[k1].Formula = "=rank(" & Me.成绩 & ",C:C)"
   
10. End With
    
11. MsgBox Me.姓名 & "的成绩排名为:第" & xcl.[k1].Value & "名", vbInformation
    
12. Set x = Nothing
    
13. End Sub

复制代码

zzs225

特来学习

牧野白狼

我要看看

张玉军

学习

星辉

这个好,要好好学习.我喜欢.

smileyoufu

好东西，学习下

YXH_YXH

学习了！！！！！！！

yanghua1900363

学习学习

dfang

你是坏蛋

确实不错

轻风

学习之