TA的每日心情 | 奋斗 2015-4-17 14:03 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
5#
楼主 |
发表于 2015-5-29 16:12:42
|
只看该作者
我按照你说的执行了QTP,但是QTP没有执行GetTestObject这个函数
代码是这样
Function ReadFile(sFileName,sSheetName)
Dim oExcelapp
Dim oExcel
Dim oSheet
' Dim oRange
' Dim arrRange
On Error resume next
'创建EXCEL 应用程序对象
Set oExcelapp=CreateObject("Excel.Application")
oExcelapp.Visible = True
If err.number <>0 Then
msgbox "未能初始化Excel"&vbCrLf&_
"请确保Excel已安装", vbcritical
Exit function
End If
On error goto 0
On Error resume next
'打开Excel文件
set oExcel=oExcelapp.Workbooks.Open(sFileName)
oExcel.Worksheets(sSheetName).Activate
If err.number <>0 Then
msgbox "未能加载Excel文件"&vbCrLf&_
"请确保Excel文件路径正确或格式正确", vbcritical
Exit function
End If
On error goto 0
'获取表的使用范围 www.it165.net
'Set oSheet=oExcel.Worksheets(sSheetName).UsedRange
Set oSheet=oExcel.Worksheets(sSheetName).UsedRange
Set oRange=oSheet.Range("A1:Z200")
arrRange=oRange.value
oExcelapp.Workbooks.Close
Window("text:=Microsoft Excel").Close
ReadFile=arrRange
'无用语句
' Set oSheet=oExcel.Worksheets(sSheetName)
' For i=1 to 100
' If oSheet.cell(i,1).value= lookupstr Then
' ReadFile=oSheet.cell(i,2).value
' Exit function
' End If
' Next
'' 关闭工作薄
' oExcelapp.Workbooks.Item(1).Close
'' 退出Excel
' oExcelapp.Quit
' Set oExcelapp=nothing
End Function
'指定参数取用
'输入:
' ObjName:测试对象名称
' 返回:测试对象名称对应的字符串
Function GetTestObject(password)
Dim objArray
objArray=ReadFile("E:\vbs\122.xlsx","sheet1")
For i=1 to UBound(objArray,1)
If objArray(i,1)=objName Then
GetTestObject=objArray(i,2)
Exit function
End If
Next
End Function
E:\截图\QQ截图20150529161008.png |
|