獲取股票歷史行情數據最方便的途徑,就是直接讀取股票行情軟件留在妳電腦中的日線數據文件。
但如果不是程序員,電腦裏壹般不會有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