Edit Question - KnowledgeHub

Title Body

I am trying to grab some football player data from a website to fill a privately used database. I've included the entire code below. This first section is a looper that calls the second function to fill a database. I've run this code in MSAccess to fill a database last summer and it worked great. Now I am only getting a few teams to fill before the program gets hung up at While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend I've searched countless websites regarding this error and tried changing this code by putting in sub function to wait a period of seconds or other work-arounds. None of those solve the issue. I've also tried running this on multiple computers. The first computer made it through 3 teams (or three calls of the 2nd function). The second slower computer makes it through 5 teams. Both eventually hang. The 1st computer has Internet Explorer 10 and the second has IE8. Sub Parse_NFL_RawSalaries() Status ("Importing NFL Salary Information.") Dim mydb As Database Dim teamdata As DAO.Recordset Dim i As Integer Dim j As Double Set mydb = CurrentDb() Set teamdata = mydb.OpenRecordset("TEAM") i = 1 With teamdata Do Until .EOF Call Parse_Team_RawSalaries(teamdata![RotoworldTeam]) .MoveNext i = i + 1 j = i / 32 Status("Importing NFL Salary Information. " & Str(Round(j * 100, 0)) & "% done") Loop End With teamdata.Close ' reset variables Set teamdata = Nothing Set mydb = Nothing Status ("") 'resets the status bar End Sub Second function: Function Parse_Team_RawSalaries(Team As String) Dim mydb As Database Dim rst As DAO.Recordset Dim IE As InternetExplorer Dim HTMLdoc As HTMLDocument Dim TABLEelements As IHTMLElementCollection Dim TRelements As IHTMLElementCollection Dim TDelements As IHTMLElementCo

Tags (comma-separated) Cancel