Comparing two excel files

[Sathiya]

Hi guys...
i want to comapre two excel files.
the requirements for that are as follows.
1. First get the sheet count in both files if the count is not equal then exit and print the result.
2. copare the row count and column count
3. have to comapre the fonts,cell color,image etc.
4. have to compare the data in the files(row wise)
Note # wherever it fails then immediately it should show the error output and exit from run.

i have seperate code to get the count of sheets, and comparison of cell by cell that too for comparing excels having single sheet....
any one know how to do this?
please let me know....
thanks in advance

[rajpes]

1,2,4 are very easy.I give you code for color comparison

Code:

Set ex=createobject("excel.application")
Set wb1=ex.workbooks.open("E:\Testing\Framework\Data\a.xls")
Set wb2=ex.workbooks.open("E:\Testing\Framework\Data\b.xls")

Set sh1=wb1.activesheet
Set sh2=wb2.activesheet

colorSame=true

For each c in sh1.usedrange
color1=c.font.color
color2=sh2.range(c.address).font.color

    If clng(color1)<>clng(color2)Then
        colorSame=false
    End If

Next


ex.quit

Set sh1=nothing
Set sh2=nothing

Set wb1=nothing
Set wb2=nothing

Set ex=nothing