for date_i = 1 to Ubound(date_array) - 1

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

next

以上代碼中的這一句：

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

在循環(huán)了幾次后，就開始報錯：

編譯器錯誤：438

對象不支持此屬性或方法

另外，出現(xiàn)這個報錯后，如果再執(zhí)行這段代碼，不報錯，但是一條數(shù)據(jù)也取不出來，結(jié)果都是空的。

說明：我下載了最近5年的歷史日K線數(shù)據(jù)，數(shù)據(jù)應(yīng)該是全的。

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

輸出結(jié)果：

開始運行...
2014/1/21 2014/1/22
開始運行...
0:00:00 0:00:00
開始運行...
2014/1/21 2014/1/22

不但報錯，而且多次運行的輸出結(jié)果也很奇怪，每次都不一樣，如上。

看你使用的是那種模式讀取的數(shù)據(jù),如果你用的是獨立模式的,那么調(diào)用完一個品種數(shù)據(jù)后,你要釋放對象的,否則會導(dǎo)致內(nèi)存不足

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

上面我已經(jīng)貼了完整的代碼，大哥幫忙看看啥問題