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

标题：获取不了数据

1楼

qq代人发帖 发表于：2015/3/2 9:29:27

请教：我用专业版本的帐号怎么用？
'Set HistoryData = marketdata.GetHistoryDataByDate(TestCode, "zj", 0, "2015-02-25 00:00:00", "2015-02-27 00:00:00")

获取不了数据

Set HistoryData = marketdata.GetHistoryData(TestCode, "zj", 0)

不限制日期就可以。

2楼

FexTel 发表于：2015/3/2 9:45:38

set Data1= marketdata.GetHistoryDataByDate("if00","zj",0,"2014/8/8","2014/8/16") 下面有范例,日期格式

3楼

zhazha141592 发表于：2015/3/2 10:59:51

最早用的就是那个格式的日期

4楼

yukizzc 发表于：2015/3/2 11:24:29

Set HistoryData = marketdata.GetHistoryDataByDate("if00", "zj", 0, "2015/01/01","2015/01/15")

application.MsgOut HistoryData.count

你看下输出有数据量吗？本地这边没有问题

5楼

zhazha141592 发表于：2015/3/2 11:29:31

收盘后才能试了。用免费版本是取不到的。

6楼

zhazha141592 发表于：2015/3/2 11:29:45

专业版在跑实盘收盘后我再试试看

7楼

zhazha141592 发表于：2015/3/2 11:30:17

是HistoryData 对象为空。取不到时这个为空有获取错误的接口吗？比如为什么取失败

8楼

admin 发表于：2015/3/2 12:52:02

获取为空请检查代码和市场是否填对

9楼

zhazha141592 发表于：2015/3/2 13:49:56

'Set HistoryData = marketdata.GetHistoryDataByDate(TestCode, "zj", 0, "2015-02-25 00:00:00", "2015-02-27 00:00:00")

Set HistoryData = marketdata.GetHistoryData("if03", "zj", 0)

If IsEmpty(HistoryData) or IsNull(HistoryData) then

Application.ActivateFrame "Technic"

Set Grid = Technic.GetGridByName("MAIN")

DbgMsg "没取到数据，使用窗格内数据"

Set HistoryData = Grid.GetHistoryData

If IsEmpty(HistoryData) or IsNull(HistoryData) then

Application.MsgOut "未取到历史数据"

exit sub

end if

Set Formula = marketdata.StkindiByData("ma",HistoryData)

DbgMsg "COUNT:" & cstr(HistoryData.Count)

DbgMsg "MA3:" & Formula.GetBufData("ma3",50)

DbgMsg "最早的一条数据是:" & HistoryData.Date(0) & ",共" & HistoryData.Count

输出是：

没取到数据，使用窗格内数据

COUNT:1000

MA3:0

最早的一条数据是:2015-2-17 15:05:00,共1000

用专业版的帐号登录 HistoryData 可以获取到了不过调用 GetHistoryDataByDate 却不行

10楼

zhazha141592 发表于：2015/3/2 13:56:44

marketdata.StkindiByData 也取不到结果

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