Dim filePath,sheetName '定义参数数据文件的路径
Dim sheetRows,sheetColumns'定义行数和列数
Dim excelBook,myExcelBook,myExcelSheet
filePath = Parameter("excelBook")
sheetName = Parameter("excelSheet")
Set excelBook = CreateObject("Excel.Application")
Set myExcelBook = excelBook.Workbooks.Open(filePath)
Set myExcelSheet = myExcelBook.Worksheets(sheetName)
sheetRows = myExcelSheet.UsedRange.Rows.Count'获取行数
sheetColumns = myExcelSheet.UsedRange.Columns.Count
Dim data()'定义数组读取单元格值
Redim data(sheetRows,sheetColumns)'重新定义数组
Dim i,j'定义循环变量
For i=2 To sheetRows
For j = 1 To sheetColumns
data(i,j) = myExcelSheet.Cells(i,j).value'获取单元格值
Next
Next
ExcelBook.Quit
Set ExcelBook=Nothing
我是这样引用的,不知道是不是与你说的一样。
准备工作:QTP11.5安装教程:http://www.iquicktest.com/qtp-uft-11-5-download.html
注: QuickTest Pro(QTP)11.5后更名为UnifiedFunctional Testing(UFT)
1、安装后打开QTP,勾选Web add-in,进入QTP后File-New-Test。
2、选择File菜单下New-Test。
选择GUI Test,输入Name“第一个脚本”,Create。
3、打开IE,进入百度首页www.baidu.com。
4、使用Tools菜单下的ObjectSpy。
5、点击手型按钮,点击后鼠标变为手型,再点击浏览器上的“百度一下”按钮。
6、正常识别结果如图:
未能识别结果如图:
如果未能识别对象:
1、检查QTP版本、浏览器版本、 *** 作系统版本,QTP安装目录“\help”下的QTP_PAM.pdf或UFT_PAM.pdf文件提供了支持的 *** 作系统、插件版本、web-addin支持的浏览器及版本、支持的其他HP工具及版本等信息。
1.1、例如测试WEB时,可以从这个PDF文档里得出支持的组合如XPsp3+QTP11+IE8,Win7+UFT11.5+IE9,UFT11.53+Chrome30,不支持组合如QTP11+FireFox27。
1.2、QTP11官方提供了IE9补丁,安装后可以识别IE9对象。
1.3、64位系统下的IE也分32位和64位,例如QTP11测试64位IE,还需要64位补丁。
QTP11补丁:http://blog.csdn.net/zzxxbb112/article/details/6968418
QTP11.5补丁:http://www.iquicktest.com/uft-qtp11-5-patches.html
2、检查IE是否加载了BHOmanagerClass。IE设置-Internet选项-程序-管理加载项-所有加载项。如果BHOmanager Class是未启用状态,改为启用。
qtp连oracle数据库,提示“[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序”第一,QTP本身自带有个连接数据库的小工具,你用小工具确保连接字符串正确。PS:网上有些文件可能给的连接字符串不正确。
第二,在第一步的基础上连接数据库成功后,第二步请用Command对象查询数据。
如果使用Record或者Connection去查询可能会导致多次查询后,Session达到最大没有释放,或者受到数据库Server限制短时间内多次访问阻止的配置。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)