求助:如何抓取东方财富财经日历数据

五指山888

Kaohsing 发表于 2017-10-9 14:37
不用折磨麻烦，我想你或许有往年的交易数据，便利一下，就可以获得交易日期。多问一句，股票交易数据你用 ...

我没有数据库，做不来数据库，只是每日存一个工作簿，就算文件数据库吧，我是想用数据库，现在这样还可以用用，时间长了，数据量大了，估计不行，

Kaohsing

五指山888 发表于 2017-10-9 15:28
股票类型        概念        相关板块        概念
        虚拟现实        BK0722        虚拟现实
        页岩气        BK0603        页岩气

已修改，请测试。 kaohsing.rar (163.42 KB, 下载次数: 41)

2017-10-10 07:58 上传

点击文件名下载附件

五指山888

Kaohsing 发表于 2017-10-10 07:59
已修改，请测试。

完善了 ，还加了说明，谢谢老师了。

五指山888

phsu 发表于 2017-10-6 12:32
Sub 財富財經日曆財經會議數據()
     Dim JsStr As String
     Dim Js As String

老师，这个程序也遇到相同问题，就是除了10月份，其他月份都不能抓取，谢谢老师能看看嘛？
Sub 金融界() 'yzc51

    Dim arr(1 To 10000, 1 To 19), aa, i
    [a2:L500] = ""
    URL = "http://stock.jrj.com.cn/action/getTzrlData.jspa"
    Application.ScreenUpdating = 0

