[已解决]【求】提取不能选择网页的数据

xdwy

网页地址如下：http://cp.swlc.sh.cn/cams/analyse/02analyse.jsp

行为可以通过vba提取这个网页的期数和开奖号码，如果嫌麻烦的话，也请大侠帮忙把网页的数据全部提取，然后我自己在来加工。

问题的关键是怎么提取这个网页的数据，恳请大侠和老师们帮忙为感为谢。

最佳答案

月排行榜 / 总排行榜

wcymiss

2012-10-26 08:32

导入到excel的代码如下：

1. Sub 导入()
   
2.     Dim myUrl As String
   
3.     Application.DisplayAlerts = False
   
4.     myUrl = "http://cp.swlc.sh.cn/cams/xml/award_02.xml"
   
5.     ThisWorkbook.XmlImport URL:=myUrl, ImportMap:=Nothing, Overwrite:=True, Destination:=ActiveSheet.Range("a1")
   
6.     Application.DisplayAlerts = True
   
7. End Sub

复制代码

跳转到最佳答案楼层

xdwy

顶顶，希望大侠们帮助为盼

wcymiss

http://cp.swlc.sh.cn/cams/xml/award_02.xml

xdwy

wcymiss 发表于 2012-10-25 17:16
http://cp.swlc.sh.cn/cams/xml/award_02.xml

请教怎么弄到表格呢？

http://cp.swlc.sh.cn/cams/xml/award_02.xml

请问是什么方法找到这个网址而显示出原来网页的数据呢？--希望解答学习

wcymiss

用下面的软件：
Fiddler2(汉化版及中文手册).rar (1.09 MB, 下载次数: 441)

2012-10-26 08:16 上传

点击文件名下载附件

wcymiss

导入到excel的代码如下：

1. Sub 导入()
   
2.     Dim myUrl As String
   
3.     Application.DisplayAlerts = False
   
4.     myUrl = "http://cp.swlc.sh.cn/cams/xml/award_02.xml"
   
5.     ThisWorkbook.XmlImport URL:=myUrl, ImportMap:=Nothing, Overwrite:=True, Destination:=ActiveSheet.Range("a1")
   
6.     Application.DisplayAlerts = True
   
7. End Sub

复制代码