Скачивание файла с сайта с авторизацией

Sub DownloadFile_Auth()
 
    loginURL$ = "http://www.mtkglobus.ru/info/account/"
    csvURL$ = "http://www.mtkglobus.ru/info/account/csv"
 
    Dim xmlhttp As New WinHttpRequest
    xmlhttp.Open "POST", loginURL$, False
 
    Dim POST() As Byte, PostData$
    ' здесь перечисляем параметры авторизации в формате name1=value1&name2=value2&name3=value3
    PostData = "mtklogin=MyLogin&mtkpass=MyPassword"
    POST = StrConv(PostData, vbFromUnicode)
 
    ' если надо - указываем заголовки запроса
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xmlhttp.setRequestHeader "Referer", loginURL$
 
    ' отправляем запрос авторизации
    xmlhttp.Send (POST): DoEvents
 
    If xmlhttp.Status = 302 Then ' если произошел редирект (особенность конкретного сайта)
        Debug.Print "авторизация выполнена"
    Else
        Debug.Print "ошибка авторизации"
    End If
 
    ' теперь выполняем GET запрос для получения файла
    xmlhttp.Open "GET", csvURL$, False 
 
    xmlhttp.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
    xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    xmlhttp.setRequestHeader "Referer", csvURL$
 
    xmlhttp.Send: DoEvents
 
    ' сохраняем ответ сервера в файл
    If xmlhttp.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write xmlhttp.responseBody
        oStream.SaveToFile "c:\filename.csv", 2        ' 1 = no overwrite, 2 = overwrite
        oStream.Close
    End If
 
End Sub