作者:绿色风
分类:
时间: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- Sub getGZWeather()
- Dim sc As New SoapClient30 '创建soapclient对象变量
- 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)
-
- MsgBox strWeather, , re(0) & re(1) & "天气预报"
-
- 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总版主之一