Private Const USERNAME As String = "******"
Private Const PASSWORD As String = "*******"
Sub DownloadFile()
Dim USERNAME As String
Dim PASSWORD As String
Dim myURL As String
Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False, "USERNAME", "PASSWORD"
WinHttpReq.send
If WinHttpReq.Status = 200 Then
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.responseBody
oStream.SaveToFile "C:\file.csv", 2
oStream.Close
End If
End Sub