On which line the error appears?

Sub downloadFileFromURL()

Dim httpMethod As WinHttp.WinHttpRequest
Set httpMethod = New WinHttp.WinHttpRequest

Dim URL As String
Let URL = “http://www.todo-poi.es/radar/GARMIN_RADARES/garminvelocidad%202xx-12xx-13xx-14xx-2xxx-3xxx%20y%20posteriores.zip”

httpMethod.Open “GET”, URL, False
httpMethod.send

Dim FilePath As String
Let FilePath = ThisWorkbook.Path & “\radares.zip”

ADODBmethod httpMethod, FilePath

End Sub
Sub ADODBmethod(ObjectWinHttp As Object, FileName As String)

Dim objADOStream As ADODB.Stream
Set objADOStream = New ADODB.Stream

objADOStream.Open
objADOStream.Type = 1

objADOStream.Write ObjectWinHttp.responseBody
objADOStream.Position = 0

Dim objFSO As Scripting.FileSystemObject
Set objFSO = New Scripting.FileSystemObject

objADOStream.SaveToFile FileName
objADOStream.Close

End Sub

I can donwload the file from the web with a browser, but the macro gives an error when executing:

Run-time error ‘-2147012859 (80072f05)’:
Automation Error

(I already have activated both references as indicated)

Any idea?

I’m trying this solution because I’ve found an error on my macro that was working for years without changing anything on my side, with URLDownloadToFile(0, URL, FName, 0, lpfnCB).

Hi James
To help You I need the bigger picture, not just URL 🙂

Let URL = “https://www.otcmarkets.com/otcapi/company/dns/news/document/68329/content”

I get the same result:

Run-time error ‘-2147012739 (80072f7d)’:
Automation Error

Sounds amazing! You’re welcome! 🙂