Help with code please....
 

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!

Help with code please....
 

Do you need to build the array first ?
Why not build it as you .Navigate2, or don't bother if you are not going to
use it later ?

And try it without the ( ).

With ThisWorkbook.Sheets("HiddenRec2")
Do Until .Cells(i, 2).Value = ""
UserForm2.WebBrowser2.Navigate2
"http://www.whatifsports.com/gd/rec_profile_top.asp?rid=" & .Cells(i,
2).Value & "&irp=0&aw=1"
'etc

NickHK

"CribbsStyle" wrote in message
oups.com...
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!

Help with code please....
 

So that code that you posted will go though each cell in column b on
that worksheet until it comes to a blank cell?

Help with code please....
 

Well, yes.
It's just a rearrangement of your code, using a "With
ThisWorkbook.Sheets("HiddenRec2")" block to shorten the code.

NickHK

"CribbsStyle" wrote in message
ps.com...
So that code that you posted will go though each cell in column b on
that worksheet until it comes to a blank cell?

Help with code please....
 

Nope, that code didnt work either. Any other ideas?

Help with code please....
 

The web page is not returned because the website does not accept the URL.
The actual code runs fine without error.
You need to make sure the web site will accept URLs like this and if so that
you have the correct format.
Maybe to do with the login requirements and/or cookies etc.

NickHK

"CribbsStyle" wrote in message
ps.com...
Nope, that code didnt work either. Any other ideas?

Help with code please....
 

Nah the original code works fine for me and some other people, but then
there are a few people where that error happens and I cant figure out
why. We all have the same most up-to- date version of Excel 2003.

Guess I shouldnt of mentioned this earlier.

NickHK wrote:
The web page is not returned because the website does not accept the URL.
The actual code runs fine without error.
You need to make sure the web site will accept URLs like this and if so that
you have the correct format.
Maybe to do with the login requirements and/or cookies etc.

NickHK

"CribbsStyle" wrote in message
ps.com...
Nope, that code didnt work either. Any other ideas?

Help with code please....
 

In any browser, say FireFox, if I try e.g.:
http://www.whatifsports.com/gd/rec_p...245&irp=0&aw=1

the website returns an error page.
Post an example of a URL that works.
Without that, it's hard if the site or browser control is the cause.

If you add :
Debug.Print UserForm2.WebBrowser2.LocationName
what do you see ?

NickHK

"CribbsStyle" wrote in message
ps.com...
Nah the original code works fine for me and some other people, but then
there are a few people where that error happens and I cant figure out
why. We all have the same most up-to- date version of Excel 2003.

Guess I shouldnt of mentioned this earlier.

NickHK wrote:
The web page is not returned because the website does not accept the
URL.
The actual code runs fine without error.
You need to make sure the web site will accept URLs like this and if so
that
you have the correct format.
Maybe to do with the login requirements and/or cookies etc.

NickHK

"CribbsStyle" wrote in message
ps.com...
Nope, that code didnt work either. Any other ideas?