Hi All
    I am comparing two excel files and i got row and column of mismatched 
cell.
   I need to store that values in array values.

I have used the below code but getting error like subscript out of range.

Dim Val(),Row_No(),Col_No()
 i=0
   For Each cell In objWorksheet1.UsedRange
       If cell.Value <> objWorksheet2.Range(cell.Address).Value Then
           Val(i) = objWorksheet2.Range(cell.Address).Value
           Row_No(i) = objWorksheet2.Range(cell.Address).Row
           Col_No(i) = objWorksheet2.Range(cell.Address).Column
Next
i=i+1

-- 
-- 
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.

Reply via email to