使用 VBA 循环提取 HTML 数据的各种错误

Question

我收到以下 VBA 代码的各种错误（最近的错误是运行时错误“70”：权限被拒绝）。基本上，代码/工作表连接到客户的 Intranet IE 数据库，搜索客户活动并将任何活动导入工作表（最终将使用该活动进行报告）。这是我遇到错误的地方，具体取决于我搜索的时间长短我有时要提取多个页面的活动，这需要单击“下一步”按钮并从每个页面中提取数据，直到不再有“下一个” " 按钮（没有更多活动）。我设置的循环将从第一页拉出，单击“下一步”按钮，然后有时会从第二页拉出，但随后会出现错误。所以我认为错误与页面的加载有关，但我添加了暂停以允许加载但仍然遇到相同的错误。我真的被困在这个问题上，不幸的是，在我解决这个问题之前，我无法推进这个项目。

这里是sn-p的代码：

    Dim TDelements As IHTMLElementCollection
    Dim TDelement As HTMLTableCell
    Dim r As Long, i As Long
    Dim e As Object

    Set TDelements = IE.document.getElementsByTagName("tr")
    r = 0
    For i = 1 To 1
        Application.Wait Now + TimeValue("00:00:03")
        For Each TDelement In TDelements
            If TDelement.className = "searchActivityResultsContent" Then
                Sheet1.Range("E1").Offset(r, 0).Value = TDelement.ChildNodes(8).innerText
                r = r + 1
            ElseIf TDelement.className = "searchActivityResultsContent" Then
                Sheet1.Range("E1").Offset(r, 0).Value = TDelement.ChildNodes(8).innerText
                r = r + 1
            End If
        Next
        Application.Wait Now + TimeValue("00:00:02")
        Set elems = IE.document.getElementsByTagName("input")
        For Each e In elems
            If e.Value = "Next Results" Then
                e.Click
                i = 0
                Exit For
            End If
        Next e
    Next i
    Do Until Not IE.Busy And IE.readyState = 4
        DoEvents
    Loop
    IE.Quit
End Sub

任何帮助/建议将不胜感激。谢谢！

Answer 1

查看您的代码：

'getting any TD elements here
Set TDelements = IE.document.getElementsByTagName("tr")

'waiting here....
Application.Wait Now + TimeValue("00:00:03")

'now trying to use items in TDelements...
For Each TDelement In TDelements
   '...
Next

您在使用Application.Wait 时是否正在等待页面加载？

如果是，那么您应该知道TDelements 不是动态 - 它不会在加载新的 TD 元素时自行更新：它只是当您出现时的元素快照叫getElementsByTagName("tr")。因此，在等待之后调用它。