data internet naar excel

[thst]

Hallo allemaal,

graag had ik bepaalde data automatisch van het internet gehaald.
gaat over volgende link http://www.postcode.nl wanneer je een postcode intypt krijg je de straat te zien, deze straat had ik graag in een excel bestan

Angela
bijgaand programma code zou aangepast moeten worden
voor postcode.nl

Option Explicit

Private Sub CommandButton1_Click()
    
    Dim objHTML As Object
    Dim objHTTP As Object
    Dim strUrl As String
    Dim vntRange As Variant
    
    On Error Resume Next
    
    strUrl = "http://meb.elia.be/imbalance_new.asp?lang=E" 'dit is de url met de gegevens,
    
    DeleteUrlCacheEntry (strUrl) 'cache wissen!!!
              
    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
    Set objHTML = CreateObject("HTMLFILE")
    
    Worksheets("Current system imbalance").Columns("A").ClearContents 'kolom wissen
    
    With objHTTP
        .Open "GET", strUrl, False 'am_2102
        .send
        objHTML.body.innerHTML = .responsetext
        vntRange = WorksheetFunction.Transpose(Split(objHTML.body.innerText, vbCrLf)) 'van html naar tekst en opdelen in regels
        Worksheets("Current system imbalance").Range("A1").Resize(UBound(vntRange)) = vntRange
    End With
    
    Worksheets("Current system imbalance").Columns("A").AutoFit 'autofit
    
    Set objHTTP = Nothing
    Set objHTML = Nothing
End Sub

 

[alphamax]

dit staat er in de broncode van de pagina's

<!-- Het is *NIET* toegestaan om postcodegegevens van deze website -->
<!-- geautomatiseerd te verkrijgen door middel van een online koppeling met het -->
<!-- zoekformulier, of op welke andere wijze dan ook. -->
<!-- Voor het automatiseren van dergelijke opvragingen en het -->
<!-- integreren van zoekfunctionaliteiten heeft Postcode.nl diverse -->
<!-- product oplossingen.

je kan wel een account aanmaken bij de Postcode.nl API, zie http://www.postcode.nl/index/308/1/0/postcode-nl-api-en-magento-plugin.html

 

[thst]

Bedankt.

Angela

 

[wildboy]

Hoi,

de api van postcode.nl is alleen beschikbaar voor webshops


onderstaande is beschikbaar voor iedereen (na aanmelding)

http://www.postcodeapi.nu/#benefits-clients-tab

Ben ook wel benieuwd hoe een API gebruikt kan worden in Excel... denk dat ik even moet gaan google

 

[alphamax]

zoek op dit forum of op worksheet.nl of op internet op "google maps excel"
bij google maps kan je ook zoeken op postcode en een straat als resultaat krijgen
je krijgt wel geen huisnummers