Web报废-从Searates网站到Excel的容器跟踪

Question

由于缺乏基本的IT知识，我正在寻求您的帮助，以便从跟踪集装箱数量的网站SEARATES中获取数据(最终目的地和预计到达时间((https://www.searates.com/container/tracking/)到Excel。

我已经尝试过使用IE Internet Explorer使用GetElementbyID的方法，但这个网站浏览器似乎过时了，毫无用处。

这个SERATES网站提供API信息，但它太复杂了，我无法理解。随信附上集装箱跟踪清单，供您测试。https://drive.google.com/file/d/1E0tuA4pYMDPZMgwjQC8dDs6w6BxqVdXK/view?usp=sharing

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

提前谢谢。

Answer 1

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

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

注意，你必须登录。我没有这个链接的登录凭据。