He Guys,
I am trying to read/import(actuel) weather data into an excel sheet.
So i surfed the web for quite some time, but i am hoping you can help me out.
I have some experience with vba, but not with reading data into excel.
So i will explain what my idea is, I want to read/import actuel weather information from the site below(Dutch).
http://www.knmi.nl/kennis-en-datacentrum/achtergrond/data-ophalen-vanuit-een-script
Sadly enough the page is only in Dutch, put google translate can help .
This is what i came up with, but it is not working.
So hopefully you can help me out, because i am stuck .
Sub URL_Post_Query()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://projects.knmi.nl/klimatologie/daggegevens/getdata_dag.cgi", _
Destination:=Range("a1"))
.PostText = "stns=235"
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=True
.SaveData = False
End With
End Sub
Already thanks.
Wilco
I am trying to read/import(actuel) weather data into an excel sheet.
So i surfed the web for quite some time, but i am hoping you can help me out.
I have some experience with vba, but not with reading data into excel.
So i will explain what my idea is, I want to read/import actuel weather information from the site below(Dutch).
http://www.knmi.nl/kennis-en-datacentrum/achtergrond/data-ophalen-vanuit-een-script
Sadly enough the page is only in Dutch, put google translate can help .
This is what i came up with, but it is not working.
So hopefully you can help me out, because i am stuck .
Sub URL_Post_Query()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://projects.knmi.nl/klimatologie/daggegevens/getdata_dag.cgi", _
Destination:=Range("a1"))
.PostText = "stns=235"
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=True
.SaveData = False
End With
End Sub
Already thanks.
Wilco