Ошибка с интернет-соединением через VBScript и QueryTables

Question

Я хочу получить некоторые данные с веб-сайта в файл Excel, используя VBScript (та же процедура, что и в методе QueryTables connectino в VBA).Но при попытке выполнить мой скрипт произошла ошибка.В сообщении об ошибке говорится об «ошибке интернет-соединения» и «Невозможно подключиться к интернет-серверу»

Dim oExcel
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = true
oExcel.DisplayAlerts = true
Dim oBook, Connection
Set oBook = oExcel.Workbooks.Add()
Set oSheet = oBook.Worksheets(1)
Connection = "URL; https://bank.gov.ua/NBUStatService/v1/statdirectory/exchange"

With oSheet.QueryTables.Add(Connection, oExcel.ActiveCell)
        .Name = "exchange"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery =False
End With