数据驱动在QTP中的运用(二) - 自定义EXCEL文件

原创 2007年09月14日 23:24:00

本节共有两个实例,第一个是把测试用例的数据写到EXCEL文件中,第二个是通过读取EXCEL文件中的数据,并把执行结果写入到EXCEL文件中。

1.对EXCEL文件进行写操作
 
Option Explicit
 
Dim fso, ddFilePath, i
Dim ExcelBook, ExcelSheet
 
ddFilePath = Environment.Value("TestDir") & "/ddFile.xls"
 
Set fso = CreateObject("Scripting.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文件进行读写操作
Option Explicit
 
Dim fso, filePath, i
Dim ExcelBook, ExcelSheet, myExcelBook, myExcelSheet
 
filePath = Environment.Value("TestDir") & "/ddFile.xls"
 
Set fso = CreateObject("Scripting.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运行结果写入到excel里面

qtp运行结果写入到excel里面 qtp中的数据excel中的数据,但是一条条数据运行后会对应一个个pass或fail,针对这个运行的结果,一行一行的写入到excel中。有时到的大神,请帮忙并...
  • wangsy0202
  • wangsy0202
  • 2016年12月02日 16:50
  • 515

数据驱动测试三:使用TestNG、Apache POI和Excel文件进行数据驱动

一、测试环境准备 1、从http://www.apache.org/dyn/closer.cgi/poi/release/bin/poi-bin/poi-bin-3.14.zip下载POI的压缩包文...
  • heart_1014
  • heart_1014
  • 2016年07月24日 21:46
  • 2032

数据驱动在QTP中的运用

  • qiulingfeng
  • qiulingfeng
  • 2009年09月29日 18:31
  • 280

数据驱动测试一:使用TestNG进行数据驱动

使用TestNG中@DataProvider注解定义当前方法中的返回对象作为测试脚本的测试数据集进行数据驱动...
  • heart_1014
  • heart_1014
  • 2016年07月24日 10:47
  • 3115

数据驱动在QTP中的运用(一) - 自定义TXT文件

以下是对Mercury Interactive公司的Flight飞机订票系统的Login模块进行数据驱动测试的VBScript脚本实例,通过对自定义TXT文件进行读写操作。Option Explici...
  • softesting
  • softesting
  • 2007年09月14日 22:28
  • 1152

excel数据驱动接口测试框架

接口测试自动化框架搭建                                                                                         ...
  • http_tester
  • http_tester
  • 2016年12月28日 09:44
  • 1571

QTP-实现对Excel文件的读写

                 上一篇文章讲了对文本文件的读写,相对来说比较简单,今天讲一下对Excel文件的读写。                首先是读取,对Excel文件的读取一般有两种方式:...
  • lym_372
  • lym_372
  • 2010年06月21日 13:10
  • 8419

QTP如何获取本地Excel文件的行和列

代码如下:Set  excel=CreateObject("Excel.Application")set openexcel=excel.Workbooks.Open("这里输入EXCEL路径")ro...
  • meiyuan1304
  • meiyuan1304
  • 2010年08月02日 21:08
  • 1516

qtp 导入excel文件

1.代码     Dim  datapath datapath="F:\vcg.xls" DataTable.ImportSheet datapath,"heshuo","Action1" c...
  • hshshshshs1
  • hshshshshs1
  • 2014年12月29日 14:46
  • 1079

qtp参数化-通过excel导入到datatable中

1.说明:sheet1 是EXCEL的标签页 actiion1是QTP DATATABLE的标签页 DataTable.ImportSheet "C:\login.xls", "sheet1", ...
  • krise00
  • krise00
  • 2013年11月28日 16:20
  • 1279
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:数据驱动在QTP中的运用(二) - 自定义EXCEL文件
举报原因:
原因补充:

(最多只允许输入30个字)