| 订阅 | 在线投稿
分享
 
 
 

EXCEL读取通达信股票日线数据

来源:互联网  宽屏版  评论
2008-08-20 08:08:34

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

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

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

怎么办呢?

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

我用EXCEL里的VBA编写了一段代码,读取通达信股票行情软件的日线文件。已经测试通过。

代码如下。与爱好定量分析的朋友分享。

Type MyType

a1 As Long '标示码

a2 As Long '日期

a3 As Single '开盘价

a4 As Single '最高价

a5 As Single '最低价

a6 As Single '收盘价

a7 As Single '成交金额

a8 As Long '成交量

End Type

Sub 按钮1_Click()

Dim File2 As Integer

Dim b As MyType

File1 = FreeFile

Open "sh600000.day" For Binary Access Read As #File1

i = 1

Do While Not EOF(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

Cells(i, 7) = b.a7

Cells(i, 8) = b.a8

i = i + 1

Loop

Close #File1

End Sub

别忘了把其中红字标示的文件名换成你想要读取的数据文件名。

定量分析的第一步,是获取数据。 获取股票历史行情数据最方便的途径,就是直接读取股票行情软件留在你电脑中的日线数据文件。 但如果不是程序员,电脑里一般不会有VB、VC之类的编程语言。 怎么办呢? 其实,大家的电脑中一般都有OFFICE。OFFICE中的EXCEL自带了一个VBA语言的编程环境。功能也很强大。 我用EXCEL里的VBA编写了一段代码,读取通达信股票行情软件的日线文件。已经测试通过。 代码如下。与爱好定量分析的朋友分享。 Type MyType a1 As Long '标示码 a2 As Long '日期 a3 As Single '开盘价 a4 As Single '最高价 a5 As Single '最低价 a6 As Single '收盘价 a7 As Single '成交金额 a8 As Long '成交量 End Type Sub 按钮1_Click() Dim File2 As Integer Dim b As MyType File1 = FreeFile Open "sh600000.day" For Binary Access Read As #File1 i = 1 Do While Not EOF(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 Cells(i, 7) = b.a7 Cells(i, 8) = b.a8 i = i + 1 Loop Close #File1 End Sub 别忘了把其中红字标示的文件名换成你想要读取的数据文件名。
󰈣󰈤
 
 
 
>>返回首页<<
 
 热帖排行
 
 
王朝网络微信公众号
微信扫码关注本站公众号wangchaonetcn
 
 
静静地坐在废墟上,四周的荒凉一望无际,忽然觉得,凄凉也很美
©2005- 王朝网络 版权所有