亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

Excel2010教程之巧妙處理折線圖表中的斷裂問(wèn)題

  發(fā)布時(shí)間：2012-07-09 15:41:59   作者：佚名   我要評(píng)論
定量分析的第一步，是獲取數(shù)據(jù)。 獲取股票歷史行情數(shù)據(jù)最方便的途徑，就是直接讀取股票行情軟件留在你電腦中的日線數(shù)據(jù)文件。
定量分析的第一步，是獲取數(shù)據(jù)。
獲取股票歷史行情數(shù)據(jù)最方便的途徑，就是直接讀取股票行情軟件留在你電腦中的日線數(shù)據(jù)文件。
但如果不是程序員，電腦里一般不會(huì)有VB、VC之類(lèi)的編程語(yǔ)言。
怎么辦呢？
其實(shí)，大家的電腦中一般都有OFFICE。OFFICE中的Excel自帶了一個(gè)VBA語(yǔ)言的編程環(huán)境。功能也很強(qiáng)大。
我用EXCEL里的VBA編寫(xiě)了一段代碼，讀取通達(dá)信股票行情軟件的日線文件。已經(jīng)測(cè)試通過(guò)。
代碼如下。與愛(ài)好定量分析的朋友分享。

復(fù)制代碼
代碼如下:

Type MyType
a1 As Long '標(biāo)示碼
a2 As Long '日期
a3 As Single '開(kāi)盤(pán)價(jià)
a4 As Single '最高價(jià)
a5 As Single '最低價(jià)
a6 As Single '收盤(pán)價(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ù)文件名。

相關(guān)文章

最新評(píng)論