标题：GetHistoryDataByDate取历史数据报错

1楼

greatcat 发表于：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线数据，数据应该是全的。

2楼

FexTel 发表于：2015/1/28 13:30:25

代码给全,让工作人员看下。是不是数组的问题

3楼

王锋发表于：2015/1/28 13:44:35

看你使用的是那种模式读取的数据,如果你用的是独立模式的,那么调用完一个品种数据后,你要释放对象的,否则会导致内存不足

4楼

greatcat 发表于：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

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

5楼

greatcat 发表于：2015/1/28 13:52:58

看你使用的是那种模式读取的数据,如果你用的是独立模式的,那么调用完一个品种数据后,你要释放对象的,否则会导致内存不足

-----------------------------

上面我已经贴了完整的代码，大哥帮忙看看啥问题

6楼

yukizzc 发表于：2015/1/28 14:57:57

set my_HistoryData = marketdata.GetHistoryDataByDate("600109", "SH", 5, date_i_b_str, date_i_e_str) //这里set对象

另外看下工具-选项-维护这里内存保留调大点，在运行看看。下面是我这边输出情况

2013/1/16 2013/1/17
367 10.035
2013/1/17 2013/1/18
367 10.16
2013/1/18 2013/1/21
367 10.755
2013/1/21 2013/1/22
367 10.895

7楼

greatcat 发表于：2015/1/28 16:39:16

非常感谢 yukizzc！真是这两个原因，解决了！！！

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