实时天气预报

chuhaiou · 发表于 2012-2-21 21:50

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

liucqa · 发表于 2012-2-21 22:02

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

哪里有SoapClient30可以学习？

做了一个单词翻译

单词翻译.rar (9.98 KB, 下载次数: 180)

Sub getTranslator()
'//单词翻译
Cells.Clear
Dim sc As New SoapClient30
sc.MSSoapInit "http://fy.webxml.com.cn/webservices/EnglishChinese.asmx?wsdl"
Dim re
re = sc.TranslatorString("hello")

re(4) = "http://fy.webxml.com.cn/sound/" & re(4)
[a2].Resize(5, 1) = WorksheetFunction.Transpose(re)

End Sub

zhaogang1960 · 发表于 2012-2-21 22:05

谢谢分享！

wshcw · 发表于 2012-2-21 22:06

做成窗体切换效果会更好.

slywtj123 · 发表于 2012-2-21 22:10

就三个城市，但天气预报的内容还是很全面的。谢谢分享！

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

收藏。对我来说绝对是个新东东。
请问楼主：
1、SoapClient30的属性和方法都有哪些呢？
2、http://webservice.webxml.com.cn/WebServices/WeatherWS.asmx?wsdl，这个网址是怎么来的？还有其他类似的网址吗？

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

本帖最后由 zzq0101 于 2012-2-21 22:28 编辑

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
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, , "青岛天气预报"

End Sub

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

哈哈，原来网址在这里：
http://www.webxml.com.cn/zh_cn/web_services.aspx

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

AboutCity天气预报001.rar (62.41 KB, 下载次数: 498)

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

[a1] = strWeather
可用飞信接口自动发送天气预报给飞信好友，呵呵！

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

[分享] 实时天气预报

点评