QTP Excle数据比对

项目上有个UAT的case的checkpoint 需要比较系统里webtable 里跟exported 到excle 文件的数据是否一致。

想想了，传统的方法是将webtable的数据取出来存在另一个excle文件里，然后在异步比较2个excle 文件数据是否相同。

但是这个方法效率太低，想到之前项目上用到利用excel 的内置公式比较数据，并将差异的数据标上不同的颜色。

不多说，上代码：

Sub CompareExcel(strPath,dicData)
Dim oExcel,oWorkbook,oSheet,i,key
Set oExcel=CreateObject("Excel.Application")
On error resume next :err.clear
Set oWorkbook=oExcel.workbooks.open(strPath)
Set oSheet=oWorkbook.sheets(1)
If err.number<>0 Then
err.clear
Exit sub
End If
On error goto 0
oExcel.DisplayAlerts=False
Dim colums:colums=oSheet.usedRange.Columns.Count
Dim rows:rows=oSheet.usedRange.rows.Count
'	Dim end_pos:end_pos=start_pos+dicData.count
Dim countRow:countRow=dicData.count
Dim countCloumn:countCloumn=ubound(dicData(1))+1

'	Dim new_start_pos:new_start_pos=US1567_To_letter(colums+1)
Dim new_start_pos:new_start_pos=rows+2
'	Dim new_end_pos:new_end_pos=US1567_To_letter(colums+countCloumn)
Dim new_end_pos:new_end_pos=US1567_To_letter(countCloumn)

Dim index:index=new_start_pos
for each key in dicData.keys
oSheet.range("A"&index&":"&new_end_pos&index).value=dicData(key)
index=index+1
Next
Dim range1:range1="A2"&":"&US1567_To_letter(colums)&rows
'	Dim range2:range2=new_start_pos&"2"&":"&new_end_pos&(countRow+1)
Dim range2:range2="A"&new_start_pos&":"&new_end_pos&(countRow+new_start_pos-1)

oSheet.range("A"&(new_start_pos-1)).value="From RM WebTable Data:"
'	oSheet.range("A"&(new_start_pos-1)&":"&new_end_pos&(new_start_pos-1)).value="From RM WebTable Data:"
'	oSheet.range("A"&(new_start_pos-1)&":"&new_end_pos&(new_start_pos-1)).mergecells=true

'	oSheet.listobjects.add(1, oSheet.range(range2), false, 1).name = "table1"
'	oSheet.listobjects("table1").tablestyle = "TableStyleMedium16"

oSheet.range(range1).select
oSheet.range(range1).FormatConditions.add 2,,"=A2 <>"&"A"&new_start_pos
oSheet.range(range1).FormatConditions(1).setfirstpriority
oSheet.range(range1).FormatConditions(1).interior.color = 65535
oSheet.range(range1).FormatConditions(1).stopiftrue = false

oSheet.range(range2).select
oSheet.range(range2).FormatConditions.add 2,,"=A2 <> "&"A"&new_start_pos
oSheet.range(range2).FormatConditions(1).setfirstpriority
oSheet.range(range2).FormatConditions(1).interior.color = 65535
oSheet.range(range2).FormatConditions(1).stopiftrue = false

oSheet.range("A1").select
oSheet.cells.entirecolumn.autofit

oWorkbook.save
oWorkbook.Close
Set oSheet=Nothing
Set oWorkbook=Nothing
Set oExcel=nothing
End Sub

 将页面的webtable的每一行数据作为一位数组放在dic 对象里，利用QTP EOM 操作excle文件,将数据一行一行写到 exported 的excle 文件里，动态的插入 FormatConditions。比较数据的过程丢给Excle。

 最后将比较之后的文件以超链接的方式插到QTP的report里。

tips：

很奇怪的是网上关于qtp 对excle 读写数据都是cells(1,1).value 这个方法，一个单元格一个单元格的读写数据，这样效率实在太低。

其实有更好的方法：

1.可以一行一行的读写数据 eg. worksheet.range("A1":"F1").value 

2.甚至可以一次性操作所有数据 eg.worksheet.usedrange.value 

这2个方式读的时候是返回2维数组。写的时候可以1维数组写入。