空间  购物  百科  知道  词典  美女  繁体  小说

上一篇《读取Excel文件时出现null的解决方法》

字体: 小|中|大

　　定量分析的第一步，是获取数据。
　　获取股票历史行情数据最方便的途径，就是直接读取股票行情软件留在你电脑中的日线数据文件。
　　但如果不是程序员，电脑里一般不会有VB、VC之类的编程语言。
　　怎么办呢？
　　其实，大家的电脑中一般都有OFFICE。OFFICE中的EXCEL自带了一个VBA语言的编程环境。功能也很强大。
　　我用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 #File1, , 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 #File1
　　End Sub
　　别忘了把其中红字标示的文件名换成你想要读取的数据文件名。(王朝网络 wangchao.net.cn)

 

标签: EXCEL  数据  日线  股票  读取  通达  

定量分析的第一步，是获取数据。 获取股票历史行情数据最方便的途径，就是直接读取股票行情软件留在你电脑中的日线数据文件。 但如果不是程序员，电脑里一般不会有VB、VC之类的编程语言。 怎么办呢？ 其实，大家的电脑中一般都有OFFICE。OFFICE中的EXCEL自带了一个VBA语言的编程环境。功能也很强大。 我用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 #File1, , 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 #File1 End Sub 别忘了把其中红字标示的文件名换成你想要读取的数据文件名。

 

声明：王朝网络登载此文出于传递更多信息之目的，并不意味着赞同其观点或证实其描述，文章内容仅供参考。

 

网友评论 查看所有评论

 

 

 

网络 商业价值杂志：HTML5将带来什么
母婴 国内外给宝宝补钙有啥区别
健康 北京海鲜去哪里吃
旅游 欧洲自助游如何办签证
数码 印度暂缓封锁黑莓 紧盯网密服务密钥－安全资讯
游戏 短暂的歇息 多玩编辑部外出旅游三天
学院 摩托罗拉XT701手机使用的感觉
家饰 富安娜指控罗莱流氓链接 后者应诉坚称无辜
家电 中国小家电交易会9天创造逾10亿签单额
女性 “奋斗男”坚守婚姻保卫第一线
汽车 国内SUV销量三甲过人之处解析
珠宝 中国珠宝内销市场一枝独秀
军事 简氏：中国正为泰国研制新型火箭炮及导弹
美女 蓝色湖边的靓丽少女
探索 月球地名首次有了标准中文译名