标题：5分钟k线的数据用VBA实时导入到access数据库

1楼

liwei_bj 发表于：2014/5/12 7:03:45

我问一下，我想在盘中5分钟k线的数据用VBA实时导入到access数据库，但是由于金字塔对数据量做了限制导致无法得到最新的数据值，有什么办法解决吗？代码如下

set qtzq= marketdata.GetHistoryData("if00","ZJ",1)

call application.MsgOut(qtzq.Count)

其中qtzq.Count的值因为限制，总是只能显示1001。但是我是想实时输出最后一个k线的收盘价。请斑竹帮忙吧！

2楼

RogarZ 发表于：2014/5/12 8:45:48

购买专业版就没这个限制

3楼

liwei_bj 发表于：2014/5/12 10:59:55

专业版太贵了，我有购买的普通版，难道也不行？这是让一般用户都没法用呀！

4楼

lichenghu 发表于：2014/5/12 11:01:14

这个是版本限制,不会做更改。

5楼

liwei_bj 发表于：2014/5/12 12:35:32

那有没有变通的方法？我就每5分钟往数据库里导入一个K线数据，用pel,VBS都行？可以用什么方法访问到最后一根K线？或者我实时导出分笔自己组成K线？就是太麻烦了。

6楼

王锋发表于：2014/5/12 12:40:46

qtzq.Count()-1就是你最后一个数据的索引,你只要做个定时器,比如4分钟间隔一次的频率,读取5分钟的数据然后判断最后一笔数据的K线时间,如果出现新K线,则将qtzq.Count()-2倒数第二个写库,..................重复上述动作

[此贴子已经被作者于2014/5/12 12:41:11编辑过]

7楼

liwei_bj 发表于：2014/5/12 13:02:36

搞定啦，多谢！版主真牛！！

共7 条记录, 每页显示 10 条, 页签: [1]