API using Microsoft excel

Tried the example to get data using API in to Microsoft Excel, getting error "#value" (used formula webservice(url.xml))., Using same url I am able to see the data in the browser. Could you help me with this problem.

For Each Weather In resp.getElementsByTagName("observation")
i = i + 1
With r
yy = Weather.SelectSingleNode("date/year").Text
mm = Weather.SelectSingleNode("date/mon").Text
dd = Weather.SelectSingleNode("date/mday").Text
.Value = DateSerial(yy, mm, dd)
With .Offset(0, 1)
.Value = Weather.SelectSingleNode("date/hour").Text
With .Offset(0, 1)
.Value = Weather.SelectSingleNode("conds").Text
With .Offset(0, 1)
.Value = Weather.SelectSingleNode("tempi").Text
End With
End With
End With
End With
Set r = r.Offset(1)
Next