excel - 从网站获取数据的vba代码

Question

我是这个网站和 VBA 编程的新手。我陷入了一个问题，我必须从 this page 获取数据。我需要有 Check Rates 10 按钮的超链接网址。谁能帮我解决这个问题。

我已经完成了以下代码:

Sub GetData()

Dim IE As New InternetExplorer
IE.navigate "http://www.kieskeurig.nl/zoeken/index.html?q=4960999543345"
IE.Visible = False

Do
    DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE

Application.Wait (Now() + TimeValue("00:00:016")) ' For internal page refresh or loading
Dim doc As HTMLDocument 'variable for document or data which need to be extracted out of webpage
Set doc = IE.document
Dim dd As Variant
dd = doc.getElementsByClassName("lgn")(0).outerHtml
'Range("a1").Value = dd
MsgBox dd

End Sub

其中我正在获取按钮的文本，但我想获得该类的值。我认为我非常接近结果，但不知何故无法达到目标...任何人都可以帮助我...

问候，

Answer 1

我认为这就是您正在寻找的:

(代码根据凯尔的回答稍作修改 here )

Sub Test()
'Must have the Microsoft HTML Object Library reference enabled
Dim oHtml As HTMLDocument
Dim oElement As Object
Dim link As String

Set oHtml = New HTMLDocument

With CreateObject("WINHTTP.WinHTTPRequest.5.1")
    .Open "GET", "http://www.kieskeurig.nl/zoeken/index.html?q=4960999543345", False
    .Send
    oHtml.Body.innerHTML = .responseText
End With

If InStr(1, oHtml.getElementsByClassName("lgn")(0).innerText, "Bekijk 10 prijzen") > 0 Then
    link = Mid(oHtml.getElementsByClassName("lgn")(0).href, 7)
    Debug.Print "http://www.kieskeurig.nl" & link
End If

End Sub

此代码将 URL 打印到立即窗口。希望有帮助!