Импортируйте файл CSV в Excel, который требует логин и пароль

Question

Я использую этот макрос, полученный от здесь .

Sub DescargarWatchlist()

    Const Option_SSLErrorIgnoreFlags = 4
    Const SslErrorFlag_Ignore_All = 13056
    Const HTTPREQUEST_SETCREDENTIALS_FOR_SERVER = 0

    Dim FileNum As Long
    Dim FileData() As Byte
    Dim WHTTP As Object
    
    mainUrl = "https://bloomberg.com"
    fileUrl = "https://login.bloomberg.com/watchlist/markets/watchlist/xxxxxx.csv"
    filePath = "c/somewhere.csv"

    myuser = "my mail"
    mypass = "my password"

    Set WHTTP = CreateObject("WinHTTP.WinHTTPrequest.5.1")


    WHTTP.Open "POST", mainUrl, False
    WHTTP.SetCredentials myuser, mypass, HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
    WHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    WHTTP.Option(Option_SSLErrorIgnoreFlags) = SslErrorFlag_Ignore_All

    WHTTP.send

    WHTTP.Open "GET", fileUrl, False
    WHTTP.send

    FileData = WHTTP.responseBody
    Set WHTTP = Nothing

    FileNum = FreeFile

    Open filePath For Binary Access Write As #FileNum
        Put #FileNum, 1, FileData
    Close #FileNum

    MsgBox "File has been saved!", vbInformation, "Success"

End Sub

Макрос работает нормально. Файл загружается в патч с именем, но аутентификация не работает. Сообщение, которое появляется на загруженном .csv:

{"text":"Login verification failed. Please sign in again."}

Может кто-нибудь сказать мне, как сделать сайт Bloomberg хорошим логином с помощью этого макроса?

Заранее спасибо,