Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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! |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with code please....
Nope, that code didnt work either. Any other ideas?
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
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? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
Drop Down/List w/Code and Definition, only code entered when selec | Excel Worksheet Functions | |||
Shorten code to apply to all sheets except a few, instead of individually naming them, and later adding to code. | Excel Programming | |||
Protect Sheet with code, but then code will not Paste error. How do i get around this. Please read for explainations.... | Excel Programming | |||
Excel code convert to Access code - Concat & eliminate duplicates | Excel Programming |