数据驱动在QTP中的运用
2009-09-29 18:31
197 查看
1.对EXCEL文件进行写操作
Option Explicit
Dim fso, ddFilePath, i
Dim ExcelBook, ExcelSheet
ddFilePath = Environment.Value("TestDir") & "/ddFile.xls"
Set fso = CreateObject("scrīpting.FileSystemObject")
If fso.FileExists(ddFilePath) Then
fso.DeleteFile(ddFilePath)
End If
wait 3
Set ExcelBook = CreateObject("Excel.Application")
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.visible = False
ExcelSheet.ActiveSheet.Cells(1,1).Value = "Agent Name"
ExcelSheet.ActiveSheet.Cells(1,2).Value = "Password"
ExcelSheet.ActiveSheet.Cells(1,3).Value = "Expire Value"
ExcelSheet.ActiveSheet.Cells(1,4).Value = "Fact Value"
ExcelSheet.ActiveSheet.Cells(1,5).Value = "Execute Result"
ExcelSheet.ActiveSheet.Cells(2,1).Value = "ad"
ExcelSheet.ActiveSheet.Cells(2,2).Value = "Mercury"
ExcelSheet.ActiveSheet.Cells(2,3).Value = "Agent name must be at least 4 characters long."
ExcelSheet.ActiveSheet.Cells(3,1).Value = "Admin"
ExcelSheet.ActiveSheet.Cells(3,2).Value = "Merc"
ExcelSheet.ActiveSheet.Cells(3,3).Value = "Incorrect password. Please try again"
ExcelSheet.ActiveSheet.Cells(4,1).Value = "Admin"
ExcelSheet.ActiveSheet.Cells(4,2).Value = "Mercury"
ExcelSheet.ActiveSheet.Cells(4,3).Value = "Flight Reservation"
ExcelSheet.SaveAs ddFilePath
ExcelBook.Quit
Set ExcelBook = Nothing
2.对EXCEL文件进行[b]读写操作[/b]
Option Explicit
Dim fso, filePath, i
Dim ExcelBook, ExcelSheet, myExcelBook, myExcelSheet
filePath = Environment.Value("TestDir") & "/ddFile.xls"
Set fso = CreateObject("scrīpting.FileSystemObject")
Set ExcelBook = CreateObject("Excel.Application")
Set ExcelSheet = CreateObject("Excel.Sheet")
Set myExcelBook = ExcelBook.WorkBooks.Open(filePath)
Set myExcelSheet = myExcelBook.WorkSheets("Sheet1")
For i = 2 To 4
SystemUtil.CloseProcessByName "Flight4a.exe"
SystemUtil.Run Environment.Value("ProductDir") & "/samples/flight/app/flight4a.exe"
Dialog("Login").WinEdit("Agent Name:").Set myExcelSheet.Cells(i,1)
Dialog("Login").WinEdit("Password:").Set myExcelSheet.Cells(i,2)
Dialog("Login").WinButton("OK").Click
If Dialog("Login").Dialog("Flight Reservations").Exist Then
myExcelSheet.Cells(i,4).Value = Dialog("Login").Dialog("Flight Reservations").Static("errInfo").GetROProperty("text")
If Dialog("Login").Dialog("Flight Reservations").Static("errInfo").GetROProperty("text") = myExcelSheet.Cells(i,3) Then
myExcelSheet.Cells(i,5).Font.Color = vbBlue
myExcelSheet.Cells(i,5).Value = "测试成功"
Else
myExcelSheet.Cells(i,5).Font.Color = vbRed
myExcelSheet.Cells(i,5).Value = "测试失败"
End If
Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
Dialog("Login").WinButton("Cancel").Click
Elseif Window("Flight Reservation").Exist Then
myExcelSheet.Cells(i,4).Value = Window("Flight Reservation").GetROProperty("text")
myExcelSheet.Cells(i,5).Font.Color = vbBlue
myExcelSheet.Cells(i,5).Value = "测试成功"
Window("Flight Reservation").Close
Else
logFile.WriteLine "没有窗口弹出,测试失败!"
ExitAction
End If
Next
myExcelBook.Save
ExcelBook.Quit
Set ExcelBook = Nothing
Option Explicit
Dim fso, ddFilePath, i
Dim ExcelBook, ExcelSheet
ddFilePath = Environment.Value("TestDir") & "/ddFile.xls"
Set fso = CreateObject("scrīpting.FileSystemObject")
If fso.FileExists(ddFilePath) Then
fso.DeleteFile(ddFilePath)
End If
wait 3
Set ExcelBook = CreateObject("Excel.Application")
Set ExcelSheet = CreateObject("Excel.Sheet")
ExcelSheet.Application.visible = False
ExcelSheet.ActiveSheet.Cells(1,1).Value = "Agent Name"
ExcelSheet.ActiveSheet.Cells(1,2).Value = "Password"
ExcelSheet.ActiveSheet.Cells(1,3).Value = "Expire Value"
ExcelSheet.ActiveSheet.Cells(1,4).Value = "Fact Value"
ExcelSheet.ActiveSheet.Cells(1,5).Value = "Execute Result"
ExcelSheet.ActiveSheet.Cells(2,1).Value = "ad"
ExcelSheet.ActiveSheet.Cells(2,2).Value = "Mercury"
ExcelSheet.ActiveSheet.Cells(2,3).Value = "Agent name must be at least 4 characters long."
ExcelSheet.ActiveSheet.Cells(3,1).Value = "Admin"
ExcelSheet.ActiveSheet.Cells(3,2).Value = "Merc"
ExcelSheet.ActiveSheet.Cells(3,3).Value = "Incorrect password. Please try again"
ExcelSheet.ActiveSheet.Cells(4,1).Value = "Admin"
ExcelSheet.ActiveSheet.Cells(4,2).Value = "Mercury"
ExcelSheet.ActiveSheet.Cells(4,3).Value = "Flight Reservation"
ExcelSheet.SaveAs ddFilePath
ExcelBook.Quit
Set ExcelBook = Nothing
2.对EXCEL文件进行[b]读写操作[/b]
Option Explicit
Dim fso, filePath, i
Dim ExcelBook, ExcelSheet, myExcelBook, myExcelSheet
filePath = Environment.Value("TestDir") & "/ddFile.xls"
Set fso = CreateObject("scrīpting.FileSystemObject")
Set ExcelBook = CreateObject("Excel.Application")
Set ExcelSheet = CreateObject("Excel.Sheet")
Set myExcelBook = ExcelBook.WorkBooks.Open(filePath)
Set myExcelSheet = myExcelBook.WorkSheets("Sheet1")
For i = 2 To 4
SystemUtil.CloseProcessByName "Flight4a.exe"
SystemUtil.Run Environment.Value("ProductDir") & "/samples/flight/app/flight4a.exe"
Dialog("Login").WinEdit("Agent Name:").Set myExcelSheet.Cells(i,1)
Dialog("Login").WinEdit("Password:").Set myExcelSheet.Cells(i,2)
Dialog("Login").WinButton("OK").Click
If Dialog("Login").Dialog("Flight Reservations").Exist Then
myExcelSheet.Cells(i,4).Value = Dialog("Login").Dialog("Flight Reservations").Static("errInfo").GetROProperty("text")
If Dialog("Login").Dialog("Flight Reservations").Static("errInfo").GetROProperty("text") = myExcelSheet.Cells(i,3) Then
myExcelSheet.Cells(i,5).Font.Color = vbBlue
myExcelSheet.Cells(i,5).Value = "测试成功"
Else
myExcelSheet.Cells(i,5).Font.Color = vbRed
myExcelSheet.Cells(i,5).Value = "测试失败"
End If
Dialog("Login").Dialog("Flight Reservations").WinButton("确定").Click
Dialog("Login").WinButton("Cancel").Click
Elseif Window("Flight Reservation").Exist Then
myExcelSheet.Cells(i,4).Value = Window("Flight Reservation").GetROProperty("text")
myExcelSheet.Cells(i,5).Font.Color = vbBlue
myExcelSheet.Cells(i,5).Value = "测试成功"
Window("Flight Reservation").Close
Else
logFile.WriteLine "没有窗口弹出,测试失败!"
ExitAction
End If
Next
myExcelBook.Save
ExcelBook.Quit
Set ExcelBook = Nothing
相关文章推荐
- 数据驱动在QTP中的运用(一) - 自定义TXT文件
- 数据驱动在QTP中的运用(二) - 自定义EXCEL文件
- 数据驱动在QTP的运用
- 数据驱动在QTP中的运用(三) - 使用ADODB导入EXCEL数据文件
- 数据驱动在QTP中的运用
- 数据驱动在QTP中的运用(四) - 使用SQL数据库
- QTP测试的数据驱动
- [转]QTP数据驱动和关键字驱动
- 7、struts2 案例( 模型驱动、 防止表单重复提交--拦截器 、数据回显 、值栈 、 OGNL表达式综合运用)
- QTP数据驱动之读取Excel数据
- QTP数据驱动和关键字驱动
- qtp_数据驱动
- QTP的那些事--在QC中importsheet方式导入excel数据驱动
- 信号驱动方式处理UDP数据
- Vue.js数据驱动的简单例子
- TestNG如何用excel来做数据驱动
- 数据驱动ddt+excel数据读取
- 以数据驱动和最低成本,来实现易信发现页改版
- USB驱动开发之远程访问USB设备扩展(linux平台USB设备数据采集端)
- 自动化测试过程中如何使用excel数据驱动(下)