ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: onlycxb

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

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2015-4-3 16:04 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
onlycxb 发表于 2015-4-3 14:01

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

TA的精华主题

TA的得分主题

发表于 2015-4-3 16:27 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-4-3 18:24 | 显示全部楼层
luyina 发表于 2015-4-3 16:04
老师:能加上个数据对应的字段名称吗?像网页http://data.eastmoney.com/bbsj/201412/yjbb.html中的“股票 ...
  1. Sub test()
  2.     Dim strJs, P
  3.     '示例加字段
  4.     With ActiveSheet
  5.         .Cells(1, 1) = "股票代码,股票简称" '这里仅为示意,可根据实际填加
  6.         .UsedRange.Offset(1).ClearContents
  7.     End With
  8.     With CreateObject("Microsoft.XMLHTTP")
  9.         .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
  10.         .send
  11.         P = Split(.responsetext, ",")(0)
  12.         .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
  13.         .send

  14.         strJs = .responsetext & ";var b=a.data;var s=''; for(x in b){s+=b[x]+'\r';}"
  15.     End With
  16.     With CreateObject("MSScriptControl.ScriptControl")
  17.         .Language = "javascript"
  18.         strJs = .Eval(strJs)
  19.     End With
  20.     Arr = Split(strJs, vbCr)
  21.     With ActiveSheet
  22.         .[a2].Resize(UBound(Arr)) = WorksheetFunction.Transpose(Arr)
  23.         .[a:a].TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Comma:=True, FieldInfo:=Array(1, 2)
  24.     End With
  25. End Sub
复制代码

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 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不会出现警示框。

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

TA的精华主题

TA的得分主题

发表于 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

TA的精华主题

TA的得分主题

发表于 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

TA的精华主题

TA的得分主题

发表于 2015-4-3 23:00 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
onlycxb 发表于 2015-4-3 18:24

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

TA的精华主题

TA的得分主题

发表于 2015-4-3 23:57 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
数据采集,用于炒股、炒球的很多。遗憾的是炒股、炒球的,多数人是要送钱的,因为炒是赌。

TA的精华主题

TA的得分主题

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

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

TA的精华主题

TA的得分主题

 楼主| 发表于 2015-4-4 08:03 | 显示全部楼层
五指山888 发表于 2015-4-3 23:00
这个代码太专业了,速度奇快,非常好,可惜菜鸟看不懂,所以请问
onlycxb老师:那其他几个数据的新代码有 ...
  1. Sub test()
  2. '东方财富网 > 数据中心 > 年报季报 > 业绩预告>2015 年一季报业绩大全
  3.     Dim strJs, P
  4.     '示例加字段
  5.     With ActiveSheet
  6.         .Cells(1, 1) = "股票代码,股票简称" '这里仅为示意,可根据实际填加
  7.     End With
  8.     With CreateObject("Microsoft.XMLHTTP")
  9.         .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
  10.         .send
  11.         P = Split(.responsetext, ",")(0)
  12.         .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
  13.         .send

  14.         strJs = .responsetext & ";var b=a.data;var s=''; for(x in b){s+=b[x].replace(/&sbquo/g,',')+'\r';}"
  15.     End With
  16.     With CreateObject("MSScriptControl.ScriptControl")
  17.         .Language = "javascript"
  18.         strJs = .Eval(strJs)
  19.     End With
  20.     Arr = Split(strJs, vbCr)
  21.     With ActiveSheet
  22.         .[a2].Resize(UBound(Arr)) = WorksheetFunction.Transpose(Arr)
  23.        .[a:a].TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, Comma:=True, FieldInfo:=Array(1, 2)
  24.     End With
  25. End Sub
复制代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 06:34 , Processed in 0.056331 second(s), 10 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表