Excel2010教程之巧妙处理折线图表中的断裂问题
番茄系统家园 · 2022-11-06 03:06:11
定量分析的第一步，是获取数据。
获取股票历史行情数据最方便的途径，就是直接读取股票行情软件留在你电脑中的日线数据文件。
但如果不是程序员，电脑里一般不会有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 bAs 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
别忘了把其中红字标示的文件名换成你想要读取的数据文件名。
