如何使用EXCEL读取通达信股票日线数据

Question

如题所述

Answer 1

　　定量分析的第一步，是获取数据。　　获取股票历史行情数据最方便的途径，就是直接读取股票行情软件留在你电脑中的日线数据文件。　　但如果不是程序员，电脑里一般不会有VB、VC之类的编程语言。　　其实，大家的电脑中一般都有OFFICE。OFFICE中的EXCEL自带了一个VBA语言的编程环境。功能也很强大。　　我用EXCEL里的VBA编写了一段代码，读取通达信股票行情软件的日线文件。已经测试通过。　　代码如下。与爱好定量分析的朋友分享。　　TypeMyType　　a1AsLong'标示码　　a2AsLong'日期　　a3AsSingle'开盘价　　a4AsSingle'最高价　　a5AsSingle'最低价　　a6AsSingle'收盘价　　a7AsSingle'成交金额　　a8AsLong'成交量　　EndType　　Sub按钮1_Click()　　DimFile2AsInteger　　DimbAsMyType　　File1=FreeFile　　Opensh600000.dayForBinaryAccessReadAs#File1　　i=1　　DoWhileNotEOF(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

Answer 2

　定量分析的第一步，是获取数据。
　　获取股票历史行情数据最方便的途径，就是直接读取股票行情软件留在你电脑中的日线数据文件。
　　但如果不是程序员，电脑里一般不会有VB、VC之类的编程语言。
　　其实，大家的电脑中一般都有OFFICE。OFFICE中的EXCEL自带了一个VBA语言的编程环境。功能也很强大。
　　我用EXCEL里的VBA编写了一段代码，读取通达信股票行情软件的日线文件。已经测试通过。
　　代码如下。与爱好定量分析的朋友分享。
　　TypeMyType
　　a1AsLong'标示码
　　a2AsLong'日期
　　a3AsSingle'开盘价
　　a4AsSingle'最高价
　　a5AsSingle'最低价
　　a6AsSingle'收盘价
　　a7AsSingle'成交金额
　　a8AsLong'成交量
　　EndType
　　Sub按钮1_Click()
　　DimFile2AsInteger
　　DimbAsMyType
　　File1=FreeFile
　　Opensh600000.dayForBinaryAccessReadAs#File1　　i=1　　DoWhileNotEOF(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