Sub DownloadFile()

Dim myURL As String
myURL = "http://horseracebase.com/excellcards.php"

Dim WinHttpReq As Object


Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "POST", myURL, False, ".........", "........."
WinHttpReq.Send

myURL = WinHttpReq.responseBody
If WinHttpReq.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write WinHttpReq.responseBody
    oStream.SaveToFile ThisWorkbook.Path & "\cards " & Format(Time, "hh-mm") & ".xls", 2
    oStream.Close
End If

End Sub
Sub DownloadFile2()

Dim myURL As String
myURL = "http://horseracebase.com/excellcards.php"

Dim req As Object
Dim user As String, pass As String
user = "........."
pass = "........."
credentials = "username=" & user & "&password=" & pass



Set req = CreateObject("WinHttp.WinHttpRequest.5.1")
req.SetAutoLogonPolicy 0

req.Open "POST", myURL, False
req.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
req.Send credentials

myURL = req.responseBody
If req.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write req.responseBody
    oStream.SaveToFile "E:\cards.xls", 2 ' 1 = no overwrite, 2 = overwrite
    oStream.Close
End If

End Sub