高级功能研发区-[求助]为何得不到数据金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [求助]为何得不到数据  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=4570)

--  作者：wangwatercup
--  发布时间：2010/12/24 15:09:09
--  [求助]为何得不到数据
使用的是海通期货仿真的帐号，想获得分笔数据和历史数据，但是都不成功。
（1）set minutedata = marketdata.GetHistoryData("IF01","zj",0)
count属性是4000多，看似没问题，但是拉出来一看，除了第一个数据是11月22日的之外都是空值；
（2） set minutedata = marketdata.GetMinuteData("IF01","zj")
count是12105，但是拉出来数据第一个是2010-12-24 13：10 而当时已经快收盘了，其他数据都是空值。

不知道这是为什么？？？？

2010-12-24 13:10

--  作者：admin
--  发布时间：2010/12/25 17:10:32
--
请把你拉出来的完整VBA代码贴出来看看

--  作者：wangwatercup
--  发布时间：2010/12/27 11:11:08
--
今天可以接受到数据了，但是还是把原来的代码贴出来。

Sub test1()
\'分笔数据是否可得
Set MinuteData = marketdata.GetMinuteData("IF01","Zj")
msgbox MinuteData.count
msgbox MinuteData.date(0)
\'显示第11个数据得时间，收盘，成交量
for i=MinuteData.count to 1 step -1000
msgbox MinuteData.date(i-1)
msgbox MinuteData.newprice(i-1)
\'msgbox HistroyData.Volume(i-1)
next

End Sub

sub test11()
\'1分钟数据是否可得
set History = marketdata.GetHistoryData("if01","zj",0)
msgbox history.count
for i=History.count to 1 step -1000
msgbox History.date(i-1)
msgbox History.close(i-1)
next

end sub