c读取excel文件内容 怎样用excel实时读取股票日线数据

怎样用excel实时读取股票日线数据  

定量分析的第一步，是获取数据。

获取股票历史行情数据最方便的途径，就是直接读取股票行情软件留在你电脑中的日线数据文件。

但如果不是程序员，电脑里一般不会有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