试图将数据从网站提取到 Excel 中。 For循环不起作用

Question

我正在尝试从以下网站提取有关 NFL 新兵的数据：

http://espn.go.com/college-sports/football/recruiting/rankings/_/class/2013

我需要访问每个位置并将信息复制粘贴/提取到 Excel 电子表格中。正如您在下面看到的，每个位置的 URL 的唯一区别是大写的 VARIABLE。我需要这个变量来从运动员转变为角卫再到外接手。

http://espn.go.com/college-sports/football/recruiting/playerrankings/_/position/VARIABLE/class/2013/view/position

这是我正在使用的代码：

Dim array_example(18) As String

Sub Macro1()


        array_example(0) = "athlete"
        array_example(1) = "cornerback"
        array_example(2) = "defensive-end"
        array_example(3) = "defensive-tackle"
        array_example(4) = "fullback"
        array_example(5) = "inside-linebacker"
        array_example(6) = "kicker"
        array_example(7) = "offensive-center"
        array_example(8) = "offensive-guard"
        array_example(9) = "outside-linebacker"
        array_example(10) = "offensive-tackle"
        array_example(11) = "quarterback-dual-threat"
        array_example(12) = "quarterback-pocket-passer"
        array_example(13) = "running-back"
        array_example(14) = "safety"
        array_example(15) = "tight-end-h"
        array_example(16) = "tight-end-y"
        array_example(17) = "wide-receiver"

        For i = 0 To 17

            LastUsedRow = ActiveSheet.Range("A1").Offset(Sheet1.Rows.Count - 1, 0).End(xlUp).Row

            LastEmptyRow = LastUsedRow + 1

            Cell = "A" & LastEmptyRow


            With ActiveSheet.QueryTables.Add(Connection:="URL;http://espn.go.com/college-sports/football/recruiting/playerrankings/_/position/" & array_example(i) & "/class/2013/view/position" & "", Destination:=Range("" & Cell & ""))
                .Name = "s"
                .FieldNames = True
                .RowNumbers = True
                .FillAdjacentFormulas = False
                .PreserveFormatting = True
                .RefreshOnFileOpen = False
                .BackgroundQuery = True
                .RefreshStyle = xlInsertEntireCells
                .SavePassword = False
                .SaveData = True
                .AdjustColumnWidth = True
                .RefreshPeriod = 0
                .WebSelectionType = xlAllTables
                .WebFormatting = xlWebFormattingNone
                .WebPreFormattedTextToColumns = True
                .WebConsecutiveDelimitersAsOne = False
                .WebSingleBlockTextImport = False
                .WebDisableDateRecognition = False
                .WebDisableRedirections = False
                .Refresh BackgroundQuery:=True


            End With

        Next i

End Sub

我的问题是，每次我运行这段代码时，excel 都会卡住（有一个小圆盘一直为光标旋转）。当我按 Escape 停止代码时，我发现只有一个位置已复制到 Excel 电子表格中。您能否看一下我的代码，让我知道我可以更改哪些内容以循环遍历所有位置并将所有信息（一个接一个）复制到电子表格中？

非常感谢。

Answer 1

当我第一次运行代码时，我的经历与您描述的相同。我等了大约 2 分钟并终止了该进程，发现只有前 100 个已加载。

我进去并将这一行更改为false，以便我可以看到它正在加载。

.Refresh BackgroundQuery:=False

---

我还在Next i 之前添加了一个调试行，这样我就可以观察它是否真的遍历了所有地址。

    End With
  Debug.Print "next " & i
Next i

---

现在，当我运行它时，它只用了大约 30 秒就完成了所有 18 个地址。 excel 中超过 3000 行的结果。

然后我添加了一个简单的计时器来查看每个步骤需要多长时间。这次总共只用了 12 秒。

next 0 - 0 seconds
next 1 - 1 seconds
next 2 - 1 seconds
next 3 - 1 seconds
next 4 - 0 seconds
next 5 - 0 seconds
next 6 - 3 seconds
next 7 - 1 seconds
next 8 - 0 seconds
next 9 - 1 seconds
next 10 - 0 seconds
next 11 - 0 seconds
next 12 - 2 seconds
next 13 - 1 seconds
next 14 - 0 seconds
next 15 - 0 seconds
next 16 - 1 seconds
next 17 - 0 seconds
Total Time: 12

---

接下来，将 backgroundQuery 改回 true。计时器在不到 1 秒的时间内计数了所有 18 个结果，并且只显示了前 100 个结果。就像 excel 在设置所有连接之前运行代码一样，所以它只有足够的时间来设置第一个。

所以，我建议将后台查询设置为 false。每次我尝试的时间都在 12 到 30 秒之间。

在这里你可以看到它一直通过宽接收器。

---

嵌套循环问题

将外部循环写为年份循环。所以在For i = 0 To 17之前加上这个：

  For x = 2006 to 2013
    For i = 0 To 17

     '...continue your code

     ' Change With line to this:
     With ActiveSheet.QueryTables.Add(Connection:="URL;http://espn.go.com/college-sports/football/recruiting/playerrankings/_/position/" & array_example(i) & "/class/" & CStr(x) & "/view/position" & "", Destination:=Range("" & Cell & ""))

     '...continue your code

   Next i
  Next x
End Sub

Answer 2

您的代码运行良好。也许您的互联网连接速度很慢/没有网络连接来获取数据。

这就是它的样子

我获得了 100 个 WR。如果我只是第一次运行循环并停止它，我会得到 100 ATH。

看起来您的 for 循环正在运行并将您的 QueryTable 放在一行中，然后在数据填充之前将下一个放在它下面的一行中，可能会覆盖它。我会把每一个都放在一个单独的工作表中。