Estoy tratando de descargar un archivo zip de un sitio web públicohttp://serviciosede.mineco.gob.es/indeco/BDSICE/homebdsice.aspx .

Para descargar el archivo, este sitio ejecuta una pieza de javascript javascript:__doPostBack('lbutton_BdsiceCompleta'").
He estado descargando manualmente haciendo clic en este botón, pero me gustaría hacerlo a través de Excel VBA.

Estoy atascado en la recuperación del archivo zip.

 Dim StrWebpage As String StrWebpage = "http://serviciosede.mineco.gob.es/indeco/BDSICE/homebdsice.aspx" Dim objIE As SHDocVw.InternetExplorer 'microsoft internet controls (shdocvw.dll) Dim HTMLDoc As MSHTML.HTMLDocument 'Microsoft HTML Object Library Dim htmlInput As MSHTML.HTMLInputElement Dim htmlColl As MSHTML.IHTMLElementCollection Set objIE = New SHDocVw.InternetExplorer With objIE .Navigate StrWebpage ' Main page .Visible = 1 Do While .Busy: DoEvents: Loop Do While .ReadyState <> 4: DoEvents: Loop Set HTMLDoc = .Document Set objIE = New SHDocVw.InternetExplorer Set frame = HTMLDoc.getElementsByName("lbutton_BdsiceCompleta") Call frame.execScript("lbutton_BdsiceCompleta", "JavaScript") End With