麻烦高手帮忙解答下，模块是不是重复调用出现问题了！
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("Sheet1")
Range("O2").Select
ActiveCell.FormulaR1C1 = "=RANK(RC[-1],R2C14:R643C14)"
Range("O2").Select
Selection.AutoFill Destination:=Range("O2:O643"), Type:=xlFillDefault
Range("O2:O643").Select
红色字体提示错误，麻烦高手解答下，谢谢
