QTP脚本编程讲义探析.ppt

QTP基础操作;QTP识别对象原理;QTP操作对象的原理;QTP获取文本框里的值的两个方法;QTP获得随机数的两个方法;QTP读写本地Excel文件;把下载的记录 写到 EXCEL 保存??????? Dim xlApp??????? Dim xlBook??????? Dim xlSheet??????? Set xlApp = CreateObject(Excel.Application)??? 创建EXCEL对象??????? Set xlBook = xlApp.Workbooks.Open(D:\OfficialLoginTesting\不同状态家长和老师登陆的班级树情况.xls)??? 打开已经存在的EXCEL工件簿文件??????? xlApp.Visible = True ? 设置EXCEL对象可见（或不可见）??????? Set xlSheet = xlBook.Worksheets(sheet1)?? 设置活动工作表??????? xlsRowCount = xlSheet.UsedRange.Rows.Count?? ??????? xlsColumnCount = xlSheet.UsedRange.Columns.Count??? ? If(Browser(南通家校网).Page(南通家校网_2).Image(open).Check (CheckPoint(open)))? Then??????? xlSheet.Cells(j, 7) = P?? 给单元格（row,col）赋值??xlSheet.Cells(j, 8) = 有班级树?? 给单元格（row,col）赋值???? xlBook.Close (True) 关闭工作簿??????? xlApp.Quit 结束EXCEL对象?????? Set xlApp = Nothing 释放xlApp对象 ? Else ?????? xlSheet.Cells(j, 7) =F? 给单元格（row,col）赋值??? xlSheet.Cells(j, 8) = 没有班级树?? 给单元格（row,col）赋值???? xlBook.Close (True) 关闭工作簿??????? xlApp.Quit 结束EXCEL对象?????? Set xlApp = Nothing 释放xlApp对象? ? End If? Browser(title:=南通家校网).CloseNext; 输入：???????????? sFileName： Excel文件???????????? sSheetName：表单名称 返回：???????????? 包含Excel数据的数组Function ReadFile(sFileName,sSheetName)?????? Dim oExcel?????? Dim oSheet?????? Dim oRange?????? Dim arrRange??????? On Error Resume Next?????????? 创建Excel应用程序对象????????????? Set oExcel = CreateObject(Excel.Application)????????????? If err.Number 0 Then???????????????????? MsgBox 未能初始化Excel vbCrLf _???????????????????????????????? 请确保Excel已安装, vbCritical???????????????????? Exit Function????????????? End If?????? On Error Goto 0??????????????????? ?????? On Error Resume Next???????????????????? 打开Excel文件???????????????????? oExcel.Workbooks.Open(sFileName)????????????????? If err.Number 0 Then??????????????????????????? MsgBox 未能加载Excel文件 vbCrLf _?????????????????????????????????? 请确保Excel文件路径正确或格式正确, vbCritical??????????????????????????? Exit Function???????????????????? End If??