从网站链接名称中获取特定的 URL（使用 VBA）

Question

您好，我在这里也找到了下面的代码……但这会导致所有链接都复制到工作表中……如果我只想从特定链接名称复制 URL，该怎么办？请帮我编码。例如下面的代码...我想要这个链接名称中的 URL“Excel VBA 入门 - 我的程序员”。应该导致单元格 A1 中的 URL“http://www.i-programmer.info/ebooks/automating-excel/1264-getting-started.html” 另见图片...提前致谢！！！

Sub webpage()

    Dim internet As Object
    Dim internetdata As Object
    Dim div_result As Object
    Dim header_links As Object
    Dim link As Object
    Dim URL As String

    Set internet = CreateObject("InternetExplorer.Application")
    internet.Visible = True

    URL = "https://www.google.co.in/search?q=how+to+program+in+vba"
    internet.Navigate URL

    Do Until internet.ReadyState >= 4
        DoEvents
    Loop

    Application.Wait Now + TimeSerial(0, 0, 5)

    Set internetdata = internet.Document
    Set div_result = internetdata.getelementbyid("res")


    Set header_links = div_result.getelementsbytagname("h3")

    For Each h In header_links
        Set link = h.ChildNodes.Item(0)
        Cells(Range("A" & Rows.Count).End(xlUp).Row + 1, 1) = link.href
    Next

    MsgBox "done"
End Sub

enter image description here

Answer 1

您可以在将 URL 添加到工作表之前检查 innerText 属性的值

For Each h In header_links
    If h.innerText = "Getting started with Excel VBA - I Programmer" Then
        Set link = h.ChildNodes.Item(0)
        Cells(Range("A" & Rows.Count).End(xlUp).Row + 1, 1) = link.href
    End If
Next