QTP中Excel读取与写入

 最近看了一下小强老师的视频关于QTP中Excel的操作，视频中只讲述了对Excel数据的读取没有讲到写入，今天本人对最近的学习总结一下，顺便也写写关于向Excel写数据的具体操作，数据应用是从小强老师视频里CP过来的，供大家学习参考用：

'定义变量
Dim fso,filePath,i
Dim ExcelBook, ExcelSheet, myExcelBook, myExcelSheet

'保存Excel表格所放的路径
filePath="E:\a.xls"

'创建Excel应用程序的对象
Set fso=CreateObject("Scripting.FileSystemobject")
Set ExcelBook=Createobject("Excel.Application")
Set ExcelSheet=Createobject("Excel.Sheet")

'把Excel表中的Sheet1给一个变量
Set myExcelBook=ExcelBook.WorkBooks.open(filePath)
Set myExcelSheet=myExcelBook.worksheets("Sheet1")

'创建一个描述性编程中的description对象，用来复习一下description的创建方法
Set myDesc = Description.Create()

'从Excel文件中循环读取数据
 For i=1 to 4
    systemutil.Run"iexplore.exe","www.baidu.com"
   
'给百度的文本框赋值，从myExcelSheet.Cells(i,1)Excel中读取第一列第i行
Browser("百度一下，你就知道").page("百度一下，你就知道").WebEdit("wd").Set myExcelSheet.Cells(i,1) 
Browser("百度一下，你就知道").page("百度一下，你就知道").Webbutton("name:=百度一下").click
   
myDesc("opentitle").value = "百度搜索_软件测试"

'分别判断弹出的窗口是否符合条件，如果是则Pass，否则Fail，将结果写入Excel第2列中。
'百度搜索_深圳-->此对象已加入受控库，百度搜索_播布客和百度搜索_小强这两个对象采用了描述性编程方式直接识别
   
If  Browser("百度搜索_深圳").page("百度搜索_深圳").Exist Then
    myExcelSheet.Cells(i,2).Font.Color = vbBlue
    myExcelSheet.Cells(i,2).Value ="Pass"
 else  if Browser(myDesc).page(myDesc).Exist then
          myExcelSheet.Cells(i,2).Font.Color = vbBlue
          myExcelSheet.Cells(i,2).Value="Pass"
       else if Browser("opentitle:=百度搜索_播布客").page("opentitle:=百度搜索_播布客").Exist then
               myExcelSheet.Cells(i,2).Font.Color = vbBlue
                myExcelSheet.Cells(i,2).Value="Pass"
            else if Browser("opentitle:=百度搜索_小强").page("opentitle:=百度搜索_小强").Exist then
                    myExcelSheet.Cells(i,2).Font.Color = vbBlue
                    myExcelSheet.Cells(i,2).Value="Pass" 
                 else
                    myExcelSheet.Cells(i,5).Font.Color = vbRed
                    myExcelSheet.Cells(i,2).Value="Fail"
                 end if
            end if
      end if
End If
 systemutil.CloseProcessByName("iexplore.exe")
   
 Next
'保存写入的Excel数据
myExcelBook.Save

ExcelBook.Quit
Set ExcelBook = Nothing