• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel VBA import class vanaf website.

Status
Niet open voor verdere reacties.
Volgens mij zou je dat met getElementByID van je antwoord moeten kunnen opzoeken. hoe laad je de pagina in?
 
Schot voor de boeg
Code: 
[SIZE=1]Option Explicit

Public Sub OV9292()

'https://9292.nl/reisadvies/station-amsterdam-centraal/station-amsterdam-sloterdijk/vertrek/2018-05-02T1541

    Dim strAankomst As String
    Dim strDatum As String
    Dim strPunt As String
    Dim strPrijs As String
    Dim strQuery As String
    Dim strResponseText As String
    Dim strTijd As String
    Dim strUrl As String
    Dim strVertrek As String

    strUrl = "https://9292.nl/reisadvies"
    strVertrek = "station-amsterdam-centraal"
    strAankomst = "station-amsterdam-sloterdijk"
    strPunt = "vertrek"
    strDatum = "2018-05-02"
    strTijd = "1541"

    strQuery = strUrl & "/" & strVertrek & "/" & strAankomst & "/" & strPunt & "/" & strDatum & "T" & strTijd

    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", strQuery
        .Send
        strResponseText = .ResponseText
        With CreateObject("HTMLFILE")
            .Write strResponseText
            strPrijs = .getelementsbytagname("h4")(0).innertext
        End With
    End With
End Sub[/SIZE]
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan