Я пытаюсь создать лист для отображения текущей погоды в определенных местах. Я совершенно новичок в API и посмотрел несколько онлайн-уроков. Все еще чувствую себя новичком.
Я пытался получить некоторые данные просто для проверки работоспособности, но код показывает ошибку в строке xml_obj.open. Ошибка автоматизации (ошибка 440). URL-адрес API работает просто отлично, когда я вставляю его в свой веб-браузер. Кто-нибудь знает, что может быть не так?
Sub API_JSON()
Dim xml_obj As MSXML2.XMLHTTP60
Set xml_obj = New MSXML2.XMLHTTP60
xml_obj.Open "GET", "api.openweathermap.org/data/2.5/weather?id=2172797&appid=xxxxxxx", False 'cant get past this line
'xxxxxxx is my key to the API
xml_obj.send
MsgBox (xml_obj.responseText)
End Sub