Я использую урок " Как создать простое погодное приложение " от Coding Is Love, с небольшими изменениями.
Я получаю ошибку 1004 при запуске.
Мой макрос
Sub Weather()
Dim xmlhttp As New MSXML2.XMLHTTP60, myurl As String, xmlresponse As New MSXML2.DOMDocument60
myurl = "http://api.openweathermap.org/data/2.5/weather?apikey=4a2360d14bf33378079d2e2d49e35ddb&mode=xml&units=imperial&q=new%20york"
xmlhttp.Open "GET", myurl, False
xmlhttp.Send
xmlresponse.LoadXML (xmlhttp.responseText)
Sheets(1).Range(B2).Value = xmlresponse.SelectNodes("//current/temperature/@value")(0).Text
Sheets(1).Range(B3).Value = xmlresponse.SelectNodes("//current/precipitation/@mode")(0).Text
Sheets(1).Range(B4).Value = xmlresponse.SelectNodes("//current/wind/speed/@name")(0).Text
End Sub
Где мне нужно внести в него изменения, чтобы напечатать искомые значения (@value @mode @name)?
Большое спасибо за вашу помощь.