Help with code please...

  • Thread starter Thread starter CribbsStyle
  • Start date Start date
C

CribbsStyle

Here's my Code...
---------------------------------------------------------
Sub recruitem3()
Dim arrExcelValues()
i = 1
x = 0

Do Until ThisWorkbook.Sheets("HiddenRec2").Cells(i, 2).Value = ""
ReDim Preserve arrExcelValues(x)
arrExcelValues(x) = ThisWorkbook.Sheets("HiddenRec2").Cells(i,
2).Value
i = i + 1
x = x + 1
Loop
For Each StrItem In arrExcelValues
UserForm2.WebBrowser2.Navigate2
("http://www.whatifsports.com/gd/rec_profile_top.asp?rid=" & StrItem &
"&irp=0&aw=1")
Do
DoEvents
Loop Until UserForm2.WebBrowser2.Busy = False
Next
answer = MsgBox("Done! Would You Like to Recruit More?", vbYesNo,
"DONE!")
If answer = vbNo Then
UserForm2.Hide
Else
End If


End Sub
-------------------------------------------------------


Basically have a list of numbers in the HiddenRec2 sheet in Columb B
starting at row 1. The end row can vary which is why I use the above
code.


The webbrowser needs to load the url completly before going to the next

url.


Here's the error message...
--------------------------------------------------------
Runtime Error -2147024726 (800700aa)
Method 'Navigate' of object 'IWebBrowser2' failed


Doing debug has this line highlighted in yellow...
UserForm2.WebBrowser2.Navigate2
("http://www.whatifsports.com/gd/rec_profile_top.asp?rid=" & StrItem &
"&irp=0&aw=1")


Any help would be appreciated!
 
If you cannot make it to the next step, then there may be a problem with the
code. I would try stepping through it if that were the case to make sure of
where the exact fault may be.

If you need some way of delaying the next step, you could try something like
Application.Wait Now + TimeValue("00:00:01") ' A one second delay
timer
after the line of code that needs to load up (change the timer to the length
you need).

Mark Ivey
 
Back
Top