投资日历网页数据提取

kings12333

如题：http://stock.10jqka.com.cn/fincalendar.shtml#2016-08-30  想要这个网页中的数据提取到EXCEL中，试了很多办法都得不到数据。。。高手看看。。

kings12333

自己先顶一下。。。。

YZC51

kings12333 发表于 2016-8-30 15:47
自己先顶一下。。。。

请参考
http://comment.10jqka.com.cn/tzr ... ata&date=201608

kings12333

YZC51 发表于 2016-8-30 16:36
请参考
http://comment.10jqka.com.cn/tzrl/getTzrlData.php?callback=callback_dt&type=data&date=2016 ...

老大,这个分离数据还真不会,能不能教下..

屌爆了z

坐等高手处理这样的js，htmlfile或者ScriptControl

kings12333

屌爆了z 发表于 2016-8-30 18:03
坐等高手处理这样的js，htmlfile或者ScriptControl

一起顶...　　　　　　　　　　　

kings12333

YZC51 发表于 2016-8-30 16:36
请参考
http://comment.10jqka.com.cn/tzrl/getTzrlData.php?callback=callback_dt&type=data&date=2016 ...

老大,都在等你哦..

liu-aguang

Sub js()
    Dim arr(1 To 100, 1 To 5)
    sURL = "http://comment.10jqka.com.cn/tzrl/getTzrlData.php?callback=callback_dt&type=data&date=201608"
    Set oDom = CreateObject("HTMLFILE")
    Set oWindow = oDom.parentWindow
    Set oHTML = CreateObject("MSXML2.XMLHTTP")
    oHTML.Open "GET", sURL, False
    oHTML.send
    oWindow.execScript oHTML.responseText & ";function callback_dt(o){oj=o};n=oj.data.length"
    For i = 0 To oWindow.n - 1
        dt = oWindow.eval("var oi=oj.data[" & i & "]; oi.date+oi.week")
        m = oWindow.eval("oi.events.length")
        r = r + 1: arr(r, 1) = dt
        For j = 0 To m - 1
            arr(r, 2) = oWindow.eval("oi.events[" & j & "][0]")
            For Each u In Array("field", "concept")
            arr(r, 3) = arr(r, 3) & "," & oWindow.eval("ar=[];k=oi." & u & "[" & j & "];for(x in k){ar.push(k[x].name);ar}")
            Next
            arr(r, 3) = Trim(Replace(arr(r, 3), ",", " "))
            arr(r, 4) = oWindow.eval("ar=[];k=oi.stocks[" & j & "];for(x in k){ar.push(k[x].name);ar}")
            arr(r, 4) = Replace(arr(r, 4), ",", " ")
            r = r + 1
        Next
        r = r - 1
    Next
    Range("a2").Resize(r, 4) = arr
End Sub

liu-aguang

kings12333

liu-aguang 发表于 2016-8-30 19:15

一看这图标就是高手啊....高手,我有话不好意思说..能不能帮讲一下代码的注解