国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

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

2024-08-23 19:52:04
字體:
來源:轉載
供稿:網友

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

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


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 白玉县| 驻马店市| 旬阳县| 遂宁市| 黎平县| 青州市| 贵州省| 保亭| 盐山县| 文登市| 黑水县| 个旧市| 鹤庆县| 柞水县| 越西县| 碌曲县| 古丈县| 黄石市| 天气| 双江| 含山县| 祁连县| 恭城| 即墨市| 蚌埠市| 沾化县| 宜兰县| 峨眉山市| 钟祥市| 宿州市| 内黄县| 丰原市| 岢岚县| 泾川县| 临西县| 琼中| 涪陵区| 丹巴县| 洞头县| 桃江县| 黄大仙区|