作者：绿色风
分类：
时间：2022-08-17
浏览：102
楼主
xmyjk |
Q:如何直接运用XMLDOM对象，获取网站天气预报的xml数据，并按小时输出其气温数据。
数据流网址为：http://flash.weather.com.cn/sk2/101120701.xml
A:文档体的结构如下。
网站的xml文档体，可以直接运用xmldom对象载入。并运用xmldom对象的属性和方法获取我们所需的数据。
如图，气温数据，存在sktq的节点项下的每个qw子节点的wd属性中。只要获取每个子节点的属性即可取数。
代码如下：- Sub test()
- Dim XmlDom, XmlNodes, i As Integer, arr
-
- Set XmlDom = CreateObject("Microsoft.XMLDOM") '创建xmldom对象
- XmlDom.async = False '设置不允许异步处理
- XmlDom.Load "http://flash.weather.com.cn/sk2/101120701.xml" '加载服务器xml数据
-
- Set XmlNodes = XmlDom.getElementsByTagName("sktq")(0).ChildNodes '获取sktq的节点
- ReDim arr(0 To XmlNodes.Length - 1, 1) '规划结果数组
- For i = 0 To XmlNodes.Length - 1 '历遍sktq节点的各项子节点
- With XmlNodes(i).Attributes '获取子节点的属性
- arr(i, 0) = .getNamedItem("h").nodeValue & "点" 'h属性是时间
- arr(i, 1) = .getNamedItem("wd").nodeValue & "度" 'wd属性是温度
- End With
- Next
- [A1].Resize(UBound(arr, 1) + 1, UBound(arr, 2) + 1) = arr '在单元格上输出结果数组
- End Sub
 xmldom.zip
|
2楼
亡者天下 |
厉害
学习一下！
|
3楼
让你咯花刘水 |
一起交流！楼主给咱们提供机会了 |
4楼
千年一梦遥 |
非常不错! |
5楼
wh_china2010 |
|
6楼
老糊涂 |
学习一下！ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一