Hi, I have a vbs script that takes values from an excel sheet and enters them into a website but when I hit a while condition I get a runtime error 800a01b6...When it hits the below with statement it errors out.
With IE.document
.all.View.Click
End With
Dim xl,xlwb
Set xl=CreateObject("Excel.Application")
xl.visible=TRUE
set xlwb=xl.WorkBooks.Open("workbook")
Set wshShell = WScript.CreateObject ("WSCript.shell")
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = true
..
..
..
..
url=urlstart+xl.cells(i,2)+urlend
IE.navigate2 url
While ie.Busy = True
WScript.Sleep 100
Wend
While ie.ReadyState <> 4
WScript.Sleep 100
Wend
WScript.Sleep 500
With IE.document
.all.View.Click
End With
With IE.document
.all.View.Click
End With
Dim xl,xlwb
Set xl=CreateObject("Excel.Application")
xl.visible=TRUE
set xlwb=xl.WorkBooks.Open("workbook")
Set wshShell = WScript.CreateObject ("WSCript.shell")
Set IE = CreateObject("InternetExplorer.Application")
IE.visible = true
..
..
..
..
url=urlstart+xl.cells(i,2)+urlend
IE.navigate2 url
While ie.Busy = True
WScript.Sleep 100
Wend
While ie.ReadyState <> 4
WScript.Sleep 100
Wend
WScript.Sleep 500
With IE.document
.all.View.Click
End With