实时天气预报

zzq0101 · 发表于 2012-2-21 22:58

呵呵，可以预测5天的天气！
Sub get青岛()
Application.Cursor = xlWait
Dim sc As New SoapClient30
sc.MSSoapInit "http://webservice.webxml.com.cn/WebServices/WeatherWS.asmx?wsdl"
Dim re() As String
re = sc.getWeather("963", "")
Dim strWeather As String
For i = 1 To UBound(re)
Cells(i, 1) = re(i)
Next
Application.Cursor = xlNormal
End Sub

zzq0101 · 发表于 2012-2-21 23:00

Excel中有实时天气预报菜单.rar (8.43 KB, 下载次数: 152)

mimicai · 发表于 2012-2-21 23:22

其实就相当于调用这个网站写好的自定义函数，是吧？

wshcw · 发表于 2012-2-21 23:29

本帖最后由 wshcw 于 2012-2-21 23:29 编辑

只有做成窗体,否则使用不方便.

mimicai · 发表于 2012-2-21 23:38

返回这个了：

发现错误：免费用户24小时内访问超过规定数量。http://www.webxml.com.cn/

复制代码

好东东都是要花钱的。。

liucqa · 发表于 2012-2-22 00:09

本帖最后由 liucqa 于 2012-2-22 00:09 编辑

研究了一下webxml网站，发现有单词翻译功能，简单做了一个

看2楼

chuhaiou · 发表于 2012-2-22 08:28

不知什么原因，有时会出现“下标越界”的错误提示，有时又没有！

chuhaiou · 发表于 2012-2-22 09:09

zzq0101 发表于 2012-2-21 22:23
Sub get青岛()

Application.Cursor = xlWait

出现新问题：运行后出现“下标越界”

chuhaiou · 发表于 2012-2-22 10:27

本帖最后由 chuhaiou 于 2012-2-22 10:27 编辑

不知什么原因，开始运行好好的，但运行几次后就会出现“下标越界”的错误！

kangatang · 发表于 2012-2-22 11:49

本帖最后由 kangatang 于 2012-2-22 12:26 编辑

出现这个，怎么回事啊

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

[分享] 实时天气预报

点评