| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 135 人关注过本帖
标题:指定工作薄
只看楼主 加入收藏
杂七杂八
Rank: 1
等 级:新手上路
帖 子:173
专家分:7
注 册:2018-2-20
结帖率:94.44%
收藏
已结贴  问题点数:20 回复次数:3 
指定工作薄
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
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:263
帖 子:8992
专家分:23563
注 册:2012-2-5
收藏
得分:20 
* 激活指定名称的工作表
oExcel.WorkSheets("部门").Activate()

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

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

坚守VFP最后的阵地
2021-09-07 00:40
杂七杂八
Rank: 1
等 级:新手上路
帖 子:173
专家分:7
注 册:2018-2-20
收藏
得分:0 
回复 2楼 sdta
谢谢!
2021-09-07 06:34
schtg
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:54
帖 子:1055
专家分:1750
注 册:2012-2-29
收藏
得分:0 
好!
2021-09-07 19:31
快速回复:指定工作薄
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.164659 second(s), 9 queries.
Copyright©2004-2021, BCCN.NET, All Rights Reserved