指定工作薄 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 指定工作薄

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1360 人关注过本帖

标题：指定工作薄

只看楼主加入收藏

杂七杂八

等　级：新手上路
帖　子：217
专家分：7
注　册：2018-2-20
结帖率：96%

楼主

已结贴√ 问题点数：20 回复次数：7

指定工作薄

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  想修改为打开“部门”的工作薄，

图片附件: 游客没有浏览图片的权限，请登录或注册

不知道如何改？求教！

搜索更多相关主题的帖子: ret　修改　指定　工作　代码　

2021-09-06 22:02

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9841
专家分：27213
注　册：2012-2-5

第 2 楼

得分:20

* 激活指定名称的工作表
oExcel.WorkSheets("部门").Activate()

* 激活第一个工作表
oExcel.WorkSheets(1).Activate()

* 激活NAME为 SHEET1 的工作表
oExcel.WorkSheets("Sheet1").Activate()

坚守VFP最后的阵地

2021-09-07 00:40

杂七杂八

等　级：新手上路
帖　子：217
专家分：7
注　册：2018-2-20

第 3 楼

得分:0

回复 2楼 sdta

谢谢！

2021-09-07 06:34

schtg

来　自：Usa
等　级：贵宾
威　望：67
帖　子：1732
专家分：3329
注　册：2012-2-29

第 4 楼

得分:0

好！

2021-09-07 19:31

杂七杂八

等　级：新手上路
帖　子：217
专家分：7
注　册：2018-2-20

第 5 楼

得分:0

程序代码：

 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