Thanks Arunabh,
But in my scenario - comparing file size is not enough. I should
compare each cell's value against the other file. Please advice me on this.
On Wednesday, September 11, 2013 2:40:09 PM UTC+5:30, Mary wrote:
>
> I need to compare two excel files (each file has 20 sheets).
> I used the below code. But it is taking more than 1 hour to complete.
> Please share if any other way to compare excels.
>
> Set objExcel = CreateObject(“Excel.Application”)
> objExcel.Visible = True
> Set objWorkbook1= objExcel.Workbooks.Open(“Docs1.xls”)
> Set objWorkbook2= objExcel.Workbooks.Open(“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′Highlights in red color if any
> changes in cells
> Else
> cell.Interior.ColorIndex = 0
> End If
> Next
>
> set objExcel=nothing
>
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
