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! |
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 |