QTP实现两个Excel表格数据对比

'==========================================================================
'功能名称：实现表格中两个sheet页进行对比
'参数名称：strFilePath1-文件地址1
'strFilePath2-文件地址2
'sheetname：sheet名称
',startColumn：数据对比开始的行数,
'numberOfColumns：需要对比多少行
',startRow：数据对比开始的列数
',numberOfRows：需要对比多少列
'trimed：是否去除单元格前面和后面的空格，true去除，false不去除
'==========================================================================
Function CompareSheets(strFilePath1,strFilePath2,sheetname,startColumn,numberOfColumns,startRow,numberOfRows,trimed)
   Dim returnVal'As Boolean
   returnVal = True

   Dim srcData1,srcDoc1,ExcelApp1
   Set ExcelApp1 = CreateObject ("Excel.Application")
   ExcelApp1.Visible =  true
   Set srcData1 = ExcelApp1.WorkBooks.Open(strFilePath1)
   Set srcDoc1 = srcData1.WorkSheets(sheetname)

   Dim srcData2,srcDoc2,ExcelApp2
   Set ExcelApp2 = CreateObject ("Excel.Application")
   ExcelApp2.Visible = true
   Set srcData2 = ExcelApp2.WorkBooks.Open(strFilePath2)
   Set srcDoc2 = srcData2.WorkSheets(sheetname)

   '判断两个工作表是否都存在，任何一个不存在停止判断，返回flase
   If srcDoc1 Is Nothing Or srcDoc2 Is Nothing Then
   CompareSheets = False