东方财富网天天练

zlx1120 · 发表于 2015-6-23 00:58

Sub 示例一页()
Cells.Clear
Dim a, b, c, d, strtext, m, j
With CreateObject("msxml2.xmlhttp")
      .Open "GET", "http://data.eastmoney.com/stock/lhb/2010-01-05.html", False
      .send
      strtext = .responsetext
End With
Set a = CreateObject("htmlfile")
a.body.innerhtml = strtext
Set b = a.all.tags("table")("dt_1")
For Each c In b.Rows
      m = m + 1
      Debug.Print m
      j = 0
      For Each d In c.Cells
         j = j + 1
         If c.Cells.Length = 6 Then Cells(m, j + 5) = d.innertext Else Cells(m, j) = d.innertext
      Next d

Next c
End Sub
有重复数据

独孤1 · 发表于 2015-6-30 19:55

您好，请教老师如何导入今日和五日的表http://stock.qq.com/zjlx/#zlzcpm 谢谢

newpageone · 发表于 2015-7-15 16:49

学习了谢谢

xxyyxx888 · 发表于 2015-8-11 18:59

高手啊，学习

YZC51 · 发表于 2015-8-20 16:14

很好！谢谢老师！
请教如下网页怎样抓取
个股主力净流入排名：http://data.eastmoney.com/zjlx/list.html
在次感谢！

onlycxb · 发表于 2015-8-20 16:22

YZC51 发表于 2015-8-20 16:14
很好！谢谢老师！
请教如下网页怎样抓取
个股主力净流入排名：http://data.eastmoney.com/zjlx/list.html ...

贴子内已经有很多相似代码了。本贴已经结贴，不再续贴，坛友可以参照学习或QQ私我。

YZC51 · 发表于 2015-8-20 19:42

谢谢老师回复

YZC51 · 发表于 2015-8-21 12:27

onlycxb 发表于 2015-8-20 16:22
贴子内已经有很多相似代码了。本贴已经结贴，不再续贴，坛友可以参照学习或QQ私我。

再次谢谢老师，经过学习您的帖子，已经作好了，还请老师指教！

YZC51 · 发表于 2015-8-21 12:29

附件在这！

主力净流入排名.rar (29.29 KB, 下载次数: 216)

malai · 发表于 2015-9-23 16:51

http://club.excelhome.net/thread-1211493-1-1.html
能解决吗

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

[分享] 东方财富网天天练