[已解决]求代码用XMLHTTP的方法提取该网页的数据？

philobj

网址为http://f9.eastmoney.com/soft/gp13.php?code=60399301，想采用XMLHTTP的方法提取该网页的所有内容，请高手指教，谢谢！

最佳答案

月排行榜 / 总排行榜

dongqing1998

2013-11-9 06:49

不知道楼主为什么非要用XMLHTTP提取，用QueryTable提取不是更简单吗？
下面代码是用的QueryTable提取。

1. Sub 提取_QueryTable()
   
2.     With ActiveSheet.QueryTables.Add(Connection:= _
   
3.         "URL;http://f9.eastmoney.com/soft/gp13.php?code=60399301", _
   
4.             Destination:=Range("A1"))
   
5.         .PreserveFormatting = True
   
6.         .Refresh BackgroundQuery:=False
   
7.     End With
   
8. End Sub

复制代码

附件中是根据楼主的要求用XMLHTTP提取的。

跳转到最佳答案楼层

dongqing1998

不知道楼主为什么非要用XMLHTTP提取，用QueryTable提取不是更简单吗？
下面代码是用的QueryTable提取。

1. Sub 提取_QueryTable()
   
2.     With ActiveSheet.QueryTables.Add(Connection:= _
   
3.         "URL;http://f9.eastmoney.com/soft/gp13.php?code=60399301", _
   
4.             Destination:=Range("A1"))
   
5.         .PreserveFormatting = True
   
6.         .Refresh BackgroundQuery:=False
   
7.     End With
   
8. End Sub

复制代码

附件中是根据楼主的要求用XMLHTTP提取的。

philobj

dongqing1998 发表于 2013-11-9 06:49
不知道楼主为什么非要用XMLHTTP提取，用QueryTable提取不是更简单吗？
下面代码是用的QueryTable提取。附件 ...

您好！十分感谢！我下了附件，运行良好，但我试了另外几个通用的页面，会报错，如图，把网址改为了：URL = "http://f9.eastmoney.com/soft/gp13.php?code=00207202"，请指教，谢谢！
PS:我用IE打开该网址后再次运行代码就不再报错了，不知何故？

dongqing1998

我这里测试没问题，报错的原因有可能是网页设置了权限或网页格式不同或者找不到网页。
另：因为网页结构等等原因，提取网页数据的代码没有通用的，但就你上面提到的两个网页可以通用一段代码。