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 时间: 2011-4-3 20:52
首先，cells方法只有一个参数
其次，没见你哪里对Real赋值作者: 蓝色天空- 时间: 2011-4-4 10:58 回复 2#lyscser