东方财富网天天练

shuinoo

运行时错误429,activex部件不能创建对象

shuinoo

#在这里快速回复#

shuinoo

能否提供代码呢

alanchn

http://data.eastmoney.com/executive/gdzjc.html

用GET抓取不了，请哪位老师帮忙一下，谢谢了！

五指山888

alanchn 发表于 2017-8-23 10:59
http://data.eastmoney.com/executive/gdzjc.html

用GET抓取不了，请哪位老师帮忙一下，谢谢了！

这个顶一下，希望有老师能帮助解决

onlycxb

alanchn 发表于 2017-8-23 10:59
http://data.eastmoney.com/executive/gdzjc.html

用GET抓取不了，请哪位老师帮忙一下，谢谢了！

http://data.eastmoney.com/DataCe ... me=&rt=50533165 数据在这里

onlycxb

五指山888 发表于 2017-10-16 10:33
这个顶一下，希望有老师能帮助解决

Sub main()
    Dim js, str
    Set js = CreateObject("scriptcontrol")
    js.Language = "jscript"
    With CreateObject("WinHttp.WinHttpRequest.5.1")

        .Open "GET", "http://data.eastmoney.com/DataCenter_V3/gdzjc.ashx?pagesize=50" _
        & "&page=1&js=var%20syyRplYD&param=&sortRule=-1&sortType=BDJZ&tabid=all&code=&name=&rt=50533165", False
        .send
        str = js.eval(.responsetext & ";s=''; a=syyRplYD.data;for(x in a){s+=a[x]+'\r'}")
        Debug.Print str  '立即窗口观察输出对象
    End With

End Sub

五指山888

onlycxb 发表于 2018-1-15 13:56
Sub main()
    Dim js, str
    Set js = CreateObject("scriptcontrol")

谢谢老师回复，这个抓取数据是减持，不知道十大流通股东持股数数据如何抓取
股东分析首页 _ 东方财富网_ 数据频道
http://data.eastmoney.com/gdfx/

tsmcp

老师帮忙做个抓网程序。
http://data.eastmoney.com/hsgtcg ... s.aspx?stock=600519
谢谢。

地天泰

onlycxb 发表于 2018-1-15 13:56
Sub main()
    Dim js, str
    Set js = CreateObject("scriptcontrol")

谢谢，学习了很多。
但是如何获得网页数据中的关键字，这是不是得由抓包工具来处理。