excel不能读取文件:EXCEL读取通达信股票日线数据来源: 发布时间:星期二, 2009年2月3日 浏览:177次 评论:0
定量分析第步是获取数据
获取股票历史行情数据最方便途径就是直接读取股票行情软件Software留在你电脑中日线数据文件 但如果不是员电脑里般不会有VB、VC的类编程语言 如何办呢? 其实大家电脑中般都有OFFICEOFFICE中EXCEL自带了个VBA语言编程环境功能也很强大 我用EXCEL里VBA编写了段代码读取通达信股票行情软件Software日线文件已经测试通过 代码如下和爱好定量分析朋友分享 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 别忘了把其中红字标示文件名换成你想要读取数据文件名 0
相关文章读者评论发表评论 |