东方财富网天天练

luyina · 发表于 2015-4-3 16:04

onlycxb 发表于 2015-4-3 14:01

老师：能加上个数据对应的字段名称吗？像网页http://data.eastmoney.com/bbsj/201412/yjbb.html中的“股票代码股票简称每股收益 ....等等.” 在此感谢啦！

luyina · 发表于 2015-4-3 16:27

这贴及时专业！赞一个！

onlycxb · 发表于 2015-4-3 18:24

luyina 发表于 2015-4-3 16:04
老师：能加上个数据对应的字段名称吗？像网页http://data.eastmoney.com/bbsj/201412/yjbb.html中的“股票 ...

Sub test()
Dim strJs, P
'示例加字段
With ActiveSheet
.Cells(1, 1) = "股票代码,股票简称" '这里仅为示意，可根据实际填加
.UsedRange.Offset(1).ClearContents
End With
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=SR&sty=YJBB&fd=2014-12-31&st=13&sr=-1&p=1&ps=1&js=(pc),(x)&stat=0&rt=47601296", False
.send
P = Split(.responsetext, ",")(0)
.Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=SR&sty=YJBB&fd=2014-12-31&st=13&sr=-1&p=1&ps=" & P & "&js=var%20a={pages:(pc),data:[(x)]}&stat=0&rt=47601296", False
.send
strJs = .responsetext & ";var b=a.data;var s=''; for(x in b){s+=b[x]+'\r';}"
End With
With CreateObject("MSScriptControl.ScriptControl")
.Language = "javascript"
strJs = .Eval(strJs)
End With
Arr = Split(strJs, vbCr)
With ActiveSheet
.[a2].Resize(UBound(Arr)) = WorksheetFunction.Transpose(Arr)
.[a:a].TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Comma:=True, FieldInfo:=Array(1, 2)
End With
End Sub

复制代码

mckawayi · 发表于 2015-4-3 22:22

本帖最后由 mckawayi 于 2015-4-4 14:50 编辑

onlycxb 发表于 2015-3-11 08:31 http://f10.eastmoney.com/f10_v2/Fin ...

运行此段代码会出现警示框！

在IE浏览器直接打开http://f10.eastmoney.com/f10_v2/FinanceAnalysis.aspx?code=sz000898不会出现警示框。

将网络安全设置将为中也无法解决，请教怎么办？

五指山888 · 发表于 2015-4-3 22:36

onlycxb 发表于 2015-4-3 18:24

这个代码太专业了，速度奇快，非常好，可惜菜鸟看不懂，所以请问
onlycxb老师：那其他几个数据的新代码有吗？谢谢了，
http://data.eastmoney.com/bbsj/201412/yjkb.html
http://data.eastmoney.com/bbsj/201412/yjyg.html
http://data.eastmoney.com/bbsj/201412/yjyg.html
http://data.eastmoney.com/bbsj/201503/yjyg.html

五指山888 · 发表于 2015-4-3 22:45

本帖最后由五指山888 于 2015-4-3 22:57 编辑

回复不了啥意思？ onlycxb老师太牛了，其他的2014年度的预报，快报，分配预案的新代码有吗？能在这段代码上改吗？谢谢了！
老师：能在这段代码上改吗？像网页http://data.eastmoney.com/bbsj/201412/yjkb/13.html
像网页http://data.eastmoney.com/bbsj/201412/yjyg.html

http://data.eastmoney.com/bbsj/201412/yjyg.html

http://data.eastmoney.com/bbsj/201503/yjyg.html

五指山888 · 发表于 2015-4-3 23:00

onlycxb 发表于 2015-4-3 18:24

这个代码太专业了，速度奇快，非常好，可惜菜鸟看不懂，所以请问
onlycxb老师：那其他几个数据的新代码有吗？2014年预报，2014年快报，2014年分配预案，2015年一季度预报，不知道在这段代码上如何改？
谢谢了

引子玄 · 发表于 2015-4-3 23:57

数据采集，用于炒股、炒球的很多。遗憾的是炒股、炒球的，多数人是要送钱的，因为炒是赌。

onlycxb · 发表于 2015-4-4 07:21

五指山888 发表于 2015-4-3 23:00
这个代码太专业了，速度奇快，非常好，可惜菜鸟看不懂，所以请问
onlycxb老师：那其他几个数据的新代码有 ...

不同的内容，应该有不同的数据地址，并且针对不同的数据结构，采用不同的模拟采集方法。利用一些分析工具分析一下就可以得到相应的模拟方法。以上仅为示例代码，仅供爱好者参考。

onlycxb · 发表于 2015-4-4 08:03

五指山888 发表于 2015-4-3 23:00
这个代码太专业了，速度奇快，非常好，可惜菜鸟看不懂，所以请问
onlycxb老师：那其他几个数据的新代码有 ...

Sub test()
'东方财富网 > 数据中心 > 年报季报 > 业绩预告>2015 年一季报业绩大全
Dim strJs, P
'示例加字段
With ActiveSheet
.Cells(1, 1) = "股票代码,股票简称" '这里仅为示意，可根据实际填加
End With
With CreateObject("Microsoft.XMLHTTP")
.Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=SR&sty=YJYG&fd=2015-03-31&st=4&sr=-1&p=1&ps=1&js=(pc),(x)&stat=0&rt=" & Rnd, False
.send
P = Split(.responsetext, ",")(0)
.Open "GET", "http://datainterface.eastmoney.com/EM_DataCenter/JS.aspx?type=SR&sty=YJYG&fd=2015-03-31&st=4&sr=-1&p=1&ps=" & P & "&js=var%20a={pages:(pc),data:[(x)]}&stat=0&rt=" & Rnd, False
.send
strJs = .responsetext & ";var b=a.data;var s=''; for(x in b){s+=b[x].replace(/&sbquo/g,'，')+'\r';}"
End With
With CreateObject("MSScriptControl.ScriptControl")
.Language = "javascript"
strJs = .Eval(strJs)
End With
Arr = Split(strJs, vbCr)
With ActiveSheet
.[a2].Resize(UBound(Arr)) = WorksheetFunction.Transpose(Arr)
.[a:a].TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Comma:=True, FieldInfo:=Array(1, 2)
End With
End Sub

复制代码

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

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

评分