大师帮看看修改代码抓取网页链接ID号为何不成功

千金易得

大师帮看看修改代码抓取网页链接ID号为何不成功！

背景 :

中国足彩网http://cp.zgzcw.com/lottery/jchtplayvsForJsp.action?lotteryId=47&type=jcmini

里面每一场球赛对应有一个ID (暂且这样叫它，具体网页术语我不懂)，

比如其中一场分析页面链接地址：

http://fenxi.zgzcw.com/2499502/ypdb

用Excel ActiveSheet.QueryTables.Add 可以导入分析页面数据，但是需要知道每一场比赛的ID 号。

问题 : 如何抓取上面每场球赛Id 值？

大师帮看看代码写的代码哪里不对修改！

千金易得

这个确实有一些难度！顶一下！

我在天外

id号再html的tabel里，直接处理出来就好

千金易得

我在天外 发表于 2019-10-11 14:17
id号再html的tabel里，直接处理出来就好

是的看到具体代码如何修改？

千金易得

请大家帮助····

vbexcelhome

在这个帖子 http://club.excelhome.net/thread-1503459-1-1.html  中下载模块，导入表格
然后代码如下：

1. Dim arrNewplayid() As String
   
2. Dim strURL As String
   
3. Dim strXpath As String
   
4. 
   
5. strURL = "http://cp.zgzcw.com/lottery/jchtplayvsForJsp.action?lotteryId=47&type=jcmini"
   
6. Call modVBpath.OpenURL(strURL)
   
7. 
   
8. strXpath = "table[@id='hide_box_1']\td[@newplayid]"
   
9. arrNewplayid = GetXapthElementsAttrib(strXpath) '提取属性
   
10. 
    
11. For i = 0 To UBound(arrNewplayid)
    
12.     Debug.Print i + 1, arrNewplayid(i)
    
13. Next

复制代码

执行后的结果如下（序号对应与球队）：
1            2638542
2            2638543
3            2638545
4            2638544
5            2638546
6            2638549
7            2638551
8            2638550
9            2638553
10           2638552
11           2638547
12           2638555
13           2638556
14           2638557
15           2638558
16           2638560
17           2638559
18           2638562
19           2638561
20           2638563
21           2638564
22           2659738
23           2659739

千金易得

vbexcelhome 发表于 2019-10-24 11:16
在这个帖子 http://club.excelhome.net/thread-1503459-1-1.html  中下载模块，导入表格
然后代码如下：
...

感谢大师的解答，不过运行时卡住本人菜鸟不知道是原因？请求大师再次指教

vbexcelhome

不好意思，忘记电子表格VBA有点不同了，请把有问题的这句改成：
  objHtmlFile.body.outerHTML = outerHTML==》
改为 objHtmlFile.Write outerHTML

如果有弹窗，请看看自定义函数Private Sub ClearScript(outerHTML As String)，看看Mid(outerHTML, FindStart, Length) = Space(Length)是否被注释掉了。如果是请取消注释。

还有刚刚测试了一下，发现路径发生变化了，表的ID已经从“hide_box_1”改为“hide_box_2”了，所以这句要改一下
strXpath = "table[@id='hide_box_1']\td[@newplayid]"
   改为：
strXpath = "table[@id='hide_box_2']\td[@newplayid]"

刚刚测试过，ok的。