QTP 读取excel脚本程序

QTP 读取excel脚本程序，采用描述性的编程 

程序是小强老师的，呵呵，转一下，就是Browser("name:=百度一下，你就知道").进行了一下修改，开始是Browser("百度一下，你就知道").总是找不到对象，修改后就可以了

Dim ExcelBook,ExcelSheet,myExcelBook,myExcelSheet

filePath = "D:\a.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 = 1 To 4
 SystemUtil.Run"iexplore.exe","www.baidu.com"
    Browser("name:=百度一下，你就知道").Page("title:=百度一下，你就知道").WebEdit("name:=wd").Set myExcelSheet.Cells(i,1)
    Browser("name:=百度一下，你就知道").Page("title:=百度一下，你就知道").WebButton("name:=百度一下").Click
 SystemUtil.CloseProcessByName("iexplore.exe")

Next
myExcelBook.Save

ExcelBook.Quit
Set ExcelBook = Nothing

http://www.boobooke.com/bbs/viewthread.php?tid=5536&extra=page%3D1

小强作品：QTP之Excel操作