'    URL = "C:\getTzrlData_jspa.txt"
    With CreateObject("Msxml2.XMLHTTP")
        .Open "GET", URL, 0
        .send
        aa = Replace(Replace(.responsetext, Chr(9), ""), " ", "")
    End With
    mm = Len(aa) - Len(Replace(aa, "date", ""))
    mm = mm / 4
    For i = 1 To mm
        r = r + 1
        arr(r, 1) = r
        arr(r, 2) = Split(Split(aa, "date"":""")(i), """,")(0)
        mu = "events" & Split(Split(aa, "events")(i), "{""date")(0)
        mu1 = Len(mu) - Len(Replace(mu, "level", ""))
        mu1 = mu1 / 5
'Debug.Print mu
        For j = 1 To mu1
            arr(r, 3) = Split(Split(mu, "title"":""")(j), """,")(0)
            YZC = Split(Split(mu, "level"":""")(j), """,")(0)
            arr(r, 4) = Mid("★★★★★", 1, YZC) & Mid("☆☆☆☆☆", 1, 5 - YZC)
            mu2 = "concepts" & Split(Split(aa, "concepts")(r), "{""date")(0)
            mu21 = Len(mu2) - Len(Replace(mu2, "code", ""))
            mu21 = mu21 / 4
'Debug.Print mu2
            tmp = "": tmp1 = "": tmp2 = "": tmp3 = "": tmp4 = "": tmp30 = "": tmp31 = "": tmp32 = ""

            For k = 1 To mu21
                tmp = tmp & Chr(10) & Split(Split(mu2, "code"":""")(k), """,")(0)
                'arr(r, 6) = Mid(tmp, 2)
                tmp1 = tmp1 & " " & Split(Split(mu2, "name"":""")(k), """,")(0)
                arr(r, 5) = Mid(tmp1, 2)
                tmp2 = tmp2 & Chr(10) & Split(Split(mu2, "pl"":""")(k), """,")(0)
                'arr(r, 6) = Mid(tmp2, 2)
                tmp3 = tmp3 & " |" & Split(Split(mu2, "stocks"":""")(k), """")(0)
                tmp30 = tmp30 & " '" & Left(Split(Split(mu2, "stocks"":""")(k), """")(0), 6)
                arr(r, 6) = "'" & Mid(tmp30, 2)
                tmp31 = tmp31 & " '" & Mid(Split(Split(mu2, "stocks"":""")(k), """")(0), 8, 6)
                arr(r, 8) = "'" & Mid(tmp31, 2)
                tmp32 = tmp32 & " '" & Mid(Split(Split(mu2, "stocks"":""")(k), """")(0), 15, 6)
                arr(r, 10) = "'" & Mid(tmp32, 2)
                arr(r, 12) = Mid(tmp3, 2, 911) ': Left(tmp3 = ""
            Next
            tmp4 = Left(Replace(Mid(tmp3, 4), ",", "|"), 20)
            tmp5 = Mid(InStr(tmp3, Chr(10)), 20)
            tmp6 = Left(Split(Chr(10) & tmp3, Chr(10))(1), 20)
            r = r + 1
        Next
        r = r - 1
    Next
    Range("a2").Resize(r + 1, 16) = arr
    fh
    [G2:G500] = "=IF(F2="""","""",VLOOKUP(F2,GPDM,2,1))"
    [I2:I500] = "=IF(H2="""","""",VLOOKUP(H2,GPDM,2,1))"
    [K2:K500] = "=IF(J2="""","""",VLOOKUP(J2,GPDM,2,1))"
    yzc51
    Range("l19").Select
    Application.ScreenUpdating = True
    '分列数据竖号
End Sub 'http://stock.jrj.com.cn/tzrl/

Kaohsing

五指山888 发表于 2017-10-22 18:37
老师，这个程序也遇到相同问题，就是除了10月份，其他月份都不能抓取，谢谢老师能看看嘛？
Sub 金融界() ...

JS 解析数据：






kaohsing_js.zip (20.97 KB, 下载次数: 19)

2017-10-23 14:59 上传

点击文件名下载附件

五指山888

Kaohsing 发表于 2017-10-23 14:59
JS 解析数据：

谢谢老师给出的代码有很大改进。不过和原版相比，概念原版有36个，老师的12个；10.19日的个股可以抓取150个，老师的少了很多；日期格式和原版不一样；最根本的是原版没解决的月份不能选择，就是除了10月份，其他月份都不能抓取，现在最大的问题就是这个。看看能不能解决吗？

Kaohsing

五指山888 发表于 2017-10-23 16:04
谢谢老师给出的代码有很大改进。不过和原版相比，概念原版有36个，老师的12个；10.19日的个股可以抓取150 ...

确实如此，该网页数据嵌套再嵌套，有点蒙了，真是少见，里面的关于股票的参数，需要另外发送请求获得。暂时修改一下，用的是js遍历。

kao_js.zip (398.43 KB, 下载次数: 41)

2017-10-23 21:45 上传

点击文件名下载附件

五指山888

Kaohsing 发表于 2017-10-23 21:45
确实如此，该网页数据嵌套再嵌套，有点蒙了，真是少见，里面的关于股票的参数，需要另外发送请求获得。暂 ...

主要问题还是只能抓取10月份，其他月份不能抓取

huazai688

楼主您好！
有没有现在2022年能用的版本？如有，麻烦上传分享一下，谢谢！

五指山888

huazai688 发表于 2022-11-18 17:25
楼主您好！
有没有现在2022年能用的版本？如有，麻烦上传分享一下，谢谢！

谢谢关注！当年我得到老师们的帮助，得到一批vba，但是大部分都失效了。这么多年过去了，我到现在还没有学会爬虫，叫朋友学，朋友付了学费，专门听课，至今一个字都没有抓取到。再次证明没有一个人啥都能学会的。当年在农村，号称人能做的事，没有学不会的，主要是农耕社会，主要是一些手工技能，这些技术确实大多数人从小学的话，基本能学会，所以有手工技术世家。但是，现代社会，分工更精细，术业有专攻，面面俱到更难了，200多年前还有多才多艺的科学大师，到了近代，科学巨人很难出现，只能是很小一个领域的专家了，出了这个领域，走路都很难，常常闹笑话的很多，很少看到科学家能传代的。