Excel2010:巧妙處理折線圖表中的斷裂問題

sou6發表於2012-07-08

定量分析的第一步,是獲取資料。
獲取股票歷史行情資料最方便的途徑,就是直接讀取股票行情軟體留在你電腦中的日線資料檔案。
但如果不是程式設計師,電腦裡一般不會有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

別忘了把其中紅字標示的檔名換成你想要讀取的資料檔名。

相關文章