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

VB比较两个Excel表格的内容

发布者:vbfans
发布日期:2011/5/20 21:00:52   更新日期:2011/5/20 21:00:52
阅读次数:4018
评分:4.80
介绍:打开两个Excel表格然后一个单元格一个单元格比较,如果有不同就在单元格中用红色高亮显示。
正文:

打开两个Excel表格然后一个单元格一个单元格比较,如果有不同就在单元格中用红色高亮显示。

下面是实现代码:

 

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set objWorkbook1= objExcel.Workbooks.Open("C:\Documents and Settings\okbase.net\Desktop\Docs1.xls")
Set objWorkbook2= objExcel.Workbooks.Open("C:\Documents and Settings\okbase.neta\Desktop\Docs2.xls")

Set objWorksheet1= objWorkbook1.Worksheets(1)

Set objWorksheet2= objWorkbook2.Worksheets(1)

   For Each cell In objWorksheet1.UsedRange
       If cell.Value <> objWorksheet2.Range(cell.Address).Value Then
           cell.Interior.ColorIndex = 3  '红色高亮显示不同的单元格
       Else
           cell.Interior.ColorIndex = 0
       End If
   Next

set objExcel=nothing

 

 


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

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