QTP不能循环取EXECL中的值，求助

蓝色天空-

大家好，在实际过程中遇到一个问题，代码如下：

Dim fso,filepath,i
Dim execlbook,execlsheet,myexeclbook,myexeclsheet
Dim Real
filepath="c:\a.xls"
Set fso=createobject("Scripting.FileSystemObject")
Set execlbook=CreateObject("Excel.Application")
Set execlsheet=CreateObject("Excel.Sheet")
Set myexeclbook=execlbook.workbooks.open(filepath)
Set myexeclsheet=myexeclbook.worksheets("sheet1")

For i=1 to 4
        SystemUtil.Run"iexplore.exe","www.baidu.com"
       
Browser("启用了 Internet Explorer").Navigate "http://www.baidu.com/"
Browser("启用了 Internet Explorer").Page("百度一下，你就知道").WebEdit("wd").Set myexeclsheet.cells(i)
Browser("启用了 Internet Explorer").Page("百度一下，你就知道").WebEdit("wd").Output(CheckPoint("wd"))
Browser("启用了 Internet Explorer").Page("百度一下，你就知道").WebButton("百度一下").Click
Browser("启用了 Internet Explorer").Close
msgbox (Real)
wait(3)
'SystemUtil.CloseProcessByName("iexplore.exe')
Next
myexeclbook.save
execlbook.quit
Set execlbook=nothing
我在c盘下创建了a.xls这个文件，并有4行参数，但是通过插入输出点发现：
Browser("启用了 Internet Explorer").Page("百度一下，你就知道").WebEdit("wd").Set myexeclsheet.cells(i)
这句执行第一次正确取值，但是第二次取空值。请高手帮忙解决下。。呵呵

lyscser

首先，cells方法只有一个参数
其次，没见你哪里对Real赋值

蓝色天空-

回复 2# lyscser


    嗯，谢谢了，昨天发现了，原来粗心cells方法只写了一个参数。

testware1

这些方法都可以参考QTP的帮助文档