Загрузите файл Dynami c Excel с Sharepoint, используя код VBA

Question

Я хочу загрузить файл Excel (.xlsx), в котором соглашение об именах равно Dynami c, либо в квартал, либо в день.

У меня есть код VBA для загрузки, но он работает только для имени Stati c,

Ниже приведен код:

Sub DownloadFromSharepoint()
    Dim myURL As String
    myURL = "https://**<MyNetwork>**/projects/Facets-Mig/CentralVA%20Combined%20Documentation/Central%20Migrations%20Trackers/Central%20Migrations%20Master%20Tracker_Q42019.xlsx?Web=1"

    Dim WinHttpReq As Object
    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
    WinHttpReq.Open "GET", myURL, False
    WinHttpReq.Send

    If WinHttpReq.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.ResponseBody
        oStream.SaveToFile ("C:\Users\**<myUserName>**\Desktop\Sharepoint Download\Central.xlsx")
        oStream.Close
    End If End Sub

кто-то может предложить изменения .