北京时间英文-金质
有了在
word
文档中
编
程
实现
搜索文本的
经验
,在
excel
中
实现这
个功能也并非
难
事 。
打
开
Excel
的
VBA
帮助,
查
看
Excel
的
对
象模型 ,很容易找到完成
这
个功能需
要的几个集合和
对
象:
App lication
、
Workbooks
、
Workbook
、Worksheets
还
有
Worksheet
和
Range< br>。
Application
创
建
Excel
应
用,< br>Workbooks
打
开
Excel
文档,
Workbook
获
得
Excel
文档工作薄,
Worksheets
操作工 作表集合,
Worksheet
获
得
单
个工作表。
搜索的思路
对应
上述集合和
对< br>象,
可以
这样
表述:
要搜索的文本可能存在
Excel
文档当中的某个工作表上,搜索
应该
遍
历
目
标
Excel
文件的
每
个工作表中的有效
区域,如果找到,
则
退出本次搜 索,如果没有找到,
则继续
搜索直到完成本次搜
索。
跟
Word
对
象模型不一
样
的是,
Excel对
象模型没有提供
Find
对
象,不
过
没有
关
系,可以通
过
两
种
方法来
实现
,一个是通
过
Range
对
象的
Find()
方法来
实现
,< br>另外一个比
较
麻
烦
,取得工作表
Worksheet
的有效区域
UsedRange
之后,遍
历
该
Range
对
象中的所有行列。
实际开发
中,用第二
种
方法
时发现
了一个特
别
的
现
象,所以第二
种
方法也准
备详细 记
述一下。
第一
步
,打
开
Excel
文档:
object filename=
object MissingValue=g;
string strKeyWord=
//
指定要搜索的文本,如果有多个,
则
声明
string[]
ation ep=new ationClass();
ok ew=(ng(),MissingValue,
MissingValue,MissingValue,MissingValue,
MissingValue,MissingValue,MissingValue,
MissingValue,MissingValue,MissingValue,
MissingValue,MissingValue,MissingValue,
MissingValue);
然后准
备
遍
历
Excel
工作表:
eet ews;
int iEWSCnt=;
北京时间英文-金质
北京时间英文-金质
北京时间英文-金质
北京时间英文-金质
北京时间英文-金质
北京时间英文-金质
北京时间英文-金质
北京时间英文-金质
本文更新与2021-01-20 11:15,由作者提供,不代表本网站立场,转载请注明出处:https://www.bjmy2z.cn/gaokao/538293.html
-
上一篇:形容文章写的差的成语
下一篇:描写无聊的成语