使用 Excel VBA 循环浏览 URL 列表

Question

我现在对 Excel 更加熟悉了，但有一件事仍然让我感到困惑——如何在循环中循环浏览 URL。我目前的难题是我有这个包的 URL 列表，并且需要使用其 HTML 获取每个页面上每个包的状态。我目前必须在列表中循环的是：

Sub TrackingDeliveryStatusResults()

Dim IE As Object
Dim URL As Range
Dim wb1 As Workbook, ws1 As Worksheet

Dim filterRange As Range
Dim copyRange As Range
Dim lastRow As Long

Set wb1 = Application.Workbooks.Open("\\S51\******\Folders\******\TrackingDeliveryStatus.xls")
Set ws1 = wb1.Worksheets("TrackingDeliveryStatusResults")

Set IE = New InternetExplorer

With IE
    .Visible = True
    For Each URL In Range("C2:C & lastRow")
        .Navigate URL.Value
        While .Busy Or .ReadyState <> 4: DoEvents: Wend
        MsgBox .Document.body.innerText
    Next
End With

End Sub

还有网址列表

我的目标是：

• 循环浏览每个 URL（在 IE 中插入 URL 并在不打开新标签的情况下继续运行）
• 从 HTML 元素中获取每个 URL 的项目状态
• FedEx：已送达 (td class="status")
• UPS：已送达 (id="tt_spStatus")
• USPS：到达 USPS 设施（class=“信息文本优先）
• 尽可能完成循环并保存为 csv（我已经这样做了，所以我只是发布我遇到问题的代码部分）。

我的理解是，我必须为每个不同的 url 编写不同的 if 语句，因为它们都有不同的 HTML 标记来表示其交付状态。循环很简单，但循环浏览网页对我来说是新的。无论我进行什么更改，代码都会向我抛出错误。

IE 对象打开，但 Excel 遇到错误，代码停止运行。

Answer 1

好的，我将从正确的语法开始，让您的代码继续运行，我将编辑此答案以获取更多代码

Sub Sample()


Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = True

Dim wsSheet As Worksheet, Rows As Long, links As Variant, IE As Object, link As Variant
Set wb = ThisWorkbook
Set wsSheet = wb.Sheets("Sheet1")

Set IE = New InternetExplorer

Rows = wsSheet.Cells(wsSheet.Rows.Count, "A").End(xlUp).Row
links = wsSheet.Range("A1:A" & Rows)

With IE
    .Visible = True
    For Each link In links
        .navigate (link)
        While .Busy Or .ReadyState <> 4: DoEvents: Wend
        MsgBox .Document.body.innerText
    Next link
End With

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

这会让你循环我认为你有一些一般的语法问题，你可以看到我的代码中的差异，以便在每个链接必须是对象或变体类型和我设置为变体的链接中循环假设它将默认为字符串