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

engchiang

感谢楼主无私的奉献，楼主真是好人！

正面反面

我想学习，谢谢解答，好！

中兵工业

Sub d()
    Dim dmt As HTMLDocument
    Dim htMent As HTMLCommentElement    '       As IHTMLElementCollection
    Dim i As Integer
    Dim Quote As IHTMLElement
   
    webs = Sheets("网址").Range("a1")
    WebBrowser1.Navigate webs
   
    Set dmt = WebBrowser1.Document
    Application.ScreenUpdating = False
    On Error Resume Next
    For i = 0 To dmt.all.Length - 1
        Set htMent = dmt.all(i)
        Vcels htMent, i
    Next i
   
End Sub
-----------------------------------------------------------------
Sub Vcels(htMent As HTMLCommentElement, i)
    On Error Resume Next
    With Sheets("分析")
        .Cells(i + 2, "A") = htMent.tagName
        .Cells(i + 2, "B") = TypeName(htMent)
        .Cells(i + 2, "C") = htMent.ID
        .Cells(i + 2, "D") = htMent.Name
        .Cells(i + 2, "E") = htMent.Value
        .Cells(i + 2, "F") = htMent.Text
        .Cells(i + 2, "G") = htMent.innerText
        .Cells(i + 2, "H") = htMent.outerText
        .Cells(i + 2, "I") = htMent.nameProp
        .Cells(i + 2, "J") = htMent.tagUrn
        .Cells(i + 2, "K") = htMent.sourceIndex
        .Cells(i + 2, "L") = htMent.href
    End With
End Sub
--------------------------------------------------------------------
Sub 清空数据_Click()
Sheets("分析").[a2:aa10000] = Empty
End Sub
-----------------------------------------------------------
Sub 全部分析_Click()
    d
    Application.ScreenUpdating = False
End Sub

想简化一下功能学习，改代码测试时，为什么说Sub Vcels(htMent As HTMLCommentElement, i)编译错误，用户类型未定义呢

中兵工业

如果想变换不同网址取数，把“全部分析”按钮连接的代码改成如下：

Private Sub CommandButton2_Click()
    webs = "http://stock.jrj.com.cn/share,000001,lrfpb.shtml" 资产负债表网址
    WebBrowser1.Navigate webs 打开网址
    d
    Application.ScreenUpdating = False
    CommandButton26_Click 数据获取
    webs = "http://stock.jrj.com.cn/share,000001,lrfpb.shtml" 利润表网址
    WebBrowser1.Navigate webs 打开网址
    d
    Application.ScreenUpdating = False
    CommandButton26_Click 数据获取
End Sub

结果不行，哪里错了呢？

oceanspart

学习一下，谢谢

roc.jame

好事啊好啊 可惜看了这么久还是不明白 唉。。。。。。

9910343

做个记号，看看

引子玄

ldy 发表于 2008-12-5 10:45
dmt.all.tags("table")
这个tags也有函数原型
Function tags(tagName) As object

好～～～～{:soso_e179:}

AE0522绿色森林

感谢楼主分享

nk0769

很好的工具，如果能在userform窗口选择需要显示的范围，直接分析出简洁高效的代码出来，那将更完美