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

1. 怎样用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

2. 你好，如何获取通达信股票日线数据

振幅:100*(H-L)/REF(C,1);
量比:V/REF(MA(V,5),1);
振幅 AND 量比;

上面这个单独建个副图指标

一个页面上，最上面是K线主图，中间是成交量指标，再下面是上面的副图指标
如下图所示



菜单栏  系统---导出，选择EXCEL文件，导出就是你要的数据了






按向上和向下的箭头，可以扩大和缩小K线所在的时间范围,   可以导出从上市到现在的所有记录

差不多能符合你的要求了

3. 如何使用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

4. 怎样用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