定量分析的第一步，是獲取數(shù)據(jù)。獲取股票歷史行情數(shù)據(jù)最方便的途徑，就是直接讀取股票行情軟件留在你電腦中的日線數(shù)據(jù)文件。但如果不是程序員，電腦里一般不會(huì)有VB、VC之類的編程語言。怎么辦呢？

其實(shí)，大家的電腦中一般都有OFFICE。OFFICE中的Excel自帶了一個(gè)VBA語言的編程環(huán)境。功能也很強(qiáng)大。我用EXCEL里的VBA編寫了一段代碼，讀取通達(dá)信股票行情軟件的日線文件。已經(jīng)測(cè)試通過。代碼如下。與愛好定量分析的朋友分享。

  Type MyType    a1 As Long  標(biāo)示碼    a2 As Long  日期    a3 As Single  開盤價(jià)    a4 As Single  最高價(jià)    a5 As Single  最低價(jià)    a6 As Single  收盤價(jià)    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

別忘了把其中紅字標(biāo)示的文件名換成你想要讀取的數(shù)據(jù)文件名。