Bestand naar excel exporteren via macro

[hans1974]

Hallo,
Graag had ik willen weten of er een mogelijkheid bestaat om het bestand van de website:
http://www.elia.be/en/grid-data/power-generation/Solar-power-generation-data/Graph
te exporteren naar een excel bestand. Dit gebeurd als je op de website op de knop export klikt (dan kan je dit downloaden als een excel bestand in tabelvorm, net wat ik nodig heb). Ik zou dit vanuit mijn excel sheet willen doen zonder dat ik naar die website moet gaan( dus via een macro), ook dat ik deze kan refreshen.
Een bestand met hyperlink kan ik wel naar mijn sheet brengen via een macro, maar langs deze weg heb ik geen idee hoe dit te doen omdat ik hier geen link vind.
Kan iemand me hierbij helpen
Alvast bedankt.

 

[huijb]

Visual Basic is iets anders dan Visual Basic for Applications, VBA is programmeren binnen Office applicaties. Verplaatst naar juiste sectie.

 

[alphamax]

Elia Solar-PV power generation graph data excel export

Vul de datum in de oranje cel, en klik op de knop "solarforecast"

 

[hans1974]

héél erg bedankt, precies wat ik nodig heb

 

[snb]

Kan dat niet simpeler met:

Sub M_snb()
  With Worksheets("Solarforecasting")
    c00 = "http://publications.elia.be/publications/Publications/SolarForecasting.v2.svc/ExportSolarForecastGraph?dateFrom="
    c00 = c00 & Format(.Range("C2").Value, "yyyy-mm-dd")& "%2000:00:00&dateTo="& Format(.Range("C4").Value, "yyyy-mm-dd")& "%2023:59:59&sourceId=1"
  end with
            
  Workbooks.Open c00
end sub

 

[hans1974]

Bedankt ik zal deze ook eens proberen

 

[hans1974]

hey alphamax en snb

Nog een vraagje hierover, hoe vinden jullie die link van de http://.....
Ik zou die van de windforecasting er ook nog bij willen hebben maar als ik dit niet weet loop ik al vast.
http://www.elia.be/en/grid-data/power-generation/wind-power

 

[Warme bakkertje]

Sub WindForecast()
  With Worksheets("Windforecasting")
    c00 = "http://publications.elia.be/publications/Publications/WindForecasting.v1.svc/ExportWindForecastGraph?beginDate="
    c00 = c00 & Format(.Range("C2").Value, "yyyy-mm-dd") & "&endDate=" & Format(.Range("C4").Value, "yyyy-mm-dd")
    c00 = c00 & "&isOffshore=" & "&isEliaConnected="
  End With
  Workbooks.Open c00
End Sub

 

[hans1974]

Ook erg bedankt Rudi!

 

[Warme bakkertje]

Nog een voorbeeldje waarbij je de filters kan instellen.

 

[hans1974]

Bedankt voor de tip! heel goed om erbij te gebruiken