水泥做的女人——浅谈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

复制代码

powerhao

xie62

学习学习

wdq

ycxchen

学习！

miracle-y

学习学习

yanwei82123300

学习学习

红尘如烟

其实没必要调用Excel，直接用记录集就能实现了，不需要打开Excel，效率会高很多：

1. Private Sub 排名_Click()
   
2.     Dim strSQL As String
   
3.     Dim rst As Object    'DAO.Recordset
   
4.    
   
5.     strSQL = "SELECT DISTINCT 成绩 FROM 成绩表 ORDER BY 成绩 DESC"
   
6.     Set rst = CurrentDb.OpenRecordset(strSQL, , 4)    ' dbReadOnly = 4
   
7.     rst.FindFirst "成绩=" & Me.成绩
   
8.     MsgBox Me.姓名 & "的成绩排名为：第" & rst.AbsolutePosition + 1 & "名"
   
9.     rst.Close
   
10.     Set rst = Nothing
    
11. End Sub
    

复制代码

不记得是谁说过的：编程这件事，更多的是受限于想象力……

ycxchen

8楼红尘版主的方法也很好，但我认为楼主主要的意思是说明调用EXCEL的方法。

简

我也来学习学习。