excel中读取参数并且用计算器计算结果与预期结果相比较

DataStr="d:\data1.xls"'设置读取excel路径
Set ExlObj=createobject("excel.application")'打开excel对象
ExlObj.Visible=true'设置可见性
ExlObj.DisplayAlerts=false'关闭警告提示框
Set book=ExlObj.Workbooks.Open(DataStr)'打开excel文档对象
Set sheet=book.Worksheets("sheet1").usedrange'设置第一个表的可读区域
rowsCount=sheet.rows.count'第一张表中可读区域的行数
For i = 2 To rowsCount
num1=sheet.cells(i,1)
num2=sheet.cells(i,2)
num3=sheet.cells(i,3)
leng_1=len(num1)
leng_2=len(num2)
'
For j = 1 To leng_1 Step 1
butt=mid(num1,j,1)
setClick(butt)
Next
Window("text:=计算器").WinButton("window id:=93").Click
For z = 1 To leng_2 Step 1
butt=mid(num2,z,1)
setClick(butt)
Next
Window("text:=计算器").WinButton("window id:=121").Click
n=Window("text:=计算器").Static("window id:=150").GetROProperty("text")
sheet.cells(i,4).value=n
If cdbl(n)=cdbl(num3) Then
sheet.cells(i,5).value="pass"
Else
sheet.cells(i,5).value="fail"
End If
Next

Sub setClick(sclick)
    id=13&sclick
    Window("text:=计算器").WinButton("window id:="&id).Click
End Sub
book.Close
ExlObj.Quit
Set book=nothing
Set ExlObj=nothing