实时天气预报

xmyjk · 发表于 2012-2-22 12:36

本帖最后由 xmyjk 于 2012-2-22 12:44 编辑

下载soap toolkit，或者你网速太慢了。。。。
http://download.csdn.net/detail/hanghangaidoudou/1532941

chuhaiou · 发表于 2012-2-22 12:52

本帖最后由 chuhaiou 于 2012-2-22 13:18 编辑

Sub 天气预报()
'//第二天合肥天气预报
'Application.Cursor = xlWait

Dim InputStr As String
Dim sc  As New MSSOAPLib.SoapClient
InputStr = "合肥"
sc.MSSoapInit "http://www.webxml.com.cn/WebServices/WeatherWebService.asmx?WSDL"
' Dim re() As String
re = sc.getSupportCity("")
For i = 0 To UBound(re)
TempStr = "*" & InputStr & "*"
If re(i) Like TempStr Then
      TempStr = Replace(re(i), ")", "")
      TempStr = Right(TempStr, 5)
      Exit For
End If
Next i
re = sc.getWeatherbyCityName(TempStr)
r = UBound(re)
MsgBox re(13) & Chr(13) & re(12) & Chr(13) & re(14), , "合肥天气预报"
End Sub
注意要引用Microsoft Soap Type Library 控件
  只能显示城市，但不能显示县级的天气预报。怎样解决这一难题？请高手解决。谢谢！

xmyjk · 发表于 2012-2-22 13:18

本帖最后由 xmyjk 于 2012-2-22 13:21 编辑

chuhaiou 发表于 2012-2-22 12:52
Sub getGZWeather()
'//第二天合肥天气预报
Dim InputStr As String

刚才会错了，不好意思。

县级的可以试看看这个
http://webservice.webxml.com.cn/WebServices/WeatherWS.asmx?op=getWeather

我测试国，福建－三明－大田，直接输入大田都能找到，下面有样例可以参照

chuhaiou · 发表于 2012-2-22 13:24

xmyjk 发表于 2012-2-22 13:18
刚才会错了，不好意思。

县级的可以试看看这个

不行呀，你试试！

xmyjk · 发表于 2012-2-22 13:41

本帖最后由 xmyjk 于 2012-2-22 13:46 编辑

chuhaiou 发表于 2012-2-22 13:24
不行呀，你试试！

例如我输入大田，都可以的。

Sub getGZWeather()
Dim sc As New SoapClient30
Dim city As String
city = InputBox("cityname")
sc.MSSoapInit "http://webservice.webxml.com.cn/WebServices/WeatherWS.asmx?wsdl"
Dim re() As String
re = sc.getWeather(city, "")
Dim strWeather As String
strWeather = "本日天气：" & Chr(13) & re(7) & Chr(13) & re(8) & Chr(13) & re(9)
strWeather = strWeather & Chr(13) & Chr(13)
strWeather = strWeather & "天气实况：" & Chr(13) & re(4) & Chr(13) & re(5) & Chr(13) & re(6)
Application.Cursor = xlNormal
MsgBox strWeather, , re(0) & re(1) & "天气预报"
End Sub

复制代码

chuhaiou · 发表于 2012-2-22 13:51

xmyjk 发表于 2012-2-22 13:41
例如我输入大田，都可以的。

我改了一下程序！因原程序经常出现“下标越界”的错误提示

helenmb · 发表于 2012-2-23 08:08

感谢楼主的分享！

zhongnansha · 发表于 2012-2-22 21:54

这个不错，呵呵

xusuge · 发表于 2012-2-22 22:21

谢谢分享！

shaowu459 · 发表于 2012-2-22 22:46

谢谢分享，学习了，

		自动登录	找回密码
密码			免费注册

[分享] 实时天气预报

换一方式的城市天气预报

点评

点评