如何用excel实时读取股票日数据

获取历史股市数据最便捷的方法就是通过股市软件直接读取你电脑中留下的每日数据文件。

但如果你不是程序员，电脑里一般不会有VB、VC之类的编程语言。

其实大家的电脑一般都有OFFICE。OFFICE中的EXCEL带有VBA编程环境。功能也很强大。

我用EXCEL中的VBA写了一个代码，读取通达信股票行情软件的每日文件。已经通过了考验。

代码如下。分享给喜欢定量分析的朋友。

类型我的类型

A1AsLong '识别码

一个漫长的日期

单一开盘价

最高价格

单一最低价

单一收盘价

7单笔交易金额

A8AsLong营业额

末端类型

子按钮1_Click()

dim file 2集成器

DimbAsMyType

File1=FreeFile

opensh 600000 . dayforbinaryaccessreadas # file 1 I = 1 dowwhilenotof(file 1)

获取#File1，，b

单元格(I，1)=b.a1

单元格(I，2)=b.a2

单元格(I，3)=b.a3

单元格(I，4)=b.a4

单元格(I，5)=b.a5

单元格(I，6)=b.a6