Comparing sheets without the first 2 lines in the excel sheet

Question

Hi,I need to compare part of an excel sheet to another excel sheet. In the attached image, i do not want the first 2 rows (row 1 and 2 to be compared) but the rest of them to be compared.I found a piece of code which does the comparing of the whole excel. How do i modify to just compare what i need. &nbsp;'Loop to identify the differences per worksheet &nbsp; For i = 1 To strCount&nbsp; &nbsp;&nbsp; &nbsp; &nbsp; 'Getting the row and column count of the first worksheet&nbsp; &nbsp; &nbsp; Set objWorksheet1 = objSpread1.Worksheets(i) &nbsp; &nbsp; With objWorksheet1.UsedRange &nbsp; &nbsp; &nbsp; x1 = .Rows.Count &nbsp; &nbsp; &nbsp; y1 = .Columns.Count &nbsp; &nbsp; End With &nbsp; &nbsp; For tOff = 1 to x1&nbsp; &nbsp; &nbsp; &nbsp; If (objWorksheet1.Cells(tOff,1) &lt;&gt; "") Then &nbsp; &nbsp; &nbsp; &nbsp; fOffset = tOff &nbsp; &nbsp; &nbsp; &nbsp; Exit For &nbsp; &nbsp; &nbsp; End If &nbsp; &nbsp; Next &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; 'Getting the row and column count of the the second worksheet&nbsp; &nbsp; &nbsp; Set objWorksheet2 = objSpread2.Worksheets(i) &nbsp; &nbsp; With objWorksheet2.UsedRange &nbsp; &nbsp; &nbsp; x2 = .Rows.Count &nbsp; &nbsp; &nbsp; y2 = .Columns.Count &nbsp; &nbsp; End With &nbsp; &nbsp; maxR = x1 &nbsp; &nbsp; maxC = y1 &nbsp; &nbsp; If maxR &lt; x2 Then &nbsp; &nbsp; &nbsp; maxR = x2 &nbsp; &nbsp; End If &nbsp; &nbsp; If maxC &lt; y2 Then &nbsp; &nbsp; &nbsp; maxC = y2 &nbsp; &nbsp; End If &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; 'Loop to find the differences between the two files (cell by cell) &nbsp; &nbsp; cf1 = "" &nbsp; &nbsp; cf2 = "" &nbsp; &nbsp; For c = 1 To maxC&nbsp; &nbsp; &nbsp; &nbsp; For r = 1 To (maxR+fOffset)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; On Error Resume Next &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cf1 = LTrim(RTrim(objWorksheet1.Cells(r, c).Value)) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; cf2 = LTrim(RTrim(objWorksheet2.Cells(r, c).Value)) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; PDiffCount = DiffCount &nbsp; &nbsp; &nbsp; &nbsp; If Isnumeric(cf1) And Isnumeric(cf2) Then &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Abs(cf1-cf2) &gt;= 1 Then &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DiffCount = DiffCount+1 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If cf1 &lt;&gt; cf2 Then &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DiffCount = DiffCount+1 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If &nbsp; &nbsp; &nbsp; &nbsp; End If &nbsp; &nbsp; &nbsp; &nbsp; If not IsNull(resfile) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If DiffCount &gt;= (PDiffCount+1) Then &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objWorksheet1.Cells(r,c).Interior.ColorIndex = 3 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; objWorksheet2.Cells(r,c).Interior.ColorIndex = 3 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; resWorkSheet.Cells(resOffSet, 1) = objSpread1.Worksheets(i).Name &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; resWorkSheet.Cells(resOffSet, 2).Formula = "=Address("&amp;r&amp;", "&amp;c&amp;", 4)" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; resWorkSheet.Cells(resOffSet, 3) = objWorksheet1.Cells(r, c).Value &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; resWorkSheet.Cells(resOffSet, 4) = objWorksheet2.Cells(r, c).Value &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; resOffSet = resOffSet + 1 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If &nbsp; &nbsp; &nbsp; &nbsp; End If &nbsp; &nbsp; &nbsp; &nbsp; cf1 = "" &nbsp; &nbsp; &nbsp; &nbsp; cf2 = "" &nbsp; &nbsp; &nbsp; Next &nbsp; &nbsp; Next &nbsp; Next &nbsp; If DiffCount=0 Then &nbsp; &nbsp; sMsg = "No mismatches found." &nbsp; Else &nbsp; &nbsp; resBook.SaveAs resultFile &nbsp; &nbsp; sMsg = &nbsp;DiffCount &amp; " items mismatches. " &amp; vbLF &amp; "The result file available at : " &amp; resultFile &nbsp; End If   Thanks for helping... Sudha

gid_216 · Answer

Hi,the number of rows to skip or the number of row to start can be passed as a parameter to the function responsible for comparision. if there is no separate function, create a function specific to this comparision and use that in you framework.E.g. &nbsp; &nbsp; Function fn_ExcelCompare(strFileName, strSheetName, intRowToSkip) &nbsp; 'For Excel COM '******************************************************************* 'Create Excel object, Open workbook, worksheet 'Get the Used range row and column. &nbsp; For intCounter = intRowtoSkip + 1 To intRowCount &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '''TODO Script Next &nbsp; '******************************************************************* 'For DDT ExcelDriver '******************************************************************* &nbsp; 'Open ExcelDriver &nbsp; objExcelDriver.First&nbsp; While intRowToSkip &gt; 0 'If the number of rows to skip includes first row of excel then replace 0 with 1 objExcelDriver.Next intRowToSkip = intRowToSkip - 1 Wend 'Start comparision using DDT driver End Function &nbsp; This is to compare a single file with a reference. As you are comparing to excels, in the function, create two object for each file and compare. The parameter will get change in this case. Parameters will be two excel files and two sheet names (it can be one sheetname if both the file contains same sheet) &nbsp; Hope this will help.

Forum Discussion

Comparing sheets without the first 2 lines in the excel sheet

1 Reply

Recent Discussions

OCR Checkpoint posting a warning

How to integrate Testcomplete results with Azure Dashboards.

How to set ErrorLog location with SessionCreator.exe?

Related Content

Compare Object Properties Values with Excel Sheet column Values

Compare Object Properties Values with Excel Sheet column Values

Comparing table data in IF not working