国产探花免费观看_亚洲丰满少妇自慰呻吟_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

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


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 金沙县| 诸暨市| 调兵山市| 偏关县| 上饶县| 资兴市| 平武县| 罗山县| 介休市| 武义县| 名山县| 东宁县| 克什克腾旗| 平谷区| 吉林市| 高陵县| 邵东县| 南靖县| 广西| 兴文县| 龙岩市| 彭水| 京山县| 沛县| 确山县| 增城市| 灵武市| 涿州市| 新昌县| 汉川市| 清流县| 饶平县| 扶余县| 鸡泽县| 东乡族自治县| 日照市| 大安市| 安阳市| 涿州市| 鄂伦春自治旗| 亚东县|