code vba pour extraire des données à partir du site web

Je suis un newbie dans ce site web et à la programmation VBA. Je suis coincé dans un problème où je dois récupérer les données à partir de cette page. J'ai besoin d'avoir l'url du lien hypertexte de Check Rates 10 bouton. Quelqu'un peut-il m'aider avec ce problème.

J'ai fait le code suivant:

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

Dans lequel je reçois le texte du bouton, mais je veux avoir la valeur de la classe. Je pense que je suis très proche du résultat mais de toute façon cant atteindre l'objectif...quelqu'un peut m'aider...

Ce qui concerne,

OriginalL'auteur user3305327 | 2014-02-13

  1. 0

    Je pense que c'est ce que vous cherchez:

    (Code légèrement modifié à partir de Kyle réponse ici)

    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

    Ce code imprime l'URL dans la fenêtre exécution. Espérons que ça aide!

    merci à vous deux...il a vraiment travaillé pour moi! merci une tonne

    OriginalL'auteur ARich

  2. 0

    Cela fonctionne pour moi...

    Sub GetData()
    Set IE = CreateObject("InternetExplorer.Application")
    my_url = "http://www.kieskeurig.nl/zoeken/index.html?q=4960999543345"

    With IE
        .Visible = True
        .navigate my_url
        .Top = 50
        .Left = 530
        .Height = 400
        .Width = 400

    Do Until Not IE.Busy And IE.readyState = 4
        DoEvents
    Loop

    End With

    Application.Wait (Now() + TimeValue("00:00:016")) ' For internal page refresh or loading

    Set Results = IE.document.getElementsByTagName("a")
    For Each itm In Results
        If itm.classname = "lgn" Then
            dd = itm.getAttribute("href")
            Exit For
        End If
    Next

' if you wnat to click the link
    itm.Click

' otherwise
    'Range("a1").Value = dd
    MsgBox dd
End Sub
    Salut à tous!je reçois un problème de plus dans cette requête, alors que je suis une boucle dans le code il y a quelques pages où "lgn" classe n'est pas disponible donc pour cela j'ai besoin d'imprimer "Non Disponible" mais je reçois l'erreur...
    Salut, j'ai résolu ce problème par le code suivant Si oHtml.getElementsByClassName("lgn").Length > 0 Alors Si InStr(1, oHtml.getElementsByClassName("lgn")(0).innerText, "Bekijk 10 prix") > 0 then lien = Mid(oHtml.getElementsByClassName("lgn")(0).href, 7) Range("f" & i).Value = "kieskeurig.nl" & lien Fin Si Sinon Range("f" & i).Value = "NA" End if Next i Merci,

    OriginalL'auteur ron