MicrosoftExcel2010，可以通过比以往更多的方法分析、管理和共享信息，从而帮助您做出更好、更明智的决策。全新的分析和可视化工具可帮助您跟踪和突出显示重要的数据趋势。可以在移动办公时从几乎所有 Web 浏览器或 Smartphone 访问您的重要数据。您甚至可以将文件上载到网站并与其他人同时在线协作。无论您是要生成财务报表还是管理个人支出，使用 Excel 2010 都能够更高效、更灵活地实现您的目标。 定量分析的第一步，是获取数据。
获取股票历史行情数据最方便的途径，就是直接读取股票行情软件留在你电脑中的日线数据文件。
但如果不是程序员，电脑里一般不会有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
别忘了把其中红字标示的文件名换成你想要读取的数据文件名。
Excel 2010 提供了供人们在工作簿上协同工作的简便方法，提高了人们的工作质量。
|