Vba 网页抓取-从Searate网站到Excel的容器跟踪

由于缺乏必要的IT知识，我希望您能帮助我编写代码，以便从网站跟踪集装箱编号SEARATES（）到Excel获取数据（最终目的地和预计到达时间）

我已经尝试过使用IE IE浏览器使用GetElementbyID的方法，但这个网站浏览器似乎已经过时，没有用了

这个SERATES网站提供API信息，但太复杂了，我无法理解。 随信附上集装箱跟踪清单供您测试。

希望有人能在这个项目上给我支持，这对我的物流工作很重要

---

提前感谢。

对于初学者来说，录制一个宏怎么样

Sub Macro1()
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;https://drive.google.com/file/d/1E0tuA4pYMDPZMgwjQC8dDs6w6BxqVdXK/view", _
        Destination:=Range("$A$1"))
        .CommandType = 0
        .Name = "view"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Range("A1").Select
    Application.Left = 201.25
    Application.Top = 93.25
End Sub

---

请注意，您必须登录。我没有此链接的登录凭据。

有人吗？我期待你在这个问题上给予帮助。谢谢也许有一些建议？嗨@ash，这不是我的意思，我想根据这个集装箱编号列表，在网站上搜索，并将每个集装箱编号的结果拉到Excel文件中。我不确定集装箱是什么。你的意思是你想在列表、数组或其他任何东西中循环项目，并在此基础上进行web查询吗？您肯定会这样做，但您可能需要从一个更简单的示例开始，然后逐步解决越来越复杂的问题。尝试循环浏览URL列表，并从每个URL导入一些数据。如果你能做到这一点，你应该能做很多其他的事情。再说一次，我真的不确定你想在这里完成什么。