Question

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

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