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)"
    sht.Range("U3").Select
    Selection.AutoFill Destination:=Range("U3:U800"), Type:=xlFillDefault
 '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
    sht.ActiveCell.FormulaR1C1 = "=RANK(RC[-1],R3C20:R800C20)"
    sht.Range("U3").Select
    Selection.AutoFill Destination:=Range("U3:U800"), Type:=xlFillDefault
'WB.Save'保存编辑后的文件
WB.Close
Set sht = Nothing
Set WB = Nothing
Set EXAPP = Nothing
End Sub

还是提示错误。。

提示ActiveCell错误

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").Activate
    sht.Range("U3").FormulaR1C1 = "=RANK(RC[-1],R3C20:R800C20)"
    sht.Range("U3").AutoFill Destination:=Range("U3:U800"), Type:=xlFillDefault
'WB.Save'保存编辑后的文件
WB.Close
Set sht = Nothing
Set WB = Nothing
Set EXAPP = Nothing
End Sub

谢谢我测试下

谢谢测试过了，能不能问下，问题出在哪里了？

在vb中使用vba,不要使用这样的组合语句
    sht.Range("U3").Select
    Selection.AutoFill Destination:=Range("U3:U800"), Type:=xlFillDefault
 Selection的前面无对象是不对的，
因此，应使用这样的组合语句
sht.Range("U3").Activate
    sht.Range("U3").AutoFill Destination:=Range("U3:U800"), Type:=xlFillDefault

高手哪里有类似这样的基础教本，我能看的学习一下，也是一个提高

sht.Range("U3").Activate
    sht.Range("U3").AutoFill Destination:=Range("U3:U800"), Type:=xlFillDefault
高手这句换是有点问题