网页分析不求人 附 分析工具 实例

71hhb

非常感谢你的帮助很好

6817

谢谢ldy版主！太好了，真的可以啊！您真的太强了，想拜您为师，跟您好好学学。我只能“照葫芦画瓢”半手工的得到想要的数据，不知其所以，希望能跟您系统地学习下，希望您能收下我这个笨学生。先谢谢您了！
另外还有问题想向您请教：如果网页是表格，又有防复制的代码，要怎样写代码才能去掉乱码得到表格呢？我试了半天，总是不行，不是程序不能运行，就是得不到表格。请您指点下，下面的程序要怎样改？谢谢！
Private Sub CommandButton26_Click()
Dim d
Sheet3.Select
    k = Range("b65536").End(xlUp).Row
    Set dmt = WebBrowser1.Document
    Set d = dmt.all()
     For Each p In dmt.all.tags("span")
           p.innerText = ""
     Next
     For Each p In dmt.all.tags("font")
           p.innerText = ""
     Next
    For i = 0 To dmt.all.tags("table").Length - 1
    Set r = dmt.all.tags("table")(i).Rows
        For j = 0 To r.Length - 1
            For z = 0 To r(j).Cells.Length - 1
                Sheet3.Cells(j + k, z + 1) = r(j).Cells(z).innerText
            Next
        Next
        k = j + k
    Next
End Sub

ahang

学习一下，真的不顶不让看吗？试试

amwjeog

感谢提供，学习

12_

gao ,gao,hai shi gao

liusongs

真的是对初学者最大的帮助，非常感谢！

zyg365

工具好用吗？

葡萄

一定要看的，这么重要内容，以前也考虑过，通过XMLHTTP，用EXCEL做网摘，想通过这个方式，自动获得天气情况的年度汇总数据，并形成曲线等历史资料，现在看来有成功的可能性了。

yzh365_

gfhfghfghfghfghgfh