以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [求助]VBA 利用HistoryData 对象生成保存导入分笔数据问题请教  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=90679)

--  作者:c100010680
--  发布时间:2016/1/25 13:43:36
--  [求助]VBA 利用HistoryData 对象生成保存导入分笔数据问题请教
 看到VBA的HistoryData 对象有一个SaveData         保存数据到指定品种中.
现在想实现如下需求,生成2016-01-24的分笔数据
Set MinuteData = marketdata.GetHistoryMinuteData("RU05","SQ","2016-01-24")
Set HistoryData = marketdata.Changedata(MinuteData)
这样得到了2016-01-24的历史分笔数据对象
Application.MsgOut(HistoryData.Count)
得到0,因为昨天没录制也没保存分笔数据,
现在我想做的是自己生成昨天的数据,因为看到
InsertAt         指定基于0索引的位置插入一个空记录。例如:History.InsertAt(History.Count),表示最后位置插入一个空记录

那么我先插入100条空记录,然后给这一百条记录赋值,然后保存

望高手解答补充这部分实现代码,主要是怎么保存啊

--  作者:yukizzc
--  发布时间:2016/1/25 13:56:14
--  
http://www.weistock.com/bbs/dispbbs.asp?BoardID=2&ID=89118&skin=0