- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Excel2010:巧妙处理折线图表中的断裂问题
定量分析的第一步,是获取数据。
获取股票历史行情数据最方便的途径,就是直接读取股票行情软件留在你电脑中的日线数据文件。
但如果不是程序员;,电脑里一般不会有VB、VC之类的编程语言。
怎么办呢?
其实,大家的电脑中一般都有OFFICE。OFFICE中的Excel自带了一个V;BA语言的编程环境。功能也很强大。
我用EXCEL里的VBA编写了一段代码,读取通达信股票行情软件的日线文件。已经测试通过。
代码如下。;与爱好定量分析的朋友分享。
Type MyType
a1 As Long 标示码
a2 As Long 日;期
a3 As Single 开盘价
a4 As Single 最高价
a5 As Single ;最低价
a6 As Single 收盘价
a7 As Single 成交金额
a8 As Long;成交量
End Type
Sub 按钮1_Click()
Dim File2 As Integer
Dim;b As MyType
File1=FreeFile
Open sh600000.day For Binary;access Read As #File1
i=1
Do While Not EOF(File1)
Get #F;ile1, , b
Cells(i, 1)=b.a1
Cells(i, 2)=b.a2
Cells(i, 3)=b.a3;Cells(i, 4)=b.a4
Cells(i, 5)=b.a5
Cells(i, 6)=b.a6
Cells(i;, 7)=b.a7
Cells(i, 8)=b.a8
i=i + 1
Loop
Close #Fi;le1
End Sub
别忘了把其中红字标示的文件名换成你想要读取的数据文件名。;/ 怀化亲子鉴定 怀化亲子鉴定中心
您可能关注的文档
最近下载
- (正式版)SH∕T 3553-2024 石油化工汽轮机施工及验收规范.pdf VIP
- 电气专项施工方案.doc VIP
- 个人简历——【标准模板】.doc VIP
- 软件开发工具unsp ide使用说明书.pdf VIP
- 【课堂新坐标(教师用书)高中英语 Unit 3 Period V Culture Corner & Bulletin Board课件 北师大版必修1.ppt VIP
- 老年病多学科诊疗模式.pptx VIP
- GPX 生产手册.pdf VIP
- 老年病多学科诊疗模式.pptx VIP
- 【课堂新坐标(教师用书)高中英语 Unit 1 Lifestyles单元归纳提升课件 北师大版必修1.ppt VIP
- 新课标高中英语 教师用书配套资料 Unit1~2 阶段综合检测 北师大版必修1.doc VIP
文档评论(0)