IE excel vba 获取数据

Question

I need to fetch data from a website. The website content following tag, and I need to extract href attribute.

link rel='canonical' href=' http://www.wingatecinci.com '

For this, I have written following code to extract href attribute in Excel

    Option Explicit
    Sub Tester()
    Dim IE As New InternetExplorer
    Dim i As Long
    Dim Cano As String

    Range("A1").Value = "Cano"

    Set IE = New InternetExplorer
    URL = "http://www.wingatecinci.com/"
    IE.navigate Url
    IE.Visible = True

    Do While IE.Busy Or IE.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop

    Cano = IE.document.getElementsByTagName("canonical")(i).innerHTML
    Range("A" & i + 2).Value = Cano
End Sub

But I did not get the success, and facing error see this screenshot http://prntscr.com/kpy9dh Can any one look into this and help me out??

Answer 1

You can add a wait in for the element and use a CSS attribute selector to target the attribute. This currently has a loop of 5 seconds to try and locate the element.

Option Explicit
Public Sub GetLink()
    Dim IE As New InternetExplorer, ele As Object, t As Date
    Const MAX_WAIT_SEC As Long = 5
    With IE
        .Visible = True
        .navigate "http://www.wingatecinci.com/"

        t = Timer
        Do While ele Is Nothing
            DoEvents
            On Error Resume Next
            Set ele = .document.querySelector("[rel='canonical']")
            On Error GoTo 0
            If Timer - t > MAX_WAIT_SEC Then Exit Do
        Loop
        If Not ele Is Nothing Then Debug.Print ele.href
        .Quit
    End With
End Sub

---

References:

1. Microsoft HTML Object Library
2. Microsoft Internet Controls

Answer 2

These two lines reference i as a variable:

Cano = IE.document.getElementsByTagName("canonical")(i).innerHTML
Range("A" & i + 2).Value = Cano

But you haven't set the value of i anywhere in your code. Did you mean to put this inside a loop perhaps?

---

Also the "tag" here is <link> - the "canonical" part is an attribute of that tag, so you need to further elaborate in your code to test for these:

For Each el In IE.Document.getElementsByTagName("link")
    If el.hasAttribute("link") Then
        // do something with this element
    End If
Next