Получение курсов валют с различных сайтов

Sub SendHttpsGetRequest()
    Dim http As Object
    Dim url As String
    Dim response As String
 
    ' Создаем объект для HTTPS запроса
    Set http = CreateObject("MSXML2.ServerXMLHTTP.6.0")
    
    url = "https://www.cbr.ru/currency_base/daily/"
 
    On Error GoTo ErrorHandler
    
    ' Инициализация запроса
    http.Open "GET", url, False
    
    ' Установка заголовков, если необходимо
    http.setRequestHeader "Content-Type", "application/json"
    
    ' Отправка запроса
    http.Send
    
    ' Получение ответа
    If http.Status = 200 Then
        response = http.responseText
        Debug.Print response ' Вывод в окно Immediate (Ctrl+G)
        MsgBox "Запрос выполнен успешно!"
    Else
        MsgBox "Ошибка: " & http.Status & " - " & http.statusText
    End If
 
    Set http = Nothing
    Exit Sub
 
ErrorHandler:
    MsgBox "Ошибка соединения: " & Err.Description
    Set http = Nothing
End Sub