欢迎登陆真网站,您的到来是我们的荣幸。 登陆 注册 忘记密码? ☆设为首页 △加入收藏
欢迎加入真幸福QQ群
电脑知识: 基础知识 网络技术 操作系统 办公软件 电脑维修 电脑安全 windows7 windows8 windows10 服务器教程 平板电脑 视频播放教程 网络应用 互联网 工具软件 浏览器教程 QQ技巧 输入法教程 影视制作 YY教程 wps教程 word教程 Excel教程 PowerPoint
云南西双版纳特产小花糯玉米真空包装


Excel新增按钮快速更改大小写
打开EXCEL时无法找到startup.xls文件的解决方法
怎样让Excel录入数据时自动添加计量单位
excel中快速求倍数技巧
鼠标双击在Excel中的妙用
在Excel中巧做复杂表头
Win10系统玩鬼泣4键盘按键失灵了怎么办?
如何查看安卓平板电脑版本号
给Excel表格中的数据批量添加各种符号
win10如何禁止自动安装应用?
Excel2010:巧妙处理折线图表中的断裂问题
【 来源:网络 】【 点击:1 】 【 发布时间:2017_03_03 08:59:59 】

定量分析的第一步,是获取数据。
获取股票历史行情数据最方便的途径,就是直接读取股票行情软件留在你电脑中的日线数据文件。
但如果不是程序员,电脑里一般不会有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

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

本网站由川南居提供技术支持,fkzxf版权所有 浙ICP备12031891号
淳安分站 淳安分站