最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

Excel2010教程之巧妙處理折線圖表中的斷裂問題

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

復制代碼
代碼如下:

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

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

相關(guān)文章

最新評論

玛沁县| 苍溪县| 晋城| 周至县| 惠州市| 石狮市| 瑞安市| 岳阳市| 阜新市| 浦北县| 永吉县| 赞皇县| 浦县| 温泉县| 修文县| 泸州市| 九寨沟县| 辛集市| 刚察县| 门头沟区| 哈尔滨市| 迁西县| 贞丰县| 苍南县| 南木林县| 南召县| 台江县| 张家港市| 黄梅县| 岗巴县| 山东省| 宣化县| 广宗县| 梁河县| 河东区| 定南县| 保山市| 武安市| 北安市| 恩施市| 曲靖市|