excel - 使用 CSS 选择器查询提取超链接

Question

我想使用 queryselector all 从网页中提取超链接，但没有结果。

下面是我的代码。

Sub ScrapLink()

Application.ScreenUpdating = False
Dim IE As New InternetExplorer, html As HTMLDocument
Dim x As Long    
Application.ScreenUpdating = False
With IE
IE.Visible = True
IE.Navigate "http://www.bursamalaysia.com/market/listed-companies/company-announcements/5978065" 
While .Busy Or .ReadyState < 4: DoEvents: Wend
Application.Wait Now + TimeSerial(0, 0, 1)
DoEvents

With .Document.getElementById("bm_ann_detail_iframe").contentDocument
     Dim links As Object, i As Long
     Set links = .Document.querySelectorAll("p.att_download_pdf[href^='/FileAccess/apbursaweb/']")
     For i = 1 To links.Length
      With ThisWorkbook.Worksheets("Sheet1")
       Range("A" & Rows.Count).End(xlUp).Offset(1).Value = links.Item(i - 1)
    End With
   Next i
  .Quit
  End With
 End With
End Sub

Answer 1

您可以避开初始页面并直接使用框架中的 URL。这将是我的偏好，除非您出于某种原因不知道此 URL。

Option Explicit

Public Sub GetInfo()
    Dim IE As New InternetExplorer, nodeList As Object, i As Long
    With IE
        .Visible = True
        .navigate2 "http://disclosure.bursamalaysia.com/FileAccess/viewHtml?e=2906127"

        While .Busy Or .readyState < 4: DoEvents: Wend

        Set nodeList = .document.querySelectorAll(".att_download_pdf [href^='/FileAccess/apbursaweb/download']")
        For i = 0 To nodeList.Length - 1
            Debug.Print nodeList.item(i).href
        Next
        .Quit
    End With
End Sub

或者您可以在页面加载后直接跳转到 iframe src:

Option Explicit   
Public Sub GetInfo()
    Dim IE As New InternetExplorer, nodeList As Object, i As Long
    With IE
        .Visible = True
        .Navigate2 "http://www.bursamalaysia.com/market/listed-companies/company-announcements/5978065"

        While .Busy Or .readyState < 4: DoEvents: Wend      
        .Navigate2 .document.querySelector("iframe").src           
        While .Busy Or .readyState < 4: DoEvents: Wend

        Set nodeList = .document.querySelectorAll(".att_download_pdf [href^='/FileAccess/apbursaweb/download']")
        For i = 0 To nodeList.Length - 1
            Debug.Print nodeList.item(i).href
        Next
        .Quit
    End With
End Sub