好库网 好库网首页 | 我的好库
VB爱好者

VB在Excel表格文件中搜索指定内容

发布者:vbfans
发布日期:2011/5/17 21:18:45   更新日期:2011/5/17 21:18:45
阅读次数:7529
评分:4.80
介绍:VB以Automation方式打开EXCEL文件,并搜索指定内容
正文:

本文代码所实现的是VB用Automation方式打开Excel表格文件,然后查找内容,找到后涂上颜色,请看代码: 

 

Set appExcel = CreateObject("Excel.Application")
appExcel.visible=true
Set objWorkBook = appExcel.Workbooks.Open (filepath)  '打开表格

Set objSheet = appExcel.Sheets("Sheet1")    ' 要选择特定工作表

With objSheet.UsedRange ' 选择表中使用范围
    Set c = .Find ("nn")  ' 查找数据

For each c in objSheet.UsedRange  ' 循环查找使用了的区域
  If c="nn" then  ' 比较数据
            c.Interior.ColorIndex = 40  ' 对找到的数据加上颜色
  End If
  Set c = .FindNext(c)    ' 继续查找
next

End With

objWorkBook.save
objWorkBook.close
set appExcel=nothing

很好理解的代码,不需要多做解析!

 


评论 [发表评论]
账号 密码 还没帐号呢,现在注册一个?

免责声明:好库网所展示的信息由买卖双方自行提供,其真实性、准确性和合法性由信息发布人负责。好库网不提供任何保证,并不承担任何法律责任。