VBA 获取网页多页数据 （网址不变）

此用户被禁言

VBA万岁 发表于 2014-8-19 20:19
我没有安装“按键精灵”，无法精确获知table，input标签的“索引”值（分别为7、6），故只能用以下笨办法 ...

我们分析出来dmt.all.tags("table")(4) 就是所需要的数据，百度是大公司，通常不会去改变这个结构。但如果是其他公司的网页，
可能会增加广告、通知什么的，就有可能增加table的数量，今天 dmt.all.tags("table")(4) ，明天4就可能要改成5 或 6
对这种变化较频繁的页面，就要用循环判断table的特征来确定到底是 4 还是 5 或 6  ,这样可以延长代码的有效期。
像这个表可以用文字特征来判断。
    Set dmt = WebBrowser1.Document
    for i = 0 to  dmt.all.tags("table").length - 1
        if  instr(dmt.all.tags("table")(i).innertext,"序号代码股票名称") > 0 then x = i
    Next
    Set R = dmt.all.tags("table")(x).Rows
    For i = 0 To R.Length - 1
        For j = 0 To R(i).Cells.Length - 1
            Sheet3.Cells(i + 1, j + 1) = R(i).Cells(j).innerText
        Next
    Next' 在工具文件窗体上有这个例子



http://club.excelhome.net/forum. ... st%3D1%26digest%3D1

版主在2楼说的一侧面话。我测试真的是可以的。

本人五笔输入

VBA万岁 发表于 2014-8-19 20:22
完整代码如下：

Sub 多网页数据批量提取()

嗯，好的，谢谢您的帮助，方法很好，因为那个索引值是我自己看代码试出来的，你为我提供了一种不错的方法。。。

本人五笔输入

此用户被禁言 发表于 2014-8-20 15:08
我们分析出来dmt.all.tags("table")(4) 就是所需要的数据，百度是大公司，通常不会去改变这个结构。但如果 ...

好的，谢谢大哥的帮助，感谢分享。。。

VBA万岁

此用户被禁言 发表于 2014-8-20 15:08
我们分析出来dmt.all.tags("table")(4) 就是所需要的数据，百度是大公司，通常不会去改变这个结构。但如果 ...

多谢指点，受益了！

yanghe4405

您好，楼主，向您请教一个问题。在http://club.excelhome.net/thread-1166166-1-1.html 网页中，学习了下载融资融券数据的方法，很完美。现在想下载多页数据（网址不变），参考了你这个帖子，可还是搞不定，不知道能否麻烦你帮我写一个呢？例如网址“http://data.eastmoney.com/rzrq/detail/600718.html”，不胜感激！！！

YZC51

谢谢！！！有时间来细细看看！

本人五笔输入

yanghe4405 发表于 2014-12-31 12:24
您好，楼主，向您请教一个问题。在http://club.excelhome.net/thread-1166166-1-1.html 网页中，学习了下载 ...

不好意思啊，好久都没有等论坛了，您的问题也早就解决了吧，如有问题欢迎交流啊。。

本人五笔输入

YZC51 发表于 2015-11-17 22:46
谢谢！！！有时间来细细看看！

欢迎交流。。。

kongrenying

楼主能帮个忙吗？我碰到一个问题，我想获取网页的数据（多页），按下一步翻页，但是地址栏的网址不变，试了很多办法都不行qq：1024754808，谢谢

jsgj2023

关注一下。