vba抓取网页数据(我正在尝试从此网站上删除数据(-vbaweb))

优采云 发布时间: 2021-12-23 12:22

  vba抓取网页数据(我正在尝试从此网站上删除数据(-vbaweb))

  我正在尝试从此 网站 中删除数据。我已经编写了打开网站 然后搜索值的代码。单击搜索结果并打开最后一页,我必须从中选择详细信息。我需要选择红色提到的标签的详细信息

  

  这是我打开所需页面的代码。我已经使用 Link.click 打开所需的页面。之后,我需要获取图像中提到的详细信息。温心提醒。

  Sub hullByAshish() Dim html, html1 As HTMLDocument Dim ElementCol, ElementCol1 As Object Dim Link As Object Dim appIE As Object Dim a As String Dim i As Long Dim objElement As Object Dim objCollection As Object Set appIE = CreateObject("internetexplorer.application") a = "PONTOVREMON" With appIE .Navigate "https://www.marinetraffic.com/en/ais/index/search/all/keyword:" & a .Visible = True End With Do While appIE.Busy DoEvents Loop Application.Wait (Now() + TimeValue("00:00:01")) Set html = appIE.document Set ElementCol = html.getElementsByTagName("a") DoEvents For Each Link In ElementCol If Link.innerHTML = "PONTOVREMON" Then Link.Click End If Next Link End Sub

  excelvbaexcel-vbaweb-scrapinginnerhtml

0 个评论

要回复文章请先登录注册


官方客服QQ群

微信人工客服

QQ人工客服


线