Private Sub CommandButton1_Click() ' 获取北京市的天气信息
Dim arr()
With CreateObject("Microsoft.XMLDOM")
.async = False
.Load "http://php.weather.北京&password=DJOYnieT8234jlsK&day=0"
Set s = .DocumentElement.ChildNodes(0).ChildNodes
ReDim arr(1 To 2, 1 To s.Length)
For i = 0 To s.Length - 1
arr(1, i + 1) = s(i).nodeName
arr(2, i + 1) = s(i).Text
Next i
'Range("a1").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
End With
End Sub