小编Dou*_*own的帖子

我试图从网站上获取一些足球运动员数据来填补私人使用的数据库.我已经在下面提供了整个代码.第一部分是一个调用第二个函数来填充数据库的循环器.去年夏天我在MSAccess中运行此代码来填充数据库并且效果很好.

现在我只是在程序被挂起之前让几个团队填补

While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE: DoEvents: Wend

我搜索了无数网站有关此错误,并尝试通过放入子函数等待一段时间或其他解决方案来更改此代码.没有人解决这个问题.我也尝试在多台计算机上运行它.

第一台计算机通过3个团队(或第二个功能的三个调用).第二个较慢的计算机通过5个团队.两人最终都挂了.第一台计算机具有Internet Explorer 10,第二台计算机具有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 …