打开通达信股票数据

炒股机师

打开通达信股票数据

来自：MACD论坛(bbs.shudaoyoufang.com) 作者：炒股机师 浏览：1889 回复：4

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
------以上是我从网上找到的一段VBA代码，将其用于Excel中得出的结果有错误，希望得到老师的指点，下面是错误状态图片。---------------

[ 本帖最后由 炒股机师 于 2011-5-3 11:12 编辑 ]

smj666

gghhee68

不知楼主的目的是什么?其实要获得数据的方法很多.

dddwh5

要导入到excel表中

dddwh5

非常感谢楼主！