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

gwjkkkkk · 发表于 2010-8-6 18:10

学习一下，天天向上

cyf888 · 发表于 2010-8-7 10:36

高人

tiantianup · 发表于 2010-8-10 11:59

嘿嘿，谢楼主哦

cbm · 发表于 2010-8-10 12:16

很实用的代码，不亚于webzip了。版版的id，看着好亲切。

mayygttg · 发表于 2010-8-24 10:42

谢谢版主大作，学习了

dd2003joke · 发表于 2010-9-14 19:26

谢谢楼主分享

yijiboo · 发表于 2010-10-6 19:53

很好，学习了。谢谢

leoliu1234 · 发表于 2010-10-11 14:24

不错，我现在就是在vba中如何判断iframe的子页面是否加载完成，然后往下执行我的代码，遇到困难，不知道ldy老大能不能帮我，谢谢！

wwwruc · 发表于 2010-10-15 15:10

,看的很糊涂，不知道怎么回事。有入门的么？

wuyouyidish · 发表于 2010-10-17 00:49

原帖由 ldy 于 2008-12-5 10:45 发表
如果你所处理的网页，不能通过这个工具得到结论，欢迎跟帖讨论

此网页根据你的方法提不到数据，代码如下
Private Sub CommandButton1_Click()
Dim i, j, x As Long
Dim dmt As HTMLDocument
Dim R
Set dmt = WebBrowser1.Document
For i = 0 To dmt.all.tags("table").Length - 1
   If InStr(dmt.all.tags("table")(i).innerText, "序号股票代码名称自选股1自2自3查股数据最新价涨幅换手率量比DDXDDYDDZ5日10日连续连增成交量(万元)BBD(万元)单数比买入卖出特大差大单差小单差买入卖出买入卖出买入卖出") = 1 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
         Sheet1.Cells(i + 3, j + 1) = R(i).Cells(j).innerText
      Next
Next
Unload Me
End Sub

Private Sub UserForm_Initialize()
WebBrowser1.Navigate "http://ddx.gubit.cn/sh.php"
End Sub
网址http://ddx.gubit.cn/sh.php

[ 本帖最后由 wuyouyidish 于 2010-10-17 00:51 编辑 ]

		自动登录	找回密码
密码			免费注册

[原创] 网页分析不求人 附 分析工具 实例

[原创] 网页分析不求人附分析工具实例