welcome to the forum.
Private Declare Function URLDownloadToFileA Lib "urlmon" _
(ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
Private Function DownloadUrlFile(URL As String, LocalFilename As String) As Boolean
Dim RetVal As Long
RetVal = URLDownloadToFileA(0, URL, LocalFilename, 0, 0)
If RetVal = 0 Then DownloadUrlFile = True
End Function
Sub vbax_63320_download_and_extract_zip_file()
With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With
DownloadUrlFile "https://www.agroindustria.gob.ar/sitio/areas/pesca_maritima/desembarques/_descargar/2018//000000_Desembarques%202018.zip", _
ThisWorkbook.Path & "\zipfile.zip"
With CreateObject("Shell.Application")
.Namespace(ThisWorkbook.Path).CopyHere .Namespace(ThisWorkbook.Path & "\zipfile.zip").Items
Workbooks.Open .Namespace(ThisWorkbook.Path & "\zipfile.zip").Items.Item(0)
End With
'code to copy data from downloaded file here
End Sub