thst
Gebruiker
- Lid geworden
- 10 apr 2001
- Berichten
- 655
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
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
Code:
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