data ophalen met getElementBy

Status
Niet open voor verdere reacties.
Gijsbert1

Gijsbert1

Gebruiker
Lid geworden
7 apr 2016
Berichten
985
Beste,

Ik ben aan het proberen om via VBA, data vanuit een website in mijn excel sheet te krijgen.
Ik wil mij een beetje gaan verdiepen in deze materie maar loop al snel vast.
Ik heb al het e.e.a. geprobeerd met getElementById en getElementsByClassName maar het wil maar niet lukken.
Er zijn zeer veel voorbeelden te vinden op internet maar niets krijg ik werkend.

Wil kan mij een zet in de goede richting geven?
Bekijk bijlage helpmij met getElementBy.xlsm
Code: 
Private Sub GeefPostcode_Click()
Dim IE As Object
Dim Website As String, PostCode As String
    Website = "https://www.postcode.nl/zoek/"
    PostCode = Range("H3").Text
    Website = Website & PostCode
Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False
    IE.Navigate Website
Range("H7").Value = IE.document.getElementById("h1").Value

End Sub
 
Deze site verhindert geautomatiseerde raadpleging.

Code: 
Sub M_snb()
   with createobject("MSXML.XMLHTTP")
    .open "get", "www.postcode.nl/3407AA",false
    .send
    msgbox .responsetext
  end with
End Sub
 
Oke bedankt voor je terugkoppeling.
Ik ga even verder spitten.
Misschien kom ik hierover nog in de lucht maar voor nu zet ik de vraag op opgelost. :thumb:
 
het kan wel
Code: 
Private Sub GeefPostcode_Click()
    Dim IE As Object
    Dim Website As String, PostCode As String
    Website = "https://www.postcode.nl/zoek/"
    PostCode = Range("H3").Text
    Website = Website & PostCode
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate Website
    Do
        DoEvents
    Loop While IE.Busy Or IE.readyState <> 4
    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText IE.document.getElementsByTagName("table")(0).outerHTML
        .PutInClipboard
    End With
    Range("H7").Select
    ActiveSheet.Paste
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan