专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅

首页 »办公软件 » excel不能读取文件:EXCEL读取通达信股票日线数据 »正文

excel不能读取文件:EXCEL读取通达信股票日线数据

来源: 发布时间:星期二, 2009年2月3日 浏览:177次 评论:0
  定量分析是获取数据

  获取股票历史行情数据最方便途径就是直接读取股票行情软件Software留在你电脑中日线数据文件

  但如果不是电脑里般不会有VB、VC的类编程语言

  如何办呢?

  其实大家电脑中般都有OFFICEOFFICE中EXCEL自带了个VBA语言编程环境功能也很强大

  我用EXCEL里VBA编写了段代码读取通达信股票行情软件Software日线文件已经测试通过

  代码如下和爱好定量分析朋友分享

  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

  别忘了把其中红字标示文件名换成你想要读取数据文件名

0

相关文章

读者评论

发表评论

  • 昵称:
  • 内容: