VB script to compare two excel sheets


This is a fantastic code to compare two excel sheets.Basically this can be treated as Lean project.:)
ExcelFilePath1 = InputBox("Please Enter the Path of first Excel File")
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(ExcelFilePath1) = false )Then
msgbox ExcelFilePath1 & " doesn't exist."
wscript.quit
End If
ExcelFilePath2 = InputBox("Please Enter the Path of second Excel File")
If (fso.FileExists(ExcelFilePath2) = false )Then
msgbox ExcelFilePath2 & " doesn't exist."
wscript.quit
End If


Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = false


Set objWorkbook1 = objExcel.Workbooks.Open(ExcelFilePath1)
Set objWorkbook2 = objExcel.Workbooks.Open(ExcelFilePath2)

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


'Highlights in green color if any changes in cells (for the first file)
cell.Interior.ColorIndex = 4
'Highlights the same cell in the Second file
objWorksheet2.range(cell.Address).interior.colorIndex = 4

Else
cell.Interior.ColorIndex = 0
End If
Next

ObjExcel.displayAlerts = False

objExcel.Save
objExcel.quit

set objExcel=nothing

msgbox "It is Done dude"
About the author :
author

This post was written by: Animesh Chatterjee. Animesh is a professional blogger, web designer and frontend web developer. Animesh is an enthustic and have passion to share his idea and creativity with this blog and provide tricks, tips and information for visitors. Thanks for visiting. You can follow Animesh in the following channel

You may also like :

{ 0 comments... read them below or add one }

Post a Comment