第一个按钮代码
Private Sub Command1_Click()
Dim EXAPP As Excel.Application
Dim WB As Excel.Workbook
Dim sht As Excel.Worksheet
Set EXAPP = CreateObject("excel.application")
Set WB = EXAPP.Workbooks.Open("d:\成绩表.xls")
Set sht = WB.Worksheets("Sheet1")
Range("N2").Select
     ActiveCell.FormulaR1C1 = "=SUM(RC[-8]:RC[-1])"
    Range("N2").Select
    Selection.AutoFill Destination:=Range("N2:N641"), Type:=xlFillDefault
    Range("N2:N641").Select
    ActiveWindow.SmallScroll Down:=-9
Form1.Caption = sht.Range("B5").Value '从表格取值
'WB.Save'保存编辑后的文件
WB.Close
Set sht = Nothing
Set WB = Nothing
Set EXAPP = Nothing
End Sub
第二个按钮代码
Private Sub Command2_Click()
Dim EXAPP As Excel.Application
Dim WB As Excel.Workbook
Dim sht As Excel.Worksheet
Set EXAPP = CreateObject("excel.application")
Set WB = EXAPP.Workbooks.Open("d:\成绩表.xls")
Set sht = WB.Worksheets("总表")
sht.Range("U3").Select
ActiveCell.FormulaR1C1 = "=RANK(RC[-1],R3C20:R800C20)"
Set sht = Nothing
Set WB = Nothing
Set EXAPP = Nothing
End Sub
昨天问题解决了
但是如果在第二按钮中计算的加入ActiveCell.FormulaR1C1 = "=RANK(RC[-1],R3C20:R800C20)"这个公式计算就提示错误，问题所在不懂！求教高手解答。

谢谢高手解答谢谢，万分感谢