Скачать файл из sharepoint с помощью VBA - проблема

Question

Я пытаюсь получить файл через VBA из местоположения sharepoint, пожалуйста, взгляните на фрагмент ниже:

myURL = "https://mycompany.sharepoint.com/sites/Shared%20Documents/02.%20Presentation/01.%20slide%20deck/file.pptx"
LocalFilePath = ActiveWorkbook.Path & "\SlideDeck.ppt"

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 LocalFilePath, 2 ' 1 = no overwrite, 2 = overwrite
    oStream.Close
End If

Что забавно, вчера он работал правильно - файл успешно загружался в локальная папка. Но сегодня он получает текстовый файл, который выглядит как связка кода html. Вы хоть представляете, что в этом может быть не так? Или, может быть, у вас есть другое решение для загрузки файлов из sharepoint?

Я буду очень признателен за вашу помощь.