| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 272 人关注过本帖
标题:请教控制EXCEL的问题
只看楼主 加入收藏
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:712
专家分:20
注 册:2014-1-16
结帖率:88.8%
收藏
已结贴  问题点数:20 回复次数:4 
请教控制EXCEL的问题
vfp打开EXCEL后,怎么选择其中的一个表呢?以前用oExcel.WorkSheets(1).Activate,现在我需要按照标的名字选择,我的需求是先找有没有这个表,如果有就选择,没有就报错
7 天前 14:49
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:712
专家分:20
注 册:2014-1-16
收藏
得分:0 
图片附件: 游客没有浏览图片的权限,请 登录注册
比如选择汇总这个表
7 天前 14:52
csyx
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:火星
等 级:版主
威 望:37
帖 子:780
专家分:3058
注 册:2018-3-13
收藏
得分:20 
换成工作表名即可
程序代码:
try
    oExcel.WorkSheets('汇总').Activate
catch
    messagebox(oExcel.ActiveWorkbook.Name + '中不存在名为 [汇总] 的工作表', 48, '错误')
endtry




[此贴子已经被作者于2025-4-11 15:24编辑过]


这家伙很懒,啥也没留下
7 天前 15:07
csyx
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:火星
等 级:版主
威 望:37
帖 子:780
专家分:3058
注 册:2018-3-13
收藏
得分:0 
方法很多了,你也可以通过遍历活动工作簿内的所有工作表来判断
程序代码:
cSheetName = '汇总'
lFound = .f.
For each oSheet in oExcel.Sheets
    If oSheet.name == cSheetName
        lFound = .t.
        Exit
    EndIf
EndFor
If lFound
    oExcel.Sheets(cSheetName).Activate
Else
    MessageBox(oExcel.ActiveWorkbook.Name + ' 中没有名为 [' + cSheetName + '] 的工作表', 48, '错误')
EndIf

这家伙很懒,啥也没留下
7 天前 15:23
fanjinyu9108
Rank: 2
等 级:论坛游民
帖 子:712
专家分:20
注 册:2014-1-16
收藏
得分:0 
好的,非常感谢,问题基本解决了
7 天前 16:45
快速回复:请教控制EXCEL的问题
数据加载中...
 
   



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

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.286109 second(s), 11 queries.
Copyright©2004-2025, BC-CN.NET, All Rights Reserved