ExcelTip.Net留存知识帖 ---【注:附件之前被网盘供应商清空后,现已修复-现已修复-现已修复为本地下载!】
现在位置:首页 > E问E答 > Excel VBA > 如何运用VBA获取webservice上的天气预报数据

如何运用VBA获取webservice上的天气预报数据

作者:绿色风 分类: 时间:2022-08-17 浏览:150
楼主
xmyjk
Q:webservice上有很多免费的查询信息的服务,例如http://www.webxml.com.cn/zh_cn/index.aspx,就提供了天气,单词查询,股票查询,邮编查询等等服务。那我们要怎么在EXCEL的VBA里面使用这些信息呢?

A:以天气查询为例:http://webservice.webxml.com.cn/WebServices/WeatherWS.asmx
类似API,服务器已经为我们提供了getRegionCountry、getRegionDataset 等等函数了。
就像我们用函数一样,按照服务器提供的一些指引,我们输入参数,即可得到相关的数据返回。
大家可以参阅网站的PDF等文件,写得都非常清楚。
VBA访问webservice需下载soap toolkit:http://download.csdn.net/detail/hanghangaidoudou/1532941
  1. Sub getGZWeather()

  2.     Dim sc As New SoapClient30 '创建soapclient对象变量
  3.     Dim city As String
  4.     city = InputBox("cityname") '输入城市名
  5.     sc.MSSoapInit "http://webservice.webxml.com.cn/WebServices/WeatherWS.asmx?wsdl" '与服务器建立链接
  6.     Dim re() As String
  7.     re = sc.getWeather(city, "") '运用服务器开放端口的函数,获取天气数据,下面均是返回数据输出。
  8.     Dim strWeather As String
  9.     strWeather = "本日天气:" & Chr(13) & re(7) & Chr(13) & re(8) & Chr(13) & re(9)
  10.     strWeather = strWeather & Chr(13) & Chr(13)
  11.     strWeather = strWeather & "天气实况:" & Chr(13) & re(4) & Chr(13) & re(5) & Chr(13) & re(6)
  12.    
  13.     MsgBox strWeather, , re(0) & re(1) & "天气预报"
  14.    
  15. End Sub

111.rar
2楼
海洋之星
弦月,哈哈,很牛啊,
3楼
花蔓
寫不來 各種寫不來
人家什麽都不會 認真學習 55555
4楼
老糊涂
学习

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素, 经与ExcelTip.Net站长Apolloh商议并征得其同意, 现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示, 供有需要的人士查询使用,也慰缅曾经的论坛时代。 所示各个帖子的原作者如对版权有异议, 可与本人沟通提出,或于本站点留言,我们会尽快处理。 在此,感谢ExcelTip.Net站长Apolloh的支持,感谢本站点所有人**绿色风(QQ:79664738)**的支持与奉献,特此鸣谢!
------本人网名**KevinChengCW(QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表
sitemap