ウェブサイトのリンク名から特定の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

あなたはああ、それは仕事だワークシート

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