FUNCTION fun()
    oExcel.WorkBooks.Open(cDefPath + ALLTRIM(rstj.fname))
    oAS = oExcel.ActiveSheet
    ret = oExcel.CountA(oAS.Range("B:B")) - 1
    oExcel.WorkBooks.Close
    nCount = nCount + ret
    RETURN ret
ENDFUNC
代码如上
 此句   oAS = oExcel.ActiveSheet  想修改为打开“部门”的工作薄，
不知道如何改？求教！

谢谢！

 Function   fun()
    oExcel.workbooks.Open(cDefpath + alltrim(rstj.fname))  &&&打开指定电子表格文件
   * oAs =  oExcel.ActiveSheet                              &&&激活当前活动工作薄
    oAs =  oExcel.worksheets("考勤表").Activate()              &&&指定激活"考勤表"SHEET作为当前活动工作薄
    ret =  oExcel.CountA(oAs.Range("B:B")) - 1             &&&&按B列统计
    oExcel.workbooks.CLOSE
    nCount =  nCount + ret
    return ret
endfunc

我把第三行改为第四行运行，结果出现
原第三行命令运行正常
不知道为什么原因。
操作环境：vfp6.0、excel2007

能帮我修正吗？谢谢你！

非常感谢
明白了先指定后激活，可用。