GetHistoryDataByDate取历史数据报错 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → GetHistoryDataByDate取历史数据报错

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有4574人关注过本帖树形打印复制链接主题：GetHistoryDataByDate取历史数据报错

greatcat

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：14 积分：0 威望：0 精华：0 注册：2014/1/1 18:42:28

GetHistoryDataByDate取历史数据报错 发帖心情

Post By：2015/1/28 11:43:02 [显示全部帖子]

for date_i = 1 to Ubound(date_array) - 1

my_HistoryData = marketdata.GetHistoryDataByDate(TCCODE, TCMARKET, 5, date_i_b_str, date_i_e_str)

以上代码中的这一句：

marketdata.GetHistoryDataByDate(TCCODE, TCMARKET, 5, date_i_b_str, date_i_e_str)

在循环了几次后，就开始报错：

编译器错误：438

对象不支持此属性或方法

另外，出现这个报错后，如果再执行这段代码，不报错，但是一条数据也取不出来，结果都是空的。

说明：我下载了最近5年的历史日K线数据，数据应该是全的。

greatcat

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：14 积分：0 威望：0 精华：0 注册：2014/1/1 18:42:28

Post By：2015/1/28 13:45:34 [显示全部帖子]

Sub APPLICATION_VBAStart()
application.MsgOut "开始运行..."
dim my_HistoryData, date_array(250)
Set my_HistoryData = marketdata.GetHistoryData("000001", "SH", 5)
for i = 750 to 1000 -1
date_array(i-750) = my_HistoryData.Date(i)
next

  for date_i = 1 to Ubound(date_array) - 1
  date_i_b_str = date_array(date_i-1)
    date_i_e_str = date_array(date_i)
    application.MsgOut   date_i_b_str & " " & date_i_e_str
    my_HistoryData = marketdata.GetHistoryDataByDate("600109", "SH", 5, date_i_b_str, date_i_e_str)
    application.MsgOut my_HistoryData.count & " " & my_HistoryData.close(0)
    marketdata.DestroyHistoryData
    next

输出结果：

开始运行...
2014/1/21 2014/1/22
开始运行...
0:00:00 0:00:00
开始运行...
2014/1/21 2014/1/22

不但报错，而且多次运行的输出结果也很奇怪，每次都不一样，如上